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.Print "  TemplateIn                = " & vSheetProps(1)

    Debug.Print "  Scale1                    = " & vSheetProps(2)              这个是分子

    Debug.Print "  scale2                    = " & vSheetProps(3)              这个是分母

    Debug.Print "  FirstAngle                = " & vSheetProps(4)             是不是第一视角

    Debug.Print "  Width                     = " & vSheetProps(5)             宽度

    Debug.Print "  Height                    = " & vSheetProps(6)             高度

   

   

   

    ' Switch projection property

    bFirstAng = vSheetProps(4)

    vSheetProps(4) = Not bFirstAng

   

    ' Apply updated sheet properties         设置图纸各种值

    swSheet.SetProperties _

        vSheetProps(0), _

        vSheetProps(1), _

        vSheetProps(2), _

        vSheetProps(3), _

        vSheetProps(4), _

        vSheetProps(5), _

        vSheetProps(6)

       

        ' Current projection property

    Debug.Print " "

    Debug.Print "  New FirstAngle setting    = " & vSheetProps(4)

   

End Sub

希望这些代码对大家有用啊