[求助]：将圆及里面的数字以圆心按比例缩小

yxsjlyj

PKPM生成的板配筋图板编号我有些闲大，想批量以各自圆心按比例缩小，有谁可以帮我编个小程序？谢谢！

zxq0220

[php]
;晓东 zxq0220 2006.10
(DEFUN C:SCCIRCLE ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(COMMAND ".UNDO" "BE")
(SETQ SC (GETDIST "\nEnter The Scale :"))
(IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
  (SETQ N -1)
  (REPEAT (SSLENGTH SS)
   (SETQ EN (SSNAME SS (SETQ N (1+ N)))
         ENT (ENTGET EN)
         PC (CDR (ASSOC 10 ENT))
         R (CDR (ASSOC 40 ENT))
         P1 (POLAR (POLAR PC 0 R) (/ PI 2) R)
         P2 (POLAR (POLAR PC PI R) (/ PI -2) R))
   (COMMAND "SCALE" EN "W" P1 P2 "" PC SC)
  )
))
(COMMAND ".UNDO" "E")
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

yxsjlyj

非常感谢楼上大侠

ji3499222

我不懂程序，不知该如何加载使用。