只显示一个零件的宏问题

zcyl · 发表于 2012-9-18 09:00:56

马上注册，结交更多同行朋友，交流，分享，学习。

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

x

录制了一个只显示一个零件的宏，但是只是显示那个特定的零件，如果选择了其它的一个零件，也是重复上一次结果，固定显示一个特定的零件，查看了VB的代码，它是把其它的所有零件一一附上.DesactivateDefaultShape ；

请问下有没有办法通过修改代码，可以显示任意选定（激活）的零件呢？

谢谢！！

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set product2 = products1.Item("SKL_03")

product2.DesactivateDefaultShape

Set product3 = products1.Item("SKL_04")

product3.DesactivateDefaultShape

Set product4 = products1.Item("PRT_05")

product4.DesactivateDefaultShape

End Sub