Get Name of Drawing Sheet Template Example (VBA)
This example shows how to get the name of a drawing sheet template.
'---------------------------------
'
' Preconditions: Drawing document is open and contains
one sheet.
'
' Postconditions: None
'
'----------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swDraw As
SldWorks.DrawingDoc
Dim
swSheet As
SldWorks.Sheet
Dim
vSheetProps As
Variant
Dim
bRet As
Boolean
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swDraw = swModel
Set
swSheet = swDraw.GetCurrentSheet
Debug.Print
"File = " & swModel.GetPathName
Debug.Print
" Sheet
= " & swSheet.GetName
Debug.Print
" Template
= " & swSheet.GetTemplateName
'Retrieve current
sheet settings
vSheetProps
= swSheet.GetProperties
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)
End Sub
'---------------------------------