Hi, what am I doing wrong? Why doesn't my selected object move??
Code:(defun c:mover (/ ObjToMove pt1 pt2) (setvar "cmdecho" 0) (command "_.undo" "begin") (setq ObjToMove (entsel "Move what?:")) (setq pt1 (cdr ObjToMove)) (setq ObjToMove (car ObjToMove)) (setq pt2 (getpoint "Where?")) (command "_.move" ObjToMove pt1 pt2) (command "_.undo" "end") (setvar "cmdecho" 1) (princ) )