Change Set Up of Drawing Sheet Example (VBA)

This example shows how to change the set up of an existing open drawing sheet by changing its paper size and template.

 

'---------------------------------

'

' Preconditions: Drawing with a drawing sheet is open.

'

' Postconditions: Template of open sheet is changed.

'

'----------------------------------

Option Explicit

Public Enum swDwgPaperSizes_e

    swDwgPaperAsize = 0

    swDwgPaperAsizeVertical = 1

    swDwgPaperBsize = 2

    swDwgPaperCsize = 3

    swDwgPaperDsize = 4

    swDwgPaperEsize = 5

    swDwgPaperA4size = 6

    swDwgPaperA4sizeVertical = 7

    swDwgPaperA3size = 8

    swDwgPaperA2size = 9

    swDwgPaperA1size = 10

    swDwgPaperA0size = 11

    swDwgPapersUserDefined = 12

End Enum

Public Enum swDwgTemplates_e

    swDwgTemplateAsize = 0

    swDwgTemplateAsizeVertical = 1

    swDwgTemplateBsize = 2

    swDwgTemplateCsize = 3

    swDwgTemplateDsize = 4

    swDwgTemplateEsize = 5

    swDwgTemplateA4size = 6

    swDwgTemplateA4sizeVertical = 7

    swDwgTemplateA3size = 8

    swDwgTemplateA2size = 9

    swDwgTemplateA1size = 10

    swDwgTemplateA0size = 11

    swDwgTemplateCustom = 12

    swDwgTemplateNone = 13

End Enum

Sub main()

    Const sTemplatePath As String = "c:\Program Files\SOLIDWORKS\data\b-landscape.slddrt"

    

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swDraw                      As SldWorks.DrawingDoc

    Dim swSheet                     As SldWorks.Sheet

    Dim bRet                        As Boolean

    

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swDraw = swModel

    Set swSheet = swDraw.GetCurrentSheet

    

    bRet = swDraw.SetupSheet4( _

                swSheet.GetName, _

                swDwgPaperBsize, _

                swDwgTemplateBsize, _

                1#, 1#, _

                False, _

                "", _

                0#, 0#, _

                "")

    swModel.ForceRebuild3 (False)

End Sub

'---------------------------------