CogoPoints Example

Land Auto

previous page next page

CogoPoints Example 

Sub Example_CogoPoints()
    
    ' This example returns the number of CogoPoints in the current project.
    Dim proj As AeccProject
    Set proj = AeccApplication.ActiveProject
    
    MsgBox "The number of CogoPoints in the current Project is: " & proj.CogoPoints.Count, _
        vbInformation, "CogoPoints Example"
    
End Sub

previous page start next page