Solidworks宏，使部件相对于组装轴旋转

1. 首先打开Solidworks软件，创建一个新的宏并命名为'RotateParts”。
2. 在宏编辑器中输入以下代码：

Sub RotateParts() Dim swApp As Object Dim swModel As Object Dim swPart As Object Dim swSelMgr As Object Dim swFeat As Object Dim swRefAxis As Object Dim swMathUtils As Object Dim swVector As Object Dim swEntity As Object Dim vPos As Variant Dim vRotate As Variant Dim dAngle As Double Dim i As Integer

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

If Not swModel Is Nothing Then
    If swModel.GetType = swDocPART Then
        Set swPart = swModel
        Set swSelMgr = swPart.SelectionManager
        
        vPos = swSelMgr.GetSelectedObjectPosition2(1, -1)
        vRotate = swSelMgr.GetSelectedObjectRotation3(1)
        Set swRefAxis = swSelMgr.GetSelectedObject6(1, -1)
        
        Set swMathUtils = swApp.GetMathUtility
        Set swVector = swMathUtils.CreateVector(vRotate(0), vRotate(1), vRotate(2))
        Set swEntity = swRefAxis.ReferenceEntity
        dAngle = swSelMgr.GetSelectionPoint2(1, -1)(0)
        
        For i = 1 To 360 Step dAngle
            swVector.RotateAboutAxis swRefAxis.Position, swEntity.Direction, dAngle
            swModel.ClearSelection2 True
            swSelMgr.AddSelection vPos, swSelMgr.GetReverseSelections
            swSelMgr.AddSelection2 swEntity
            swSelMgr.AddSelection2 swRefAxis
            swModel.Extension.Rotate3 swSelMgr.GetSelectedObject6(1, -1), False, swVector.ToArray, 0
            swModel.ClearSelection2 True
        Next i
    Else
        MsgBox "Please select a part document"
    End If
Else
    MsgBox "Please open a document"
End If

End Sub

3. 完成后保存并关闭编辑器。现在我们需要将宏添加到Solidworks界面中。在Solidworks界面中单击'工具”>'自定义”>'命令”，然后单击'新建宏”按钮并选择新创建的'RotateParts”宏。在工具栏或菜单栏中添加此宏。
4. 选择要旋转的部件并单