Set View Scale Example (VBA)
This example shows how to set the scale of
a selected drawing view.
'-----------------------------
'
' Preconditions:
' (1)
Drawing document is open.
' (2)
Drawing view is selected.
'
' Postconditions: Drawing scale set to decimal.
'
'-------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swDraw As
SldWorks.DrawingDoc
Dim
swSelMgr As
SldWorks.SelectionMgr
Dim
swView As
SldWorks.View
Dim
vScaleRatio As
Variant
Dim
bRet As
Boolean
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swDraw = swModel
Set
swSelMgr = swModel.SelectionManager
Set
swView = swSelMgr.GetSelectedObject5(1)
vScaleRatio
= swView.ScaleRatio
Debug.Print
"File = " & swModel.GetPathName
Debug.Print
" View
= " & swView.Name
Debug.Print
" UseSheetScale
= "
& CBool(swView.UseSheetScale)
Debug.Print
" Scale
=
" & vScaleRatio(0) & ":" & vScaleRatio(1)
Debug.Print
" =
" & swView.ScaleDecimal
'
Changing scale sets View::UseSheetScale to FALSE
swView.ScaleDecimal
= swView.ScaleDecimal * 2#
'
Rebuild to see new scale
bRet
= swModel.EditRebuild3: Debug.Assert
bRet
End Sub
'-----------------------------