CalculateDistance method example

Private Sub CalculateDistance_Example()

Dim icadDoc As IntelliCAD.Document

     Dim Pt1 As IntelliCAD.Point

     Dim Pt2 As IntelliCAD.Point

     Dim dist As Double

Set icadDoc = ActiveDocument

Set Pt1 = Library.CreatePoint(0, 0, 0)

     Set Pt2 = Library.CreatePoint(2, 2, 0)

     dist = Library.CalculateDistance(Pt1, Pt2)

     MsgBox "Distance = " & dist

End Sub