颜色？

xiaoliu · 发表于 2004-3-3 21:40:00

大家帮忙看看这句话为什么修改不了实体的颜色呢
   (setq e1 (entget e))
   (subst (list 62 2) (assoc 62 e1) e1)
   (redraw e 1)

王咣生 · 发表于 2004-3-3 21:49:00

登录/注册后可看大图

这样呢?
   (setq e1 (entget e))
   (setq e1 (subst (cons 62 2) (assoc 62 e1) e1))
   (entmod e1)

meflying · 发表于 2004-3-3 21:50:00

有很多原因
1、要使用(cons 62 2)而不能用LIST
2、可能的原因，就是原来的颜色是默认，在组码中就不会出现，因此你就不能替换，而必须使用添加(append (cons 62 2) e1)，所以你要先判断一下，有就用你的，没有就用上面的
3、做完之后要回传给e1，否则e1就没有任何改变，你也就白做了(setq e1 (append ...))或(setq e1 (subst ...))
4、修改完组码之后要修改对象，否则你仅仅是修改了一个变量e1，跟对象没有任何关系，要使用(entmod e1)