How to add centerline on drawing view having 2 drawing curves?

[Hubert_Los]

Hello,

How can I use the function below:

Centerlines.Add( CenterEntities As ObjectCollection, [CentermarkStyle] As Variant, [Layer] As Variant, [Closed] As Boolean ) As Centerline

I need CenterEntities. How to create them, having 2 DrawingCurves from the drawingView?

[Michael.Navara · Accepted solution]

Can you be more descriptive? Attach some image what do you want to do.

If you expect centerline between two lines, use AddBisector() method instead

Dim sheet As Sheet = ThisDrawing.ActiveSheet.Sheet
Dim drwView As DrawingView = sheet.DrawingViews(1)
Dim curve1 As DrawingCurve = drwView.DrawingCurves.Item(1)
Dim curve2 As DrawingCurve = drwView.DrawingCurves.Item(2)
Dim intent1 As GeometryIntent = sheet.CreateGeometryIntent(curve1)
Dim intent2 As GeometryIntent = sheet.CreateGeometryIntent(curve2)
sheet.Centerlines.AddBisector(intent1, intent2)

[Hubert_Los]

This is what I needed,
Thank You