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?
Please 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