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