改变装配体零件颜色的宏

answerjue · 发表于 2013-3-30 11:21:00

经典图书

改变装配体零件颜色的宏
sw2012
零件

227l2c9ft4 · 发表于 2013-3-30 11:24:30

我一般在零件里就改好颜色了

zy1211 · 发表于 2013-3-30 11:27:46

经典图书

试试看！！！！！！！！！！！

iefly · 发表于 2013-3-30 11:29:54

试试看

j1qsphj7oo · 发表于 2013-3-30 11:34:17

经典案例图书

你这个与大侠的有何区别？

枕头男孩 · 发表于 2013-3-30 11:34:43

我是2010，可惜没有反应，也不知道为什么？其他的宏有时在这台机上不能用在另外一台机上又可以。费解

喷气式直升机 · 发表于 2013-3-30 11:35:07

经典案例图书

这个宏还要密码保护？

lieying86 · 发表于 2013-3-30 11:35:45

2010版的SW能不吗？

lan047 · 发表于 2013-3-30 11:36:07

因为引用是2012版,所以不能..

che-zp · 发表于 2013-3-30 11:36:26

经典图书

可精确调节每个零件的颜色...

yxp · 发表于 2013-3-30 11:38:22

zhangwb01 · 发表于 2013-3-30 11:39:07

7楼说有密码保护
还有sw2013或者将来版本是否可用？

rickylal · 发表于 2013-3-30 11:42:49

先下来试试 ...

000 · 发表于 2013-3-30 11:45:52

我sw2013sp2的可以运行

lucklhz · 发表于 2013-3-30 11:48:32

加入QQ群
参与讨论和学习

或扫描二维码加入

又学新知识了

daqian365 · 发表于 2013-3-30 11:50:38

经典案例图书

楼主代码够长的
公布关键代码
aaa = True
For i = 1 To UBound(fileFeatureName, 2)
   MyHexColor = (Hex(LabelString(i).BackColor))
If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then
      fileFeatureName(1, i - 1) = Dec1
      fileFeatureName(2, i - 1) = Dec2
      fileFeatureName(3, i - 1) = Dec3
End If
Next i
Unload AutoColorForm