yxl88168 发表于 2011-3-28 20:22:02

删除中心线的程序

请教版主，有没有只删除中心线的程序呀，中心线颜色是红色(1)，线型是center.先谢谢了

Andyhon 发表于 2011-3-28 22:06:07

(command
"erase"
;; if not by Layer
(ssget "X" '((62 . 1) (6 . "CENTER")))
""
)

x_s_s_1 发表于 2011-3-28 22:07:30

(defun c:delc ()
(setq        ss (ssget "x"
                  '((-4 . "<or")
                  (6 . "CENTER")
                  (62 . 1)
                  (-4 . "or>")
                   )
           ) ;_ 结束ssget
) ;_ 结束setq

(command "_.erase" ss "")
(prin1)
) ;_ 结束defun

qingxiji 发表于 2011-3-29 12:26:29

   不懂，跟着学习学习....

lenlenq 发表于 2011-3-29 19:21:57

本帖最后由 lenlenq 于 2011-3-29 19:22 编辑

根据组码过滤线型与颜色

yxl88168 发表于 2011-3-29 20:17:12

谢谢大家的帮助，要是能选择后再删除就好了

yxl88168 发表于 2011-3-29 20:37:44

回复 x_s_s_1 的帖子

谢谢你的指教，请问有没有可以选择之后再删除的呀，你这个一次就把所有的都删除了。谢谢了

Gu_xl 发表于 2011-3-29 20:56:41

回复 yxl88168 的帖子

ssget 的"x"参数去掉即可！

yxl88168 发表于 2011-3-30 20:22:50

回复 yxl88168 的帖子

谢谢Gu_xl ，学习了

669423907 发表于 2011-6-6 01:55:54

谢谢大师们，有收获！
页: [1]
查看完整版本: 删除中心线的程序