求程序：一次将很多圆圈以各自圆心缩放

(Defun c:scc (/ tst num i sc tname bjr1)
;(setvar "cmdecho" 0)
(prompt "\n选择需要缩放的圆:")
(setq tst (ssget '((0 . "circle")))) ;
(setq num (sslength tst))
(setq i 0)
(setq sc (getreal "\n缩放比例<0.5>:"))
(if (= sc nil)
(setq sc 0.5)
)
(repeat num ;循环
(setq tname (entget (ssname tst i))) ;第I个实体
;(setq yx (cdr (assoc 10 tname)))
(setq bjr1 (cdr (assoc 40 tname)) ;半径
bjr1 (* bjr1 sc)
) ;变换后的半径
(setq tname (subst (cons 40 bjr1) (assoc 40 tname) tname))
(entmod tname) ;更新实体信息
(setq i (+ i 1))
)
(princ)
)
供楼上的参考

长青藤工具箱中“修改”－“批量缩放实体”可以实现。
http://co.163.com/forum/content/1680_1074556_1.htm