求助 lisp

meflying

7楼的已经是窗选了，仔细看一下差别

leeyuan

可否将该程序修改一下，将原有的圆去掉呢

Andyhon

(defun c:test( / x y ss i pt)
(setq x (GETREAL "输入直径x: "))
(setq y (GETREAL "输入直径y: ")

y (/ y 2)

)
(setq ss (ssget "x" (list '(0 . "circle") (cons 40 (/ X 2)))))
(setq i 0)

(cond

((null ss))

(T
(repeat (sslength ss) (setq dat (entget (ssname ss i)))
(entmod (subst (cons 40 y) (assoc 40 dat) dat))
(setq i (1+ i))
)))
(princ)
)