[讨论]：帮忙看看这段代码，问题出在那里？

libo2000

这段代码在R14执行下毫无问题，可是在cad2004下就经常出现死循环(其他版本似乎也是一样的，没太用心测试)。
在p0点此只有一个实体et时候没问题，一旦有多个实体时候，r14没问题，cad2004就循环死了。

2. 
   
3.   [FONT=courier new]
   
4. ;;; 匹配点选对象
   
5. (defun chengs_ssgetPoint (p0 filter_list / et i result ss ss2)
   
6.         (chengs_error)
   
7.         (setq result (ssadd))
   
8.         (setq chengs_entdel (ssadd))
   
9.         ;(while (setq ss (ssget p0 filter_list))
   
10.         (while (setq ss (ssget p0))
    
11.                 (setq et (ssname ss 0))
    
12.                 (setq ss2 (ssget "P" filter_list))
    
13.                 (if ss2
    
14.                         (ssadd (ssname ss2 0) result)
    
15.                 ) ; endif
    
16.                 (ssadd et chengs_entdel)
    
17.                 ;(redraw et 2)
    
18.                 (entdel et)
    
19.         ) ; endwhile
    
20. 
    
21.         (setq i 0)
    
22.         (while (setq et (ssname chengs_entdel i))
    
23.                 (setq i (1+ i))
    
24.                 ;(redraw et 1)
    
25.                 (entdel et)
    
26.         ) ; endwhile
    
27.         (setq chengs_entdel nil)
    
28.         (if (> (sslength result) 0)
    
29.                 result
    
30.                 nil
    
31.         )
    
32. )
    
33. ;;; endfun chengs_ssgetpoint
    
34.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 匹配点选对象<br /> (defun chengs_ssgetPoint (p0 filter_list / et i result ss ss2)<br />         (chengs_error)<br />         (setq result (ssadd))<br />         (setq chengs_entdel (ssadd))<br />         ;(while (setq ss (ssget p0 filter_list))<br />         (while (setq ss (ssget p0))<br />                 (setq et (ssname ss 0))<br />                 (setq ss2 (ssget "P" filter_list))<br />                 (if ss2<br />                         (ssadd (ssname ss2 0) result)<br />                 ) ; endif<br />                 (ssadd et chengs_entdel)<br />                 ;(redraw et 2)<br />                 (entdel et)<br />         ) ; endwhile<br /> <br />         (setq i 0)<br />         (while (setq et (ssname chengs_entdel i))<br />                 (setq i (1+ i))<br />                 ;(redraw et 1)<br />                 (entdel et)<br />         ) ; endwhile<br />         (setq chengs_entdel nil)<br />         (if (> (sslength result) 0)<br />                 result<br />                 nil<br />         )<br /> )<br /> ;;; endfun chengs_ssgetpoint<br />   [/FONT]<br />

zhang8755

我在2004下试了一下，选择了多条线，没有死循环！

libo2000

并不是所有都会，随便新建一个.dwg没什么问题，
可是在工作中，dwg文件大小单位为M，有N个布局的情况下，很容易在陷入死循环中，while()前后加个princ 1,princ 2就能知道，是这个while的问题。
原本是采用redraw来隐藏实体，可是2004下经常不买帐，才改用entdel来实现，虽然比redraw要好点，可是还是出现问题。

原本在r14下工作中没问题，可是因为工作原因，需要在布局下绘图，才用2004，经常出现这个问题，太多程序用了这个函数，俺都头疼。。。。。

很简陋的方法就是只能把其他需要过滤的东东，自己先把他隐藏起来，程序才能得以顺利执行。

比如这个程序：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:zdz ( / arg lay ln1 ln1_ss p0 x)
   
5.         (chengs_error)
   
6.         (chengs_getvar)
   
7.         (chengs_fun "chengs_ctbl")
   
8.         (setq x (/ chengs_ctbl 100.0))
   
9.         (setq p0 (getpoint "\n 选择插入点： "))
   
10.         (setq arg (getangle p0 "\n 插入角度 ： "))
    
11.         (if (null arg) (setq arg 0))
    
12.         (setq ln1_ss (chengs_ssgetPoint p0 (list (cons 0 "*LINE")) ))
    
13.         (if ln1_ss
    
14.                 (progn
    
15.                         (setq ln1 (ssname ln1_ss 0))
    
16.                         (setq lay (cdr(assoc 8 (entget ln1))))
    
17.                         (setvar "clayer" lay)
    
18.                 ) ;endthen
    
19.         );endif
    
20.         (setq arg (chengs_pi2r arg))
    
21.         (if p0
    
22.                 (command ".insert" "./dwg/zdz.dwg" p0 x x arg)
    
23.         )
    
24.         (chengs_setvar)
    
25. );endfun
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:zdz ( / arg lay ln1 ln1_ss p0 x)<br />         (chengs_error)<br />         (chengs_getvar)<br />         (chengs_fun "chengs_ctbl")<br />         (setq x (/ chengs_ctbl 100.0))<br />         (setq p0 (getpoint "\n 选择插入点： "))<br />         (setq arg (getangle p0 "\n 插入角度 ： "))<br />         (if (null arg) (setq arg 0))<br />         (setq ln1_ss (chengs_ssgetPoint p0 (list (cons 0 "*LINE")) ))<br />         (if ln1_ss<br />                 (progn<br />                         (setq ln1 (ssname ln1_ss 0))<br />                         (setq lay (cdr(assoc 8 (entget ln1))))<br />                         (setvar "clayer" lay)<br />                 ) ;endthen<br />         );endif<br />         (setq arg (chengs_pi2r arg))<br />         (if p0<br />                 (command ".insert" "./dwg/zdz.dwg" p0 x x arg)<br />         )<br />         (chengs_setvar)<br /> );endfun<br />   [/FONT]<br />