有这样的命令或函数吗：能将选择集转换成列表？

e2002

1. ;;--------------=={ SelectionSet -> Entities }==--------------;;
   
2. ;;                                                            ;;
   
3. ;;  Converts a SelectionSet to a list of Entities             ;;
   
4. ;;------------------------------------------------------------;;
   
5. ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
   
6. ;;------------------------------------------------------------;;
   
7. ;;  Arguments:                                                ;;
   
8. ;;  ss - Valid SelectionSet (Pickset)                         ;;
   
9. ;;------------------------------------------------------------;;
   
10. ;;  Returns:  List of Entity names, else nil                  ;;
    
11. ;;------------------------------------------------------------;;
    
12. 
    
13. (defun LM:ss->ent ( ss / i l )
    
14.     (if ss
    
15.         (repeat (setq i (sslength ss))
    
16.             (setq l (cons (ssname ss (setq i (1- i))) l))
    
17.         )
    
18.     )
    
19. )
    
20. 
    

;;--------------=={ SelectionSet -> Entities }==--------------;;<br /> ;;                                                            ;;<br /> ;;  Converts a SelectionSet to a list of Entities             ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright &#169; 2011 - <a href="http://www.lee-mac.com" target="_blank">www.lee-mac.com</a>       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  ss - Valid SelectionSet (Pickset)                         ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  List of Entity names, else nil                  ;;<br /> ;;------------------------------------------------------------;;<br /> <br /> (defun LM:ss->ent ( ss / i l )<br />     (if ss<br />         (repeat (setq i (sslength ss))<br />             (setq l (cons (ssname ss (setq i (1- i))) l))<br />         )<br />     )<br /> )<br /> <br />

mokson

以上的思路是：用 ssname 获取对象的图元名称，然后用 cons 再将它累加到列表中。

masterlong

lm的这个不是特别好
他没考虑选择集形成以后
其中图元被删除的情况

masterlong

我自己的
几乎适用各种情况吧

2. ;999公共函数
   
3. ;;选择集转为图元列表
   
4. (defun ss2list ( ss / n i elist )
   
5.         (cond
   
6.                 ((null ss) NIL)
   
7.                 ((and (= (type ss) 'Pickset) (null (sslength ss)))
   
8.                                 NIL
   
9.                 )
   
10.                 ((= (type ss) 'Pickset)
    
11.                         (setq n  (sslength ss)
    
12.                                         i n
    
13.                                         elist '()
    
14.                         )
    
15.                         (repeat n
    
16.                                 (setq i (1- i))
    
17.                                 ;;如果没有这个if，那么选择集中被删除的图元，也会被加入到列表之中————但是极其偶尔也有可能，图元不存在但是能entget（遇到过一次，原因不明，或许是CAD的BUG）
    
18.                                 (if (entget (ssname ss i))
    
19.                                         (setq elist (cons (ssname ss i) elist))
    
20.                                 )
    
21.                         )
    
22.                         elist
    
23.                 )
    
24.                 ((= (type ss) 'ename)
    
25.                         (list ss)
    
26.                 )
    
27.                 ((= (type ss) 'list)
    
28.                         (vl-remove-if-not ''((x) (and (= (type x) 'ename) (entget x))) ss)
    
29.                 )
    
30.                 ( T NIL )
    
31.         )
    
32. )

;999公共函数<br /> ;;选择集转为图元列表<br /> (defun ss2list ( ss / n i elist )<br />         (cond<br />                 ((null ss) NIL)<br />                 ((and (= (type ss) 'Pickset) (null (sslength ss)))<br />                                 NIL<br />                 )<br />                 ((= (type ss) 'Pickset)<br />                         (setq n  (sslength ss)<br />                                         i n<br />                                         elist '()<br />                         )<br />                         (repeat n<br />                                 (setq i (1- i))<br />                                 ;;如果没有这个if，那么选择集中被删除的图元，也会被加入到列表之中————但是极其偶尔也有可能，图元不存在但是能entget（遇到过一次，原因不明，或许是CAD的BUG）<br />                                 (if (entget (ssname ss i))<br />                                         (setq elist (cons (ssname ss i) elist))<br />                                 )<br />                         )<br />                         elist<br />                 )<br />                 ((= (type ss) 'ename)<br />                         (list ss)<br />                 )<br />                 ((= (type ss) 'list)<br />                         (vl-remove-if-not ''((x) (and (= (type x) 'ename) (entget x))) ss)<br />                 )<br />                 ( T NIL )<br />         )<br /> )

菜卷鱼

masterlong 发表于 2022-4-20 15:11
我自己的
几乎适用各种情况吧

我觉得Lee的那个就够了，程序跑起来是为了效率，
可能是使用环境不同，你的才需要这种判断，别的不需要判断的，就是多余的

菜卷鱼

我的是这么弄的，分散跟打包

1. ;;;;判断有没有选到对象
   
2. (defun ssgetp (ss)
   
3.   (and (= (type ss) 'PICKSET)
   
4.        (> (sslength ss) 0)
   
5.   )
   
6. )
   
7. ;;;;判断是否是存在的图元
   
8. (defun enamep (obj)
   
9.   (and (= (type obj) 'ENAME) (entget obj))
   
10. )
    
11. ;;;;选择集转列表
    
12. (defun sslist (ss / i lst)
    
13.   (setq i -1)
    
14.   (if (ssgetp ss)
    
15.     (repeat (sslength ss)
    
16.       (setq lst (cons (ssname ss (setq i (1+ i))) lst))
    
17.     )
    
18.   )
    
19.   (reverse lst)
    
20. )
    
21. ;;;;列表转选择集
    
22. (defun sspack (lst / pack)
    
23.   (setq pack (ssadd))
    
24.   (foreach x lst
    
25.     (if  (enamep x)
    
26.       (setq pack (ssadd x pack))
    
27.     )
    
28.   )
    
29.   pack
    
30. )

;;;;判断有没有选到对象<br /> (defun ssgetp (ss)<br />   (and (= (type ss) 'PICKSET)<br />        (> (sslength ss) 0)<br />   )<br /> )<br /> ;;;;判断是否是存在的图元<br /> (defun enamep (obj)<br />   (and (= (type obj) 'ENAME) (entget obj))<br /> )<br /> ;;;;选择集转列表<br /> (defun sslist (ss / i lst)<br />   (setq i -1)<br />   (if (ssgetp ss)<br />     (repeat (sslength ss)<br />       (setq lst (cons (ssname ss (setq i (1+ i))) lst))<br />     )<br />   )<br />   (reverse lst)<br /> )<br /> ;;;;列表转选择集<br /> (defun sspack (lst / pack)<br />   (setq pack (ssadd))<br />   (foreach x lst<br />     (if  (enamep x)<br />       (setq pack (ssadd x pack))<br />     )<br />   )<br />   pack<br /> )

masterlong

我的程序里
很多并不是【选择完以后立即顺序处理】
ss2list的对象也比较杂乱
所以需要有各种判断
其实cond也就是一次的事
影响不大

masterlong

理解通透了
怎么做都可以

就说转表效率低
的确不如repeat高效
如果需要应对几百上千万
肯定要考虑效率
但是几百几千的循环次数
能有多大区别呢
0.2秒？
这时候我考虑的首先是代码简单

zghmaya

很不错呀 感谢分享

mokson

大伽如云呀,得好好地学习学习.