CalculateDistance Method

ComposeMatrix Method

Collapse All Expand All

Library Object : CalculateDistance Method

Description

Calculates the distance between two user specified points.

Visual Basic
Public Function CalculateDistance( _ ByVal Point1 As Point, _ ByVal Point2 As Point _ ) As Double

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