要改变对象的颜色，这样写对不对啊！！！

wufeimoller · 发表于 2010-7-19 22:04:00

(setq ys0 4 ys0 (cons 62 ys0) endata (subst ys0 ys endata))

要改变对象的颜色，这样写对不对啊！！！

Andyhon · 发表于 2010-7-19 22:31:00

(setq ys0 4
ys0 (cons 62 ys0)
endata (subst ys0 ys endata)
)

代码不全 ....
决定权在 Ys + entdata

对不对? 测一下即知

masterlong · 发表于 2010-7-19 22:38:00

(setq $ent (car (entsel)))
(if (assoc 62 (entget $ent))
(entmod (append (entget $ent) (list (cons 62 111))))
(entmod (subst (cons 62 3)(assoc 62 (entget $ent)) (entget $ent)))
)

or

(command "change" (car (entsel)) "" "p" "co" "BYLAYER" "")

masterlong · 发表于 2010-7-19 22:42:00

(cons 62 0) byblock

(cons 62 256) bylayer

lenlenq · 发表于 2010-7-26 15:45:00

(VLA-PUT-COLOR (vlax-ename->vla-object(car(entsel))) color)
color：0~256

liminnet · 发表于 2010-7-26 16:06:00

提示: 作者被禁止或删除内容自动屏蔽

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-7-26 16:06:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡