FindAllConnectingEdges Example
Sub Example_FindAllConnectingEdges()
' This example returns all the connecting edges for a given point
' in the first surface in the surface 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 an actual surface point.
pnt = surf.FindPoint(pnt(0), pnt(1))
' Get edge points
Dim edgePnts As Variant
edgePnts = surf.FindAllConnectingEdges(pnt(0), pnt(1))
Dim lineObj As AcadLine
Dim pnt1(0 To 2) As Double
Dim pnt2(0 To 2) As Double
Dim pnt3(0 To 2) As Double
' Draw red lines around first triangle definition
pnt1(0) = edgePnts(0)
pnt1(1) = edgePnts(1)
pnt1(2) = edgePnts(2)
pnt2(0) = edgePnts(3)
pnt2(1) = edgePnts(4)
pnt2(2) = edgePnts(5)
pnt3(0) = edgePnts(6)
pnt3(1) = edgePnts(7)
pnt3(2) = edgePnts(8)
Set lineObj = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
lineObj.Color = acRed
Set lineObj = ThisDrawing.ModelSpace.AddLine(pnt2, pnt3)
lineObj.Color = acRed
Set lineObj = ThisDrawing.ModelSpace.AddLine(pnt3, pnt1)
lineObj.Color = acRed
End Sub