社区 › AutoLISP/Visual LISP 编程技术 › 写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化

phoevana 发表于 2012-11-24 13:17:36

学习了，mark

vvcd 发表于 2013-8-1 13:08:54

好东西，现在才看到，顶

三尖树之觉醒 发表于 2016-1-6 09:06:40

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

知行ooo李肖坪 发表于 2016-1-6 13:13:26

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

水仙的错 发表于 2016-2-19 11:13:49

不懂怎么用这个

lijiao 发表于 2016-2-19 16:12:03

凑个热闹(defun New-ssget (filters / SS X)
(if (setq ss (ssget))
    (mapcar '(lambda(x)
          (sssetfirst nil ss)
         (ssget (list (cons 0 x)))
         )
      filters)
    )
)例子：
(NEW-SSGET '("line" "circle" "arc"))
(<Selection set: a6> <Selection set: aa> <Selection set: ae>)

mycad 发表于 2016-2-20 08:34:25

很好，学习了，谢谢！

hnfsf 发表于 2017-12-7 11:51:00

写得太好了！！！

依然小小鸟 发表于 2018-9-27 23:49:38

好帖子学习一下

木个木 发表于 2020-3-9 16:54:35

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

查看完整版本: 写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化