次组件三态巨集

heflcl

假设翔仔有兴趣探讨，大佬继续说明吧。
***如果大佬假设错误，以下文章可以不理。***


使用函数 ChildComponentDisplayInBOM，先要取得 Configuration 。
取得 Configuration 的语句如下：
Set Config = Application.SldWorks.ActiveDoc.GetActiveConfiguration

整个巨集如下：
Dim Config As Object
Dim InBom As String
Sub main()
Set Config = Application.SldWorks.ActiveDoc.GetActiveConfiguration
InBom = Config.ChildComponentDisplayInBOM
InBom = InputBox("1 = 隐藏,  2=显示,  3 = 升级", "次组件的三态设定", InBom)
Config.ChildComponentDisplayInBOM = InBom
End Sub

这样就可以利用 InputBox 设定 并 查询次组件的三态。
可是，在 InputBox 输入非 1、2、3 的字符就可能报错，自己用尚可，给别人使用可能引来咒骂。


建议使用逻辑语句避开这类报错。
倘若翔仔有兴趣探讨才继续讨论吧，免得又一次变成一厢情愿的闷讨论。