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

图元颜色的修改

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

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

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

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

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

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

本帖最后由 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:57

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

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