求教大神两个录制的宏怎么合成一个

我想为SOLIDWORKS钣金的平板形式定制一个快捷键，分别录制了解压平板形式和压缩平板形式两个宏，两个宏作为两个快捷键，这样钣金展开和折叠要使用两个快捷键，我想一键就实现展开和压缩，但不会合并这两段宏，求大神帮忙。下面是两个宏：
Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平板型式11", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSuppress2
boolstatus = Part.Extension.SelectByID2("平板型式", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
End Sub


Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平板型式", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("平板型式", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("平板型式11", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditUnsuppress2
boolstatus = Part.Extension.SelectByID2("平板型式", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
End Sub

试试这个,如用繁体要改名称

1. Dim swApp As Object
   
2. Dim part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim swSelMgr  As SldWorks.SelectionMgr
   
5. Dim swFeat    As SldWorks.Feature
   
6. Dim vConfNameArr  As Variant
   
7. Dim vSuppStateArr  As Variant
   
8. Dim i As Integer
   
9. 
   
10. 
    
11. 
    
12. Sub main()
    
13. 
    
14. Set swApp = Application.SldWorks
    
15. 
    
16. Set part = swApp.ActiveDoc
    
17. 
    
18. boolstatus = part.Extension.SelectByID2("平板型式1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    
19.   
    
20.   Set swSelMgr = part.SelectionManager
    
21. 
    
22.   Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
    
23. 
    
24.    vConfNameArr = part.GetConfigurationNames
    
25. 
    
26.     vSuppStateArr = swFeat.IsSuppressed2(swThisConfiguration, vConfNameArr)
    
27. 
    
28.   Debug.Assert 0 = UBound(vSuppStateArr)
    
29.    
    
30. 
    
31.    vSuppStateArr = swFeat.IsSuppressed2(swAllConfiguration, vConfNameArr)
    
32. 
    
33. Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)
    
34.    
    
35. 
    
36. vSuppStateArr = swFeat.IsSuppressed2(swSpecifyConfiguration, vConfNameArr)
    
37. Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)
    
38. 
    
39. For i = 0 To UBound(vConfNameArr)
    
40. 
    
41.         Debug.Print "    " & vConfNameArr(i) & " ---> " & vSuppStateArr(i)
    
42. 
    
43.     If (vSuppStateArr(i) = False) Then
    
44. 
    
45.     part.EditSuppress
    
46. 
    
47.      ElseIf (vSuppStateArr(i) = True) Then
    
48. 
    
49.      part.EditUnsuppress
    
50. 
    
51.     End If
    
52. 
    
53. Next i
    
54. 
    
55. part.ClearSelection2 True
    
56. 
    
57. End Sub
    

复制代码

运行后26行出错

"平板型式"名称不一致造成的

1. Dim swApp As Object
   
2. Dim part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim swSelMgr  As SldWorks.SelectionMgr
   
5. Dim swFeat    As SldWorks.Feature
   
6. Dim vConfNameArr  As Variant
   
7. Dim vSuppStateArr  As Variant
   
8. Dim i As Integer
   
9. Dim ii As Integer
   
10. Dim nn As Integer
    
11. 
    
12. Sub main()
    
13. Set swApp = Application.SldWorks
    
14. Set part = swApp.ActiveDoc
    
15. With part
    
16. nn = .FeatureManager.GetFeatureCount(True)
    
17. Set swFeat = .FirstFeature
    
18. Debug.Print swFeat.GetTypeName
    
19. For ii = 1 To nn - 1
    
20. Set swFeat = swFeat.GetNextFeature
    
21. Debug.Print swFeat.GetTypeName, swFeat.Name
    
22. If swFeat.GetTypeName = FlatPattern Then Exit For
    
23. Next ii
    
24. End With
    
25. 
    
26. boolstatus = part.Extension.SelectByID2(swFeat.Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '选择平板型式特征
    
27.   Set swSelMgr = part.SelectionManager
    
28.   Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
    
29. 
    
30.    vConfNameArr = part.GetConfigurationNames
    
31.    vSuppStateArr = swFeat.IsSuppressed2(swThisConfiguration, vConfNameArr)
    
32.   Debug.Assert 0 = UBound(vSuppStateArr)
    
33.    
    
34.    vSuppStateArr = swFeat.IsSuppressed2(swAllConfiguration, vConfNameArr)
    
35.     Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)
    
36.    
    
37. vSuppStateArr = swFeat.IsSuppressed2(swSpecifyConfiguration, vConfNameArr)
    
38. Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)
    
39. 
    
40. For i = 0 To UBound(vConfNameArr)
    
41. 
    
42.     Debug.Print "    " & vConfNameArr(i) & " ---> " & vSuppStateArr(i)
    
43.     If (vSuppStateArr(i) = False) Then
    
44.     part.EditSuppress
    
45.     ElseIf (vSuppStateArr(i) = True) Then
    
46.     part.EditUnsuppress
    
47.     End If
    
48. Next i
    
49. 
    
50. part.ClearSelection2 True
    
51. End Sub

复制代码

学习一下

pyczt 发表于 2016-7-28 11:44

试了一下，展开没问题，但是有些钣金零件折叠不回去，这是为什么？

MJ-Destiny 发表于 2016-7-28 17:01
试了一下，展开没问题，但是有些钣金零件折叠不回去，这是为什么？

上part 看下

做了一个简单的钣金件，试了一下五楼的宏代码，运行没问题。
谢谢pyczt大大共享源代码。