关于互换两个实体颜色的程序

chen7560152

想请教下大神们，相同或不同图层的实体，能否通过一个命令 使得这两个实体的颜色对调，这样能实现吗？

kmliro_2017

谢谢分享！！！！！

wx302008008

1. (defun c:rrr ( / ent1 ent2)
   
2.         (setq ent1 (entget (car (entsel "选择要对调颜色的第一个对象！")))
   
3.                   ent2 (entget (car (entsel "选择要对调颜色的第二个对象！")))
   
4.         )
   
5.         (entmod (subst (cons 62 (cdr (assoc 62 ent1))) (assoc 62 ent2) ent2))
   
6.         (entmod (subst (cons 62 (cdr (assoc 62 ent2))) (assoc 62 ent1) ent1))
   
7.         (princ)
   
8. )

(defun c:rrr ( / ent1 ent2)<br />         (setq ent1 (entget (car (entsel "选择要对调颜色的第一个对象！")))<br />                   ent2 (entget (car (entsel "选择要对调颜色的第二个对象！")))<br />         )<br />         (entmod (subst (cons 62 (cdr (assoc 62 ent1))) (assoc 62 ent2) ent2))<br />         (entmod (subst (cons 62 (cdr (assoc 62 ent2))) (assoc 62 ent1) ent1))<br />         (princ)<br /> )

chen7560152

wx302008008 发表于 2020-5-3 13:51

谢谢大神忘记回复你了