Mover

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)
)

---

Try this:

Code:

---


(defun c:mover (/ ObjToMove pt1 pt2)

(setvar "cmdecho" 0)
(command "_.undo" "begin")

(setq ObjToMove (entsel "Move what?:"))
(setq pt1 (cadr ObjToMove))
(setq ObjToMove (car ObjToMove))
(setq pt2 (getpoint "Where?"))
(vl-cmdf "_.move" ObjToMove "" pt1 pt2)

(command "_.undo" "end")
(setvar "cmdecho" 1)
(princ)
)

---

Thanks!

Next wondering how to make it loop.. :)

Quote:

---

Originally Posted by tuomo.jarvinen

Next wondering how to make it loop.. :)

---

Just add While function before the the complete line for the entsel function

That easy! Thanks!!!

Code:

---


(defun c:mover (/ ObjToMove pt1 pt2)

(setvar "cmdecho" 0)
(command "_.undo" "begin")

(while
(setq ObjToMove (entsel "Move what?:"))
(setq pt1 (cadr ObjToMove))
(setq ObjToMove (car ObjToMove))

(setq pt2 (getpoint "Where?"))
(command "_.move" ObjToMove "" pt1 pt2)
)

(command "_.undo" "end")
(setvar "cmdecho" 1)
(princ)
)

---