;;;Rescale occurances of all POINT blocks about insertion points.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 04-13-1997
;;;
(DEFUN C:BSALL ( / tht tset tsln cntr tent edtw)
(setvar "highlight" 0)
(setq osmde (getvar"osmode"))
(setvar "osmode" 0)
(setq bscl (ureal 1 "" "\nScale Factor: " 1))
;(setq blkol (ustr 1 "Block Name? " (if blkol blkol "point") nil))
(setq blkol "POINT")
(setq getit (strcat "((-4 . \"<and\")(0 . \"INSERT\")(2 . \"" (eval blkol) "\")(-4 . \"and>\"))"))
(setq tset (ssget "X" (read getit)))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  );progn
);if
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
    (setq inxyz (trans(cdr(assoc 10 edtw)) 0 1))
    (command ".scale" (cdar edtw) "" inxyz bscl)
    (setq cntr (1+ cntr))
  );progn
);while
(setvar "highlight" 1)
(setvar "osmode" osmde)
(princ)
);DEFUN