(XD::SS:Ents)获取选择集实体表

newer

958620832 发表于 2013-11-24 13:10
不是加（if ss），而是改成（if ss)，understand?
楼主都已经在程序之前说明了，ss就是选择集（如附图所 ...

如果仅仅是 (ssget)后，调用本函数，那么一般都知道，不过还有很多情况是程序执行中生成的临时选择集，这个是否正确就是未知，比如可能是NIL，所以加个过滤或者给出更多的提示信息有必要。
写程序不要只想大多数情况，还要考虑那些可能出现的未知情况，让未知情况可控。

st788796

没必要判断，自行检查合理性

1. (defun SS->Ents        (ss / e i el)
   
2.   (setq i (sslength ss))
   
3.   (while (setq e (ssname ss (setq i (1- i))))
   
4.     (setq el (cons e el))
   
5.   )
   
6.   el
   
7. )

(defun SS->Ents        (ss / e i el)<br />   (setq i (sslength ss))<br />   (while (setq e (ssname ss (setq i (1- i))))<br />     (setq el (cons e el))<br />   )<br />   el<br /> )

xyp1964

2. (defun SS2List (ss / i s1 lst)
   
3.   (cond        ((= (type ss) 'PICKSET)
   
4.          (setq i -1)
   
5.          (while        (setq s1 (ssname ss (setq i (1+ i))))
   
6.            (setq lst (cons s1 lst))
   
7.          )
   
8.         )
   
9.         ((= (type ss) 'ENAME) (setq lst (cons ss lst)))
   
10.         ((= (type ss) 'LIST)
    
11.          (foreach s1 ss (setq lst (append (SS2List s1) lst)))
    
12.         )
    
13.   )
    
14.   (reverse lst)
    
15. )

(defun SS2List (ss / i s1 lst)<br />   (cond        ((= (type ss) 'PICKSET)<br />          (setq i -1)<br />          (while        (setq s1 (ssname ss (setq i (1+ i))))<br />            (setq lst (cons s1 lst))<br />          )<br />         )<br />         ((= (type ss) 'ENAME) (setq lst (cons ss lst)))<br />         ((= (type ss) 'LIST)<br />          (foreach s1 ss (setq lst (append (SS2List s1) lst)))<br />         )<br />   )<br />   (reverse lst)<br /> )

kkt123

获取选择集实体表:o:L

dyjwyqz5221

用(xdrx_pickset->ents ss)函数可以吧