删除中心线的程序

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

谢谢大师们，有收获！

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