一个快速获得选择集实体表的方法

Lisphk

1. (if (setq ss (ssget))
   
2.   (setq        ents (vl-remove-if
   
3.                'listp
   
4.                (mapcar 'cadr (ssnamex ss))
   
5.              )
   
6.   )
   
7. )
   
8. 
   

(if (setq ss (ssget))<br />   (setq        ents (vl-remove-if<br />                'listp<br />                (mapcar 'cadr (ssnamex ss))<br />              )<br />   )<br /> )<br /> <br />

ycao

这个功能很有用，谢谢

eachy

在选集实体数量很多时，不是一个高效方法

Lisphk

eachy 发表于 2016-9-21 18:27

大师，能否给做个测试例子呢？

xvjiex

感谢分享一个快速获得选择集实体表的方法