example of GetDistance
Posted: Sat Mar 28, 2020 9:43 pm
by GUILLERMO_ZELAYA
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
Posted: Sat Mar 28, 2020 10:58 pm
by QuanNguyen
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
Re: example of GetDistance
Posted: Mon Mar 30, 2020 6:39 pm
by GUILLERMO_ZELAYA
thanks