怎样把一部分点（几百个）变为圆，就是以这些点为圆心变为圆。
(defun c:op()(setq bj (getreal "\\n 请输入圆半径:"))
(setvar "osmode" 0)
(setq ss (ssget \'((0 . "point"))))
(setq len (sslength ss))
(setq n 0)
(command "undo" "begin")
(repeat len
(setq ent (ssname ss n))
(setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1))
(command "circle" yuanxin bj)
(setq n (+ 1 n))
)
(command "undo" "end")是这样的吗？如何应用？
页:
[1]