AddLine Example

Land Auto

AddLine Example

Sub Example_AddLine()
    
    ' This example adds a Parcel made up of lines and an arc.
    ' The parcel is then imported into the drawing.
    Dim parcels As AeccParcels
    Dim parcel As AeccParcel
    Set parcels = AeccApplication.ActiveProject.parcels
    
    ' Add a new Parcel
    Set parcel = parcels.Add("New Parcel")
    
    ' Add lines and a curve to the Parcel
    parcel.AddLine 50#, 50#, 150#, 50#
    parcel.AddLine 150#, 50#, 150#, 200#
    parcel.AddCurve 150#, 200#, 100#, 200#, 50#, 200#, True
    parcel.AddLine 50#, 200#, 50#, 50#
    
    ' Import the new Parcel
    parcel.Import
    
    MsgBox "The total number of entities in the parcel is: " & parcel.ParcelEntities.Count, _
        vbInformation, "AddLine Example"
    
End Sub