サイトには区画のコレクションが含まれていますが、このコレクションには Add メソッドが存在しません。代わりに、区画は AeccSite.ParcelSegments コレクションに追加された区画セグメントから自動的に生成されます。 区画セグメントは、2 次元の線分、曲線、または AutoCAD 図形です。サイト内のセグメントから閉じた構造が形成されると、区画が自動的に形成されます。区画セグメントの追加によって閉じた構造が新しく形成されるたびに、新しい区画が作成されます。これは、既存の区画のシェイプに影響を与えます。既存の区画が新しい区画によって二分された場合、既存の区画のサイズが縮小されて新しい区画が形成されます。
Dim oSegments as AeccParcelSegments Set oSegments = oSite.ParcelSegments ' Parcel 1 Call oSegments.AddLine(0, 0, 0, 200) Call oSegments.AddCurve(0, 200, -0.5, 200, 200) Call oSegments.AddLine(200, 200, 200, 0) Call oSegments.AddLine(200, 0, 0, 0) ' Parcel 2 Call oSegments.AddCurve2(200, 200, 330, 240, 400, 200) Call oSegments.AddLine(400, 200, 400, 0) ' This will complete parcel 2, as well as form parcel 3. Dim oPolyline As AcadPolyline Dim dPoints(0 To 8) As Double dPoints(0) = 400: dPoints(1) = 0: dPoints(2) = 0 dPoints(3) = 325: dPoints(4) = 25: dPoints(5) = 0 dPoints(6) = 200: dPoints(7) = 0: dPoints(8) = 0 Set oPolyline = oAeccDocument.Database.ModelSpace_ .AddPolyline(dPoints) oPolyline.Closed = True ' Passing True as the second parameter deletes the ' polyline entity once the parcel segment has been created. Call oSegments.AddFromEntity(oPolyline, True)