xyp1964 发表于 2013-12-19 20:55:42

(defun c:tt ()
(setq bn (getstring "\n请输入需要替换的块名，默认块名为“PT”: "))
(if (= bn "")
    (setq bn "PT")
)
(prompt "\n请选择要转换的物体: ")
(setq        ss (ssget '((0 . "CIRCLE,ARC")))
        i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt (cdr (assoc 10 (entget s1))))
    (command "insert" bn "non" pt 1 1 0)
)
(command "erase" ss "")
(princ)
)

lsjj 发表于 2013-12-20 07:53:28

Command:我好冤啊!

1993063 发表于 2013-12-20 16:56:14

lsjj 发表于 2013-12-19 13:53 static/image/common/back.gif
Command:我好冤啊!

command有时也快呀

fjb007 发表于 2014-11-15 08:58:03

都是大神，想你们学习

xiaobaixiaobu 发表于 2014-11-16 10:54:06

学习了！！！

yx5277 发表于 2014-11-16 11:01:12

command有时最易懂，速度却最慢
页: 1 [2]
查看完整版本: 编个小lisp，当选择实体超过一定数量就会卡住