SolidWorks宏“复制配合”

要实现"复制配合"功能的SolidWorks宏，可以使用以下代码示例：

Option Explicit

Sub CopyMate()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swAssembly As SldWorks.AssemblyDoc
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swFeatureMgr As SldWorks.FeatureManager
    Dim swComp As SldWorks.Component2
    Dim swCompModel As SldWorks.ModelDoc2
    Dim swMateFeature As SldWorks.Mate2
    Dim swMateData As SldWorks.MateData2
    Dim swMateType As SldWorks.eMateType
    Dim swMateAlignment As SldWorks.eMateAlignType_e
    Dim swMateAngle As Double
    Dim swMateDistance As Double
    Dim swMateOffset As Double
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
        If swModel.GetType = swDocASSEMBLY Then
            Set swAssembly = swModel
            Set swSelMgr = swModel.SelectionManager
            Set swFeatureMgr = swModel.FeatureManager
            
            ' 选择并复制一个配合
            swSelMgr.EnableContourSelection = True
            swSelMgr.EnableMateSelection = True
            swSelMgr.EnableFaceSelection = False
            swSelMgr.EnableEdgeSelection = False
            swSelMgr.EnableVertexSelection = False
            
            swSelMgr.EnableSelection = True
            MsgBox "请按住Ctrl键选择一个配合"
            swSelMgr.EnableSelection = False
            
            If swSelMgr.GetSelectedObjectCount2(0) = 1 Then
                Set swComp = swSelMgr.GetSelectedObjectsComponent3(1, 0)
                Set swCompModel = swComp.GetModelDoc2
                Set swMateFeature = swSelMgr.GetSelectedObject6(1, 0)
                
                If Not swMateFeature Is Nothing Then
                    Set swMateData = swMateFeature.GetMateData2
                    
                    ' 设置配合类型和对齐方式
                    swMateType = swMateData.MateType
                    swMateAlignment = swMateData.Alignment
                    
                    ' 获取配合的角度、距离和偏移值
                    swMateAngle = swMateData.GetMateAngleValue(swMateAlignment)
                    swMateDistance = swMateData.GetMateDistanceValue(swMateAlignment)
                    swMateOffset = swMateData.GetMateOffsetValue(swMateAlignment)
                    
                    ' 在选定组件上创建一个新的配合
                    swMateFeature.Select2 False, 0
                    
                    swAssembly.EditAssembly
                    Set swMateFeature = swFeatureMgr.InsertMate3(swMateType, swMateAlignment, swMateAngle, swMateDistance, swMateOffset, False, False, False, False, False, False, 0, 0, 0)
                    swAssembly.ExitEditAssembly
                Else
                    MsgBox "所选对象不是配合"
                End If
            Else
                MsgBox "请选择一个配合"
            End If
        Else
            MsgBox "当前打开的文档不是装配体"
        End If
    Else
        MsgBox "没有打开的文档"
    End If
    
    Set swApp = Nothing
    Set swModel = Nothing
    Set swAssembly = Nothing
    Set swSelMgr = Nothing
    Set swFeatureMgr = Nothing
    Set swComp = Nothing
    Set swCompModel = Nothing
    Set swMateFeature = Nothing
    Set swMateData = Nothing
End Sub

这个宏会在当前活动的装配体文档中复制选定的配合，并在选定的组件上创建一个新的配合。你需要按住Ctrl键并选择一个配合来复制它。请注意，这个宏只能用于装配体文档。