根据交柱数量去除短线，问题出现在哪里

飞雪神光

1. (defun c:aa (/ ent i num pt10 pt11 ss ssi ty)
   
2.         (setq ss (ssget "X" '((0 . "line")(8 . "beam"))))
   
3.         (setq i 0)
   
4.         (setq num (sslength ss))
   
5.         (repeat num
   
6.                 (progn
   
7.                         (setq
   
8.                                 ty (ssname ss i)
   
9.                                 ent (entget ty)
   
10.                                 pt10 (cdr (assoc 10 ent))
    
11.                                 pt11 (cdr (assoc 11 ent))
    
12.                         )
    
13.                         (setq ssi (ssget "F" (list pt10 pt11) '((8 . "colu"))));
    
14.                         (if (and ssi (= (sslength ssi) 1))
    
15.                                 (entdel ty)
    
16.                         )
    
17.                         (setq i (1+ i))
    
18.                 )
    
19.         )
    
20.         (princ)
    
21. )

(defun c:aa (/ ent i num pt10 pt11 ss ssi ty)<br />         (setq ss (ssget "X" '((0 . "line")(8 . "beam"))))<br />         (setq i 0)<br />         (setq num (sslength ss))<br />         (repeat num<br />                 (progn<br />                         (setq<br />                                 ty (ssname ss i)<br />                                 ent (entget ty)<br />                                 pt10 (cdr (assoc 10 ent))<br />                                 pt11 (cdr (assoc 11 ent))<br />                         )<br />                         (setq ssi (ssget "F" (list pt10 pt11) '((8 . "colu"))));<br />                         (if (and ssi (= (sslength ssi) 1))<br />                                 (entdel ty)<br />                         )<br />                         (setq i (1+ i))<br />                 )<br />         )<br />         (princ)<br /> )