钣金展开折叠宏程序，请大神指教下

dushenglong

Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平板型式1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
longstatus = Part.SetBendState(2)
boolstatus = Part.EditRebuild3()
End
此为SW展开的宏命令
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平板型式1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
longstatus = Part.SetBendState(3)
boolstatus = Part.EditRebuild3()
End Sub
此为SW折叠的宏命令
要求为将此2种方式编译在一个宏命令中，设置成快捷键如Q，按一下Q为展开，再按一下Q为折叠，请哪位懂宏命令的帮忙编译一下，不胜感激。
很显然我已经试过将2种放在一起过，但是运行起来结果就是展开后立马自动折叠了，有谁会的帮帮忙？

lannister-v

有点难度，坐等高手

dushenglong

还是没有人会吗？

design100

1. 如果是用宏操作每次要在运行程序的情况下才可以触发事件（个人认为不合理）.
2. 用程序给定快捷键那就要给定键盘事件，比如（KeyPress | KeyDown）这些事件都是可行的.
快捷键可以选择在（工具|自定义|键盘|里面设置展开和折叠的快捷命令）

dushenglong

   经典案例图书

design100 发表于 2016-4-2 10:53
1. 如果是用宏操作每次要在运行程序的情况下才可以触发事件（个人认为不合理）.
2. 用程序给定快捷键那就 ...

朋友，你所说的展开，折叠快捷键其实我知道，但你所指的展开跟折叠是要收集所有折弯才可以展开。这样多了一步收集折弯的操作。