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

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

就是获取用户选择的颜色，默认是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 static/image/common/back.gif
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 static/image/common/back.gif
(getvar 'cecolor)

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

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

msgbox ThisDrawing.GetVariable("cecolor")
页: [1]
查看完整版本: 【求助】关于获取CAD当前颜色。百度实在不到来此伸手啊。贵人助我啊