PointByNumber Example

Land Auto

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