SolidWorks隐藏装配体中的所有坐标系的VBA

以下是隐藏装配体中的所有坐标系的VBA代码：

Dim swApp As Object
Dim swModel As Object
Dim swAssem As Object
Dim swComp As Object
Dim swFeat As Object
Dim boolstatus As Boolean

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

' Loop through all components in the assembly
Set swComp = swAssem.FirstComponent
Do While Not swComp Is Nothing

    ' Loop through all features in the component
    Set swFeat = swComp.FirstFeature
    Do While Not swFeat Is Nothing
        If swFeat.GetTypeName2 = "COORDSYS" Then ' Check if the feature is a coordinate system
            boolstatus = swFeat.Select2(True, 0) ' Select the coordinate system
            If boolstatus Then ' If the coordinate system is selected
                swModel.Extension.HideDimensionDisplay True ' Hide the dimension display for the coordinate system
                swModel.ClearSelection2 True ' Clear the selection
            End If
        End If
        Set swFeat = swFeat.GetNextFeature
    Loop
    
    Set swComp = swComp.GetNext
Loop

MsgBox "All coordinate systems hidden."

Set swAssem = Nothing
Set swModel = Nothing
Set swApp = Nothing

这段代码使用了 SolidWorks API 中的功能来循环遍历装配体中的所有组件，并隐藏其中的所有坐标系。请注意，在使用此代码之前，请先备份您的 SolidWorks 文件，并确保您已经了解代码的执行情况。