Get Whether Draft Edges Scaled in Printed Drawing Example (VBA)
This example shows how to get whether draft edges are scaled when printing a
drawing in high quality.
'------------------------------------------------------------------------------
' Preconditions:
' 1. Specified drawing to open exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Specified drawing opens.
' 2. Examine the Immediate window.
'------------------------------------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim swDrawing As SldWorks.DrawingDoc
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPageSetup As SldWorks.PageSetup
Dim fileName As String
Dim errors As Long
Dim warnings As Long
Sub main()
Set swApp = Application.SldWorks
fileName = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\advdrawings\foodprocessor.slddrw"
Set swDrawing = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
Set swModel = swDrawing
Set swModelDocExt = swModel.Extension
Set swPageSetup = swModelDocExt.AppPageSetup
If swPageSetup.HighQuality Then
Debug.Print "Drawing set to print in high quality. Are draft edges scaled? " & swPageSetup.ScaleDraftEdges
Else
Debug.Print "Drawing not set to print in high quality. Can only scale draft edges when drawing set to print in high quality."
End If
End Sub