Anyone know of a two click move routine?

[Steven P]

Not quite 'last point' doesn't get either of the points used in the selection, the last point is the one before the selection set.

 

This one will get the mouse pointer as reference and grab the point when you hit 'enter' at the end of the selection set selection,

 

(defun c:qmove ( / pt1 MySS)
(while
  (setq MySS (ssget))
  (setq pt1 (cadr (grread t 15 0)) )
  (command "move" MySS "" pt1 pause )
)
  (princ)
)

 

 

[pkenewell]

15 minutes ago, Steven P said:

Not quite 'last point' doesn't get either of the points used in the selection, the last point is the one before the selection set.

You're right! good catch! Updated my previous post to match your solution.

Edited February 14 by pkenewell