怎么样进行多重筛选

eechenchun

我有一个图层  为  图层1  这个图层里面有文字 直线 圆 也有多种颜色

请问我想实现 在这个删除这个图层里面 黄色的直线  和删除这个图层里面红色的长度小于5直线  要怎么弄

eechenchun

写写大家的帮助

终于还是解决了

• (defun c:t (/ doc ss)
•   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
•   (setq ss (ssget "_X" '((8 . "Part"))))
•   (if ss
•     (progn
•       (setq count 0)
•       (vlax-for ent (vla-get-modelspace doc)
•         (if (and (= (vla-get-objectname ent) "AcDbLine")
•                  (= (vla-get-color ent) 2) ; 2为黄色
•                  (< (vla-get-length ent) 10.0);长度小于10
•                  (> (vla-get-length ent) 4.0))
•           (progn
•             (vla-delete ent)
•             (setq count (1+ count))
•           )
•         )
•       )
•       (princ (strcat "删除 " (itoa count) " 个对象"))
•     )
•     (princ "没有找到实体")
•   )
•   (princ)
• )
  

自贡黄明儒

小蜜蜂那个ssget的贴子，算是很齐全的了。
但有些没有过滤组码，如长度。
黄色，本身黄色可以组码62过滤，但如果是随层，就过滤不了了。
所以，还是一个一个判断吧，想什么条件都行。

sniper1111

自贡黄明儒 发表于 2024-7-29 14:51
小蜜蜂那个ssget的贴子，算是很齐全的了。
但有些没有过滤组码，如长度。
黄色，本身黄色可以组码62过滤 ...

到老回复的有高度，又学习了。

Bao_lai

ssget -4.or

tranque

突然想起小菜选择易

你有种再说一遍

并行遍历句柄,获取相关信息构造索引,然后爱怎么删怎么删

技术工作室

学无止境，思维各异

shirker

备用收藏，支持一下！

战神凯哥

CAD  qse命令，轻松解决