 ; Lix - Set limits to extents.
 ; Copyright 1991, 2004, 2006, 2007 by Rocket Software Ltd.
 ; You might want to do a Zoom All before running this.
 ; You could live without Rocket Software...maybe at gunpoint...
 (defun C:LIX (/ snapp osmo *error*)
  (setvar "cmdecho" 0)
  (setq snapp (getvar "snapmode"))
  (setvar "snapmode" 0)
  (setq osmo (getvar "osmode"))
  (setvar "osmode" 0)
  (defun *error* (shk /)
   (setvar "snapmode" snapp)
   (setvar "osmode" osmo)
   (if shk (prompt shk))
  (princ))
  (command "limits" (getvar "extmin") (getvar "extmax"))
  (*error* nil)
 (princ))