請教有關SCALE指令 LISP的寫法

請教前輩
我在工作上的需要把20-30個圖塊原地放大或縮小，我嘗試寫LISP來達到要求，卻不是很順利，我寫的程式如下，煩請前輩不吝賜教，謝謝
(defun c:scaleb2()
(setvar "cmdecho" 0)
(princ "選擇圖塊:")
(setq entities (ssget))
(setq enblock (sslength entities))
(setq value(getint "輸入縮小或放大倍數:"))
(setq entpos 0)
(repeat enblock
(setq en_data(entget (car enblock)))
(setq cenpt(cdr (assoc 10 en_data)))
(if (equal entity_type "INSERT")
(progn
(command "scale" en_data "" cenpt value)
(prin1)

)
)
(setq entpos (1+ entpos))

)
(prin1)
)

經過一天一夜的測試終於可以執行了
程式如下,與大家分享

(defun c:scale_block()
(setvar "cmdecho" 0)
(setq oldsnap (getvar "osmode"))
(princ "選擇圖塊:")
(setq ss (ssget))
(setq enblock (sslength ss))
(setq value(getreal "輸入縮小或放大倍數:"))
(setq n 0 )
(repeat enblock
(setq en(ssname ss n))
(setq endata(entget en))
(setq entype(cdr (assoc 0 endata)))

(if (= entype "INSERT")
(progn
(setq cenpt(cdr (assoc 10 endata)))
(command "scale" en "" cenpt value)
(prin1)
)
)
(setq n (1+ n))
(setvar "osmode" oldsnap)
)
(prin1)
)