I am trying to use the function Getdistance, just like i have used in AutocAD, but using it with Intellicad it doesn't work.
can somebody give the correct way to use the getdistance function?
Re: example of GetDistance
#2Please refer a sample of GetDistance.
Code: Select all
Private Sub GetLength()
Dim PT1 As Point
Dim dist As Double
Set PT1 = IntelliCAD.ActiveDocument.Utility.GetPoint(, "Pick a point:")
dist = IntelliCAD.ActiveDocument.Utility.GetDistance(PT1, vbCr & "Pick next point:")
MsgBox (dist)
End Sub