设置视图尺寸类型

用于在活动SOLIDWORKS绘图中设置所有视图的尺寸类型（投影或真实）的VBA宏

image: view-dimension-type.png

这个VBA宏可以在活动SOLIDWORKS绘图中的所有工作表中设置所有视图的尺寸类型（投影或真实）。

将DIMS_TRUE常量设置为True以将所有尺寸类型设置为真实。将DIMS_TRUE常量设置为False以将所有尺寸类型设置为投影。

Const DIMS_TRUE As Boolean = False

Dim swApp As SldWorks.SldWorks

Sub main()

    Set swApp = Application.SldWorks
    
    Dim swDraw As SldWorks.DrawingDoc
    
    Set swDraw = swApp.ActiveDoc
    
    If Not swDraw Is Nothing Then
        
        Dim vSheets As Variant
        vSheets = swDraw.GetViews
        
        If Not IsEmpty(vSheets) Then
            
            Dim i As Integer
            
            For i = 0 To UBound(vSheets)
            
                Dim vViews As Variant
                vViews = vSheets(i)
                
                Dim j As Integer
                
                For j = 1 To UBound(vViews)
                    Dim swView As SldWorks.View
                    Set swView = vViews(j)
                    
                    swView.ProjectedDimensions = Not DIMS_TRUE
                Next
            
            Next
            
        End If
        
    Else
        Err.Raise vbError, "", "打开绘图"
    End If
    
End Sub