FindPoint Example
Sub Example_FindPoint()
' This example draws a point at the surface point for a selected point
' in the first surface in the collection. The point id drawn with the default
' point style.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
' Get point for calculating point
Dim pnt As Variant
pnt = ThisDrawing.Utility.GetPoint(, "Select point in the surface: ")
' Get surface point
Dim edgePnts As Variant
edgePnts = surf.FindPoint(pnt(0), pnt(1))
Dim pntObj As AcadPoint
Dim startPnt(0 To 2) As Double
' Draw a red point at found point
startPnt(0) = edgePnts(0)
startPnt(1) = edgePnts(1)
startPnt(2) = edgePnts(2)
Set pntObj = ThisDrawing.ModelSpace.AddPoint(startPnt)
pntObj.Color = acRed
End Sub