엔지니어 기술블로그
도면을 블록으로 만드신 후
분해되지 않은 상태로 불러들인 후
아래 리습으로 블록scale을 조정해 보세요... 
블럭만을 선택하여 x-scale 또는 y-scale을 임의로 조절가능.
x-scale또는 y-scale을 다르게 입력도 가능 
;;BLOCK SCALE CHANGE ('01.07cho_i)
(defun c:BSC(/ ss n k en sx sy)
   (prompt "nCommand: Block Scale Change...")
   (prompt "nSelect block to edit-> ")
   (setq ss (ssget))
   (setq n (sslength ss))
   (setq k 0)
   (setq sx (getreal "n X scale factor<1> : "))
   (if (= sx nil)(setq sx 1))
   (setq sy (getreal " Y scale factor<default=X> : "))
   (if (= sy nil)(setq sy sx))
   (while (<= 1 n)
       (setq en (ssname ss k))
       (if (eq (cdr (assoc 0 (entget en))) "INSERT")
           (progn
              (entmod (subst (cons 41 sx) (assoc 41 (entget en))(entget en)))
              (entmod (subst (cons 42 sy) (assoc 42 (entget en))(entget en)))
              (redraw en 4)
           )
       )
       (setq n (- n 1))
       (setq k (+ k 1))
    )
    (princ)
);end of defun