把选中的圆替换为块~
本帖最后由 jianlin521 于 2012-6-2 23:29 编辑请高手帮忙，现在这个lisp ,运行中，如过用UCS 移动过坐标，它替换的块就会和所替换的圆偏很远~~~
(defun C:RM6 (/ ss i n ename edata pt)
(setq ss (ssget '((0 . "CIRCLE"))))
(if ss
(progn
(setq i -1 n (sslength ss))
(while (< (setq i (1+ i)) n)
(setq ename (ssname ss i))
(setq edata (entget ename))
(setq pt (cdr (assoc 10 edata)))
(command "insert" "M6" pT 1 1 0)
(entdel ename)))))
是真的把一个人全部的给遗失
页:
[1]