grread confusion

Could someone help me understand how to do this, please? I want to select a starting point, then follow the mouse with a target cursor while executing a command. The help file is very vague to me. (setq code_12 (grread (setq code (grread)))) gives me the cursor location, but how do I change to the selection (target) cursor and follow it from there? TIA

 

I'm no expert on grread but this might help.

;5/19/04 Bill Zondlo
;program to get input
;and show drag.
;
;---------------;
(defun fig_pts ()
(setq ct (cadr pt3)
inc 0
ang (angle pt1 (cadr pt3))
d1 (distance pt1 ct)
sl (cons pt1 sl)
sl (cons (polar pt1 ang d1) sl) ;center to point line.
sl (cons 256 sl) ;add color to draw line list.
sh sl
)
)
;---------------;
(defun c:show_drag (/ )
(initget 1)
(setq pt1 (getpoint "\nSelect Base Point:") ;select
dif 0
)
;---------------;
(while (/= (car (setq pt3 (grread 'T 1 2))) 3)
(setq dif (1+ dif)
)
(cond ((= dif 1)
(fig_pts)
(grvecs sl)
(setq lst nil
sl nil)
)
((= dif 2)
(grvecs sh)
(setq lss nil
sh nil
dif 0)
)
)
(princ "\n ")(princ pt3)
) ;end while
;---;
(grvecs sh)
(princ "\n ")(princ pt3)(princ)
) ;end defun

Bill

 

That's exactly what I was looking for.....a good example. Thanks very much, Bill.

 

You're welcome.

Bill