lisp程序修改求助-->mccad转移

shxh24

我在网上下载的圆形同位缩放的lisp程序非常好用，但有一天我想改变用法的时候，却遇到了困难，（它只能按比例缩放，却不能指定半径缩放），望哪位高人帮忙。

龙龙仔

这类问题请到autolisp / visual lisp编程技术论坛发表
(defun C:TC (/ SSET SC SC1 SSLEN NT)
  (while (= SSET NIL)
    (prompt "\n选择要修改的圆:")
    (setq SSET (ssget '((0 . "CIRCLE"))))
  )
  (setq SC (getstring "\n输入半径(R)/<缩放比例>: "))
  (if (= SC "")
    (setq SC (getreal "\n缩放比例: "))
    (setq SC1 (getreal "\n输入半径: "))
  )
  (setq SSLEN (sslength SSET))
  (while (> SSLEN 0)
    (setq ENT (entget (ssname SSET (setq SSLEN (1- SSLEN)))))
    (if        (= SC1 NIL)
      (setq NT (* SC (cdr (assoc 40 ENT))))
      (setq NT SC1)
    )
    (entmod (subst (cons 40 NT) (assoc 40 ENT) ENT))
  )
  (princ)
)