Then make sure all the layers are thawed, unlocked, and turned on, and see if this works for you.
(defun c:MoveTo0 ()
(command "_.regenall")
(command "_.move" "_all" "" (getvar "extmin") '(0.0 0.0 0.0))
)
ps. Make sure you are in model space.
Hi Tim,
I think your elegant idea applies, but it may need a qsave like this:
(defun c:MoveTo0 ()
(setvar "cmdecho" 0)
(command "_.regenall")
(print (getvar "extmin"))
(command "_.move" "_all" "" (getvar "extmin") '(0.0 0.0 0.0))
(setvar "cmdecho" 1)
(princ)
)
(defun c:MoveTo0v2 ()
(setvar "cmdecho" 0)
(command "_.qsave")
(command "_.regenall")
(print (getvar "extmin"))
(command "_.move" "_all" "" (getvar "extmin") '(0.0 0.0 0.0))
(setvar "cmdecho" 1)
(princ)
)
Example: I open a drawing where the lower left corner of the all the
geometry is at 0,0. I move everything up and to the right. Then I run
MoveTo0. Nothing happens and (print (getvar "extmin")) returns (0.0 0.0 0.0).
Then I run MoveTo0v2. The geomerty moves back to 0,0 and (print (getvar "extmin"))
returns (13.9636 20.5102 0.0).
Draw your own conclusions...