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