aaahh.....
there it is...
(command "._rotate" (ssget) "")
(while (>(getvar "CMDACTIVE")0) (command pause))
(setq Lastpoint (osnap (cadr (grread 1 1)) "_end"))
Thanks Allan..
It miss precision without Osnap..but near the goal.
The problem I ran into in my testing is that if the object you snap to is also being moved the rotate command will snap to the phantom object
but when you execute the osnap the object is no longer there & nil is returned.