ScaleOnInsert Example
Sub Example_ScaleOnInsert()
' This example returns the ScaleOnInsert setting for the current drawing.
Dim dbPref As AeccDatabasePreferences
Set dbPref = AeccApplication.ActiveDocument.preferences
' Convert the scale on insert value to a string.
Dim scaleins As String
If dbPref.ScaleOnInsert = True Then
scaleins = "scale on insert."
Else
scaleins = "do not scale on insert."
End If
MsgBox "The current value for ScaleOnInsert is " & scaleins, _
vbInformation, "ScaleOnInsert Example"
End Sub