UsedPointNumbers Example

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