iCAx开思网

标题: 求教大神两个录制的宏怎么合成一个 [打印本页]
作者: MJ-Destiny    时间: 2016-7-27 16:29
标题: 求教大神两个录制的宏怎么合成一个
我想为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

作者: pyczt    时间: 2016-7-28 00:26
本帖最后由 pyczt 于 2016-7-28 08:13 编辑

试试这个,如用繁体要改名称
  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



  12. Sub main()

  14. Set swApp = Application.SldWorks

  16. Set part = swApp.ActiveDoc

  18. boolstatus = part.Extension.SelectByID2("平板型式1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
  19.   
  20.   Set swSelMgr = part.SelectionManager

  22.   Set swFeat = swSelMgr.GetSelectedObject6(1, -1)

  24.    vConfNameArr = part.GetConfigurationNames

  26.     vSuppStateArr = swFeat.IsSuppressed2(swThisConfiguration, vConfNameArr)

  28.   Debug.Assert 0 = UBound(vSuppStateArr)
  29.    

  31.    vSuppStateArr = swFeat.IsSuppressed2(swAllConfiguration, vConfNameArr)

  33. Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)
  34.    

  36. vSuppStateArr = swFeat.IsSuppressed2(swSpecifyConfiguration, vConfNameArr)
  37. Debug.Assert UBound(vSuppStateArr) = UBound(vConfNameArr)

  39. For i = 0 To UBound(vConfNameArr)

  41.         Debug.Print "    " & vConfNameArr(i) & " ---> " & vSuppStateArr(i)

  43.     If (vSuppStateArr(i) = False) Then

  45.     part.EditSuppress

  47.      ElseIf (vSuppStateArr(i) = True) Then

  49.      part.EditUnsuppress

  51.     End If

  53. Next i

  55. part.ClearSelection2 True

  57. End Sub
复制代码

作者: MJ-Destiny    时间: 2016-7-28 09:27
运行后26行出错
作者: pyczt    时间: 2016-7-28 11:18
"平板型式"名称不一致造成的

作者: pyczt    时间: 2016-7-28 11:44
  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

  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

  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)

  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)

  40. For i = 0 To UBound(vConfNameArr)

  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

  50. part.ClearSelection2 True
  51. End Sub
复制代码


作者: gmweber    时间: 2016-7-28 15:43
学习一下
作者: MJ-Destiny    时间: 2016-7-28 17:01
pyczt 发表于 2016-7-28 11:44

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

上part 看下
作者: dreamsboy    时间: 2016-8-2 18:16
做了一个简单的钣金件，试了一下五楼的宏代码，运行没问题。
谢谢pyczt大大共享源代码。



欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3