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

  &