move origin to bottom left of all objects
Accepted solution
@Anonymous wrote:
I would like a lisp to move the origin to the very most bottom left of all objects. is this possible?
If you mean you want the "origin" of the current drawing -- not the true drawing origin but the location to be used as its insertion base point when it is Inserted or Xref'd into other drawings -- to be at that bottom-left-most location, you can do this:
(defun C:BASELL ()
(command "_.zoom" "_extents")
(setvar 'insbase (getvar 'extmin))
)
If you mean you want the true drawing origin 0,0 point in the current drawing to be that bottom-left-most location, by Moving everything accordingly, you can do this:
(defun C:LLatORIGIN ()
(command
"_.zoom" "_extents"
"_.move" "_all" "" "_none" (getvar 'extmin) "_none" '(0 0 0)
)
)
That counts on all Layers being on, thawed, and unlocked -- you could build that in if needed.
Kent Cooper, AIA 