;;;Rescale occurances of a block 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: 10-29-2003
;;;
(DEFUN C:BS ( / tht tset tsln cntr tent edtw)
(setq osmde (getvar"osmode"))
(setvar "osmode" 0)
(setq bscl (ureal 1 "" "\nScale Factor: " (if bscl bscl 1)))
(setq blkol (ustr 1 "Block Name? " (if blkol blkol "point") nil))
(if (eq (strcase blkol) "AECC_POINT")
  (setq getit (strcat "((0 . \"" (eval blkol) "\"))"))
  (setq getit (strcat "((-4 . \"<and\")(0 . \"INSERT\")(2 . \"" (eval blkol) "\")(-4 . \"and>\"))"))
)
(setq tset (ssget (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 "osmode" osmde)
(princ)
);DEFUN