求求各位高手帮忙改一下程序。删除黄色图元

ninja37 · 发表于 2020-3-24 22:28

求求各位高手帮忙改一下程序。删除黄色图元
;;;;;;;选颜色    删除图元
(defun c:ES4(/ ssys4)(princ "\n删除选取的黄色图元")
  (if
(setq ssys4 (ssget '((-4 . "<or") (62 . 2) (-4 . "or>"))))
(command "erase"  "ssys4")
)
(princ)
)

x_s_s_1 · 发表于 2020-3-24 22:54

本帖最后由 x_s_s_1 于 2020-3-24 22:55 编辑

;;;光颜色不区分图元类型，删除(assoc 0 ent)
;;;拾取特征颜色
(defun c:sbc (/ en ent ss)
(setq en (car (entsel "\n拾取特征颜色（非随层）:"))
ent (entget en)
)
(if (assoc 62 ent)
(progn (prompt "\n框选:")
(setq ss (ssget (list (assoc 0 ent) (assoc 62 ent))))
(sssetfirst nil ss)
)
)
)

jun353835273 · 发表于 2020-3-25 11:53

(defun c:ES4(/ ssys4)
(princ "\n删除选取的黄色图元")
(if
(setq ssys4 (ssget '((-4 . "<or") (62 . 2) (-4 . "or>"))))
(command "erase" ssys4 "")
)
(princ)
)

qijun0818 · 发表于 2020-4-17 16:09

(defun c:es4(/ ss)(if(setq ss(ssget(list(cons 62 2))))(vl-cmdf "ERASE" ss))(princ))

香远益清 · 发表于 2020-4-17 16:51

(defun c:es4(/ ss)
(prompt  "\n1-红色,2黄色,3绿色,4青色,5蓝色,6洋红色......")
(setq ysz (getint "\n请输入0~256 之间的自然数"))
(if
   (setq ss(ssget
                           (list
                              (cons 62 ysz)
                           )
                  )
   )
(command "erase" ss "")
)
(princ)
)

ninja37 · 发表于 2020-4-18 19:06

香远益清发表于 2020-4-17 16:51
(defun c:es4(/ ss)
(prompt "\n1-红色,2黄色,3绿色,4青色,5蓝色,6洋红色......")
(setq ysz (getint "\ ...

谢谢，兄弟，谢谢你帮忙

ninja37 · 发表于 2020-4-18 19:07

qijun0818 发表于 2020-4-17 16:09
(defun c:es4(/ ss)(if(setq ss(ssget(list(cons 62 2))))(vl-cmdf "ERASE" ss))(princ))

谢谢，兄弟，谢谢你帮忙

ninja37 · 发表于 2020-4-18 19:08

jun353835273 发表于 2020-3-25 11:53

谢谢，兄弟，谢谢你帮忙

ninja37 · 发表于 2020-4-18 19:08

x_s_s_1 发表于 2020-3-24 22:54

谢谢，兄弟，谢谢你帮忙

413248189 · 发表于 2020-5-8 10:14

有难度，新手来学习了

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

[提问] 求求各位高手帮忙改一下程序。删除黄色图元