NextPointNumber Example

Land Auto

previous page next page

NextPointNumber Example 

Sub Example_NextPointNumber()
    
    ' This gets the NextPointNumber in the CogoPoints collection
    Dim cogoPnts As AeccCogoPoints
    Set cogoPnts = AeccApplication.ActiveProject.CogoPoints
    
    MsgBox "The NextPointNumber for CogoPoints is: " & cogoPnts.NextPointNumber, _
        vbInformation, "NextPointNumber Example"
    
End Sub

previous page start next page