PointByNumber Example
Sub Example_PointByNumber()
' This gets a CogoPoint given a point number.
Dim cogoPnts As AeccCogoPoints
Dim cogoPnt As AeccCogoPoint
Dim pntNum As Long
' Set point number to get to 10
pntNum = 10
Set cogoPnts = AeccApplication.ActiveProject.CogoPoints
Set cogoPnt = cogoPnts.PointByNumber(pntNum)
MsgBox "The Number for CogoPoints is: " & cogoPnt.Number, vbInformation, "PointByNumber Example"
End Sub