社区 › AutoLISP/Visual LISP 编程技术 › 如何只过虑删除先选择集中的填充图案？线不删除？

andyhua 发表于 2020-10-15 16:10:18

如何只过虑删除先选择集中的填充图案？线不删除？

本帖最后由 andyhua 于 2020-10-15 16:16 编辑

(defun c:tt (/ cm ss ps ee_err0)
(princ "\n*** 删除Hatch填充图案 & Solid二维填充→|HATCH & SOLID| ***")
(setq ss (last (ssgetfirst)))
(if ss
    (sssetfirst nil)
    (progn
    (princ "\n选择|HATCH & SOLID|对象 <退出>:")
    (setq ss (ssget ":L" '((0 . "*hatch,solid"))))   ;新建一个选择集，过滤出其中的hatch和solid图案
    )
   )
(if ss
    (progn
      (command ".erase" ss "")
    )
)
(princ)
)

求高手们修改一下这个程序，如果图中有一上填充图案和LINE，我夹点选择后，输入TT，只想删除填充，LINE保留，如何做？现在是都会删除。谢谢

andyhua 发表于 2020-10-15 16:12:58

本帖最后由 andyhua 于 2020-10-15 16:17 编辑

(defun c:tt (/ cm ss ps ee_err0)
(princ "\n*** 删除Hatch填充图案 & Solid二维填充→|HATCH & SOLID| ***")
(setq ss (last (ssgetfirst)))
(if ss
    (sssetfirst nil)
    (progn
    (princ "\n选择|HATCH & SOLID|对象 <退出>:")
    (setq ss (ssget":L" '((0 . "*hatch,solid"))))   ;新建一个选择集，过滤出其中的hatch和solid图案
    )
   )
(if ss
    (progn
      (command ".erase" ss "")
    )
)
(princ)
)

andyhua 发表于 2020-10-26 16:59:22

没有人回复，顶起来

999999 发表于 2022-3-5 17:14:09

顶起来:loveliness::loveliness:

查看完整版本: 如何只过虑删除先选择集中的填充图案？线不删除？