(if (setq ss (ssget '((0 . "ELLIPSE"))))
(progn
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq en (entget s1)
pt (cdr (assoc 10 en))
rr (caddr (assoc 11 en))
)
(command "circle" "non" pt rr)
)
(command "erase" ss "")
)
)
(princ)
)
页:
1
[2]