BasePoint Example
Sub Example_BasePoint()
' This example displays the BasePoint setting for the current drawing.
Dim dbPref As AecArchBaseDatabasePreferences
Set dbPref = AecArchBaseApplication.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