UsedPointNumbers Example

Land Auto

previous page next page

UsedPointNumbers Example 

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

previous page start next page