次组件三态巨集

maguang

请各位朋友特别注意【Set Config = Application.SldWorks.ActiveDoc.GetActiveConfiguration】获取的是当前组态，而非当前组态名称喔～

依样画葫芦成功了。

想要按照SW的顺序"1.显示2.隐藏3.升级"而改了内容，但是发现"Inbom = InputBox("1 = 隐藏, 2 = 显示, 3 = 升级", "次组件三态设定", Inbom)"只是针对弹出视窗的内容，与组合件的三态不吻合，所以又改了回来。

请问：
10#的弹出视窗怎么做的，选择起来更方便了！也能显示当前的选择吗？
2.3 传回值我先看看，谢谢大佬特地找出连结来~
2.4 可行，已于4#补充
3.1
Set swApp = Application.SldWorks
Set mysw = Application.SldWorks
Set mydoc = mysw.ActiveDoc
Set mycofig = mydoc.GetActiveConfiguration
set myconfig = application.sldworks.activedoc.getactiveconfiguration
分别提取的资料为何？

tianyii

又改了回来。所说为何？

插入窗体，针对不同的要求，编写对应的程式码。

不用谢。

示范而已。

另请查找并回答以上还没回答的问题。