sw隐藏所有零件坐标系的VBA

以下是隐藏所有零件坐标系的VBA代码：

Sub HidePartAxes()
    Dim swApp As Object
    Dim swModel As Object
    Dim swPart As Object
    Dim swFeatMgr As Object
    Dim swDispDim As Object
    Dim boolstatus As Boolean

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel
    Set swFeatMgr = swPart.FeatureManager

    ' 遍历所有零件特征
    Set swDispDim = swFeatMgr.FirstFeature
    Do While Not swDispDim Is Nothing
        ' 如果特征是坐标系，则隐藏
        If swDispDim.GetTypeName2 = "CoordinateSystem" Then
            boolstatus = swDispDim.Select2(False, 0)
            boolstatus = swApp.RunCommand(swCommands_HideShowComponentAxis, "")
        End If
        Set swDispDim = swDispDim.GetNextFeature
    Loop
End Sub

这段代码会遍历零件中的所有特征，如果特征是坐标系，则将其隐藏。请注意，这会完全隐藏所有坐标系，因此您可能需要在零件中添加额外的说明或注释来解释相关内容。