;;;Scale Block occurances, one or many.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 04-08-1997
;;;
(DEFUN C:BLKSCL ( / tht tset tsln cntr tent edtw)
(setq osmde (getvar"osmode"))
(setvar "osmode" 0)
(setq bscl (ureal 1 "" "\nScale Factor: " 1))
(setq blkol (ustr 0 "Block Name? " "Point" nil))
(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 inscl (*(cdr(assoc 41 edtw))bscl))
    (setq inxyz (strcat(rtos(cadr(assoc 10 edtw)))","(rtos(caddr(assoc 10 edtw)))))
    (command ".scale" (cdar edtw) "" inxyz bscl)
    (setq cntr (1+ cntr))
  );progn
);while
(setvar "osmode" osmde)
);DEFUN