图元颜色的修改

hjin24 · 发表于 2018-10-21 23:32

如果图元的颜色随层，怎么通过下面的方法进行修改颜色。
(setq ent (entget(car(entsel))))
(setq ent (subst (cons 62 2) (assoc 62 ent) ent))
(entmod ent)

凨仴黯夜 · 发表于 2018-10-22 08:21

(vla-put-Color (vlax-ename->vla-object (car (entsel))) 2)

llsheng_73 · 发表于 2018-10-22 08:21

(entmod(append(entget(car(entsel)))'((62 . 2))))

gaics · 发表于 2018-10-22 08:12

本帖最后由 gaics 于 2018-10-22 08:20 编辑

(setq ent (entget(car(entsel))))
(entmod (reverse (cons (cons 62 2) (reverse ent))))

hjin24 · 发表于 2018-10-22 22:45

llsheng_73 发表于 2018-10-22 08:21
(entmod(append(entget(car(entsel)))'((62 . 2))))

用这种方法不用subst就能修改图元的图层和颜色，entmod图元后图层和颜色的数据直接替换之前的。请问下是不是可以用这种方法直接修改图元的属性。
(entmod(append ent '((8 . "0")) '((62 . 1))))

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

[源码] 图元颜色的修改