Solidworks对图纸属性的获得与设置Get and Set Sheet Properties

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swDraw                  As SldWorks.DrawingDoc

    Dim swSheet                 As SldWorks.Sheet

    Dim vSheetProps             As Variant

    Dim bFirstAng               As Boolean

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swDraw = swApp.ActiveDoc

    Set swSheet = swDraw.GetCurrentSheet

   

    ' Get current sheet properties

    vSheetProps = swSheet.GetProperties         获得当前图纸各种属性值

   

    ' Current sheet properties

    Debug.Print "Name = " + swSheet.GetName

    Debug.Print "  TemplateName              = " & swSheet.GetTemplateName

    Debug.Print "  PaperSize                 = " & vSheetProps(0)

    Debug.Prin