FindConnectingEdges Example

Sub Example_FindConnectingEdge()

    ' This example returns the connecting edge for a given point

    ' in the first surface in the collection.

    Dim surf As AeccSurface

    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)

    ' Get point for calculating connecting edges

    Dim pnt As Variant

    pnt = ThisDrawing.Utility.GetPoint(, "Select point in the surface: ")

    ' Get edge points

    Dim edgePnts As Variant

    edgePnts = surf.FindConnectingEdge(pnt(0), pnt(1))

    Dim lineObj As AcadLine

    Dim startPnt(0 To 2) As Double

    Dim endPnt(0 To 2) As Double

    ' Draw a red line along edge

    startPnt(0) = edgePnts(0)

    startPnt(1) = edgePnts(1)

    startPnt(2) = edgePnts(2)

    endPnt(0) = edgePnts(3)

    endPnt(1) = edgePnts(4)

    endPnt(2) = edgePnts(5)

    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPnt, endPnt)

    lineObj.Color = acRed

End Sub