PointNameSize Example

Land Auto

previous page next page

PointNameSize Example 

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

previous page start next page