写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化

phoevana

学习了，mark

vvcd

好东西，现在才看到，顶

三尖树之觉醒

对于CAD搜索指定文字附近的指定文字如何实现啊啊

知行ooo李肖坪

新手学习中，谢谢…………

水仙的错

不懂怎么用这个

lijiao

凑个热闹

2. (defun New-ssget (filters / SS X)
   
3.   (if (setq ss (ssget))
   
4.     (mapcar '(lambda(x)
   
5.           (sssetfirst nil ss)
   
6.          (ssget (list (cons 0 x)))
   
7.          )
   
8.       filters)
   
9.     )
   
10.   )

(defun New-ssget (filters / SS X)<br />   (if (setq ss (ssget))<br />     (mapcar '(lambda(x)<br />           (sssetfirst nil ss)<br />          (ssget (list (cons 0 x)))<br />          )<br />       filters)<br />     )<br />   )

例子：
(NEW-SSGET '("line" "circle" "arc"))
(<Selection set: a6> <Selection set: aa> <Selection set: ae>)

mycad

很好，学习了，谢谢！

hnfsf

写得太好了！！！

依然小小鸟

好帖子  学习一下

木个木

刚刚好用上  谢谢楼主！！！