改变物体颜色

snsj · 发表于 2013-6-8 15:24:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 snsj 于 2013-6-8 15:27 编辑

entmod无法改变一个物体的颜色，用VLA方法实现
[pcode=lisp,true]
;;;改变物体颜色by  snsj
(defun apple-chgcolor (vla cor /)
(if(vlax-property-available-p vla "Color" T)
  (vlax-put-property vla 'Color cor)
  )
  )
[/pcode]
;;;测试
(apple-chgcolor(vlax-ename->vla-object(car(entsel))) 188)

XDSoft · 发表于 2013-6-8 15:40:00

发帖时候选函数发布吧。

QiaoCheng · 发表于 2013-6-8 15:46:54

试了下，对块无效

snsj · 发表于 2013-6-8 17:10:45

你是说块内物体吧，这个只是改变了整个块实体的颜色

st788796 · 发表于 2013-6-8 19:12:45

如果要想insert的颜色任意改，将块定义内所有实体颜色置为byblock

Lispboy · 发表于 2013-6-8 19:44:28

楼主，什么时候entmod改不了实体的颜色？给举个例子啊。

snsj · 发表于 2013-6-8 22:35:17

本帖最后由 snsj 于 2013-6-8 22:49 编辑

颜色属性由62组码组成，但这个组码初始状态下当物体颜色随层的时候是不存在的，
(defun pzm (nwzm y obj /)
(entmod(subst(cons y nwzm)(assoc y (entget obj))
(entget obj)))
)
是以前定义的一个EnTMOD函数的问题，如果碰到物体随层时候要改成
(entmod(cons(cons y nwzm)
(entget(car(entsel)))))

Free-Lancer · 发表于 2013-6-9 05:32:43

需要append新组码到最后来自: Android客户端

bloodtempt · 发表于 2014-12-10 15:10:17

楼主辛苦了，谢谢分享

xvjiex · 发表于 2021-7-29 00:03:44

感谢楼主分享改变物体颜色

ynpxqjlb · 发表于 2023-1-12 10:27:02

学习一下~~~~

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

[每日一码] 改变物体颜色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分