BasePoint Example

Land Auto

BasePoint Example

Sub Example_BasePoint()
    
    ' This example displays the BasePoint setting for the current drawing.
    Dim dbPref As AeccDatabasePreferences
    Set dbPref = AeccApplication.ActiveDocument.preferences
    
    Dim varPoint As Variant
    Dim point(0 To 2) As Double
    Dim basePoint As String
    
    ' Get the base point
    varPoint = dbPref.BasePoint
    point(0) = varPoint(0)
    point(1) = varPoint(1)
    point(2) = varPoint(2)
    
    ' Format base point to a string
    basePoint = Format(point(0)) + ", " + Format(point(1)) + ", " + Format(point(2))
    MsgBox "The current value for BasePoint is: " & basePoint, vbInformation, "BasePoint Example"
    
End Sub