【求助】关于获取CAD当前颜色。百度实在不到来此伸手啊。贵人助我啊

彩虹VB · 发表于 2016-1-19 14:29:13

就是获取用户选择的颜色，默认是acbylayer，但是如果切换了颜色，怎么获取这个颜色值呢。

琴剑江山_10184 · 发表于 2016-1-19 14:50:57

(getvar 'cecolor)

373294296 · 发表于 2016-1-19 23:21:08

objet,color=1

彩虹VB · 发表于 2016-1-20 09:43:12

373294296 发表于 2016-1-19 23:21
objet,color=1

不行呀
我是这样的：
Set PickedTextObj = PickedObj.Copy
PickedTextObj.Layer = 我的图层
PickedTextObj.Color = 1
我是复制对象后，然后把颜色、线宽、线形设置为当前空间的样式。如果是add方法就没问题。可是copy就不行
帮忙指点一下

彩虹VB · 发表于 2016-1-20 09:44:39

琴剑江山_10184 发表于 2016-1-19 14:50
(getvar 'cecolor)

是vba不是lisp呀。看下楼下的回复。帮忙提点一下

zzyong00 · 发表于 2016-1-22 17:20:54

msgbox ThisDrawing.GetVariable("cecolor")

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

【求助】关于获取CAD当前颜色。百度实在不到来此伸手啊。贵人助我啊

本帖子中包含更多资源