標準ブレークラインを追加する

標準ブレークラインは、3D 線分またはポリラインの配列で構成されます。各線分終点はサーフェス内のポイントとなり、ブレークラインの周囲にサーフェス三角形が再作成されます。ポリラインに曲線が含まれている場合、その曲線は中央縦距パラメータに基づいてモザイク分割されます。

' Create the polyline basis for the breakline.
Dim o3DPoly as Acad3DPolyline
Dim dPoints(0 To 8) As Double
dPoints(0) = 1200: dPoints(1) = 1200: dPoints(2) = 150
dPoints(3) = 2000: dPoints(4) = 3000: dPoints(5) = 120
dPoints(6) = 3000: dPoints(7) = 2000: dPoints(8) = 100
Set o3DPoly = oAeccDocument.Database.ModelSpace _ 
  .Add3DPoly(dPoints)
o3DPoly.Closed = False
Dim oBreakline As AeccSurfaceBreakline
Dim vBLines As Variant
' This has to be an array, even if we only have one entity.
Dim oEntityArray(0) As AcadEntity
Set oEntityArray(0) = oAeccDocument.Database.ModelSpace _
  .Add3DPoly(dPoints)
Set oBreakline = oTinSurface.Breaklines.AddStandardBreakline _
  (oEntityArray, "Sample Standard Break", 1#)