请教高手，该段程序哪里出错了，请教

sjw8304

(defun c:xx()
  (setq zx-ent (ssget ))
   (setq zx-ls (ssadd))    ;设置空选集
   (setq zx-n1 0)
   (repeat (sslength zx-ent)
    (if (= (cdr (assoc 0 (entget (ssname zx-ent zx-n1)))) "LINE")
      (PROGN
(setq zx-ls  (ssadd (ssname zx-ent zx-n1) zx-ls))
(setq zx-ent (ssdel (ssname zx-ent zx-n1) zx-ent))
)
      )
    (setq zx-n1 (1+ zx-n1))
)
  (princ zx-ent)
  (princ zx-ls)
      )

sjw8304

反复试验，出错的应该在(setq zx-ent (ssdel (ssname zx-ent zx-n1) zx-ent))，这句，请问是什么问题

ll_j

1. (defun c:xx ()
   
2.   (setq zx-ent (ssget))
   
3.   (setq zx-ls  (ssadd)                  ;设置空选集
   
4.         zx-ls2 (ssadd)                  ;setq可以连续写
   
5.         zx-n1  0
   
6.   )
   
7.   (repeat (sslength zx-ent)
   
8.     (if (= (cdr (assoc 0 (entget (setq en (ssname zx-ent zx-n1)))))
   
9.            "LINE"
   
10.         )
    
11.       (ssadd en zx-ls)
    
12.       (ssadd en zx-ls2)
    
13.     )
    
14.     (setq zx-n1 (1+ zx-n1))
    
15.   )
    
16.   (princ zx-ent)
    
17.   (princ zx-ls)
    
18.   (princ)
    
19. )

(defun c:xx ()<br />   (setq zx-ent (ssget))<br />   (setq zx-ls  (ssadd)                  ;设置空选集<br />         zx-ls2 (ssadd)                  ;setq可以连续写<br />         zx-n1  0<br />   )<br />   (repeat (sslength zx-ent)<br />     (if (= (cdr (assoc 0 (entget (setq en (ssname zx-ent zx-n1)))))<br />            "LINE"<br />         )<br />       (ssadd en zx-ls)<br />       (ssadd en zx-ls2)<br />     )<br />     (setq zx-n1 (1+ zx-n1))<br />   )<br />   (princ zx-ent)<br />   (princ zx-ls)<br />   (princ)<br /> )

几个问题：
1.对选择集的ssname操作，选择集在操作过程中应该保持不变，否则i值会和总长度不匹配。
2.选择集的变量和普通的变量不同，在使用ssadd和ssdel时会直接“修改”选择集本身，不需要使用setq来“回收”返回值。
3.如果仅仅要选择某种类型的选择集，可尝试ssget的过滤表。

ysq101

ll_j 发表于 2014-1-8 07:48
几个问题：
1.对选择集的ssname操作，选择集在操作过程中应该保持不变，否则i值会和总长度不匹配。
2.选 ...

ll_j    就是热心      而且详尽

sjw8304

非常感谢楼主，昨晚苦思冥想了一晚上，衷心感谢！