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

shxh24 · 发表于 2002-8-19 13:18:00

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

龙龙仔 · 发表于 2002-8-19 16:20:00

这类问题请到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)
)