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

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

顶起来

账号		自动登录	找回密码
密码			注册

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