编个小lisp，当选择实体超过一定数量就会卡住

xyp1964

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

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

lsjj

Command:我好冤啊!

1993063

lsjj 发表于 2013-12-19 13:53
Command:我好冤啊!

command有时也快呀

fjb007

都是大神，想你们学习

xiaobaixiaobu

学习了！！！

yx5277

command有时最易懂，速度却最慢