ScaleOnIsert Example

Land Auto

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."
        scaleins = "do not scale on insert."
    End If
    MsgBox "The current value for ScaleOnInsert is " & scaleins, _
        vbInformation, "ScaleOnInsert Example"
End Sub