Get coordinates when zoom extents

[shakuhachi]

How can I get the coordinates of the window when I zoom entents the drawing. It's just like the bounding box written by Lee. I'm layiso-ing some layers and explodes them. When I used "explode" and use all, it explode everything even the layoff layers. Is there a way to do this without exploding the everything. Just the layers which are turn on. If not I'll just have to pick the coordinates of the zoom extents window and explodes the blocks. Thanks.

[Lee Mac]

For the drawing extents, look into the EXTMIN and EXTMAX System Variables

[Lee Mac]

I would approach the selection in the following way:

 

(defun SelectAllOn ( / x l )

 (while (setq x (tblnext "LAYER" (null x)))
   (if (minusp (cdr (assoc 62 x)))
     (setq l (cons "," (cons (cdr (assoc 2 x)) l)))
   )
 )
 (ssget "_X" (list '(-4 . "<NOT") (cons 8 (apply 'strcat (cdr l))) '(-4 . "NOT>")))
)

The above will return a SelectionSet of all objects whose layer is On.

[shakuhachi]

Thanks again Lee, your a big help.