Need LISP for Coordinate Dimensioning 1

[jackling]

I at one time had a LISP program that would let you
pick a point and it would let you dimension that point
with a dimension like: (x,y) with leader to point.

Can anyone tell me where I could find this LISP or one to do the job?
Thank You

 

[CarlAK]

I didn't find one but whipped together a simple labeller using a leader. Does this do the trick?

(princ "\nType LPT to start&quot
(defun c:lpt ()
(setq pt1 (getpoint "\nPick point to label: &quot)
(setq xcoord (car pt1))
(setq ycoord (cadr pt1))
(setq xtext (rtos xcoord))
(setq ytext (rtos ycoord))
(setq pttext (strcat "(" xtext ", " ytext &quot&quot)
(princ "\nPick 2 points for leader: &quot
(command "._leader" pt1 pause pause "" pttext "&quot
(princ)
)

 

[jackling]

Thank you for getting back. Your lisp worked just the way I needed.
Thanks Again