ISOLATE A LAYER in 2002 2

[johnhan76]

I am using autocad 2002. I want to click on an object and make all of the layers other than the object's layer freeze. Does anyone know how to do this or do I need to buy an extension?

 

[tendai1]

Follow this;


borgunit (Mechanical) Jun 11, 2003
Express Bonus Tools 2002 - FREE

Download and install the bonus tools from

http://www.contractcaddgroup.com/download/ExpressBonusTools.zip

"Whether you think that you can, or that you can't, you are usually right "
.. Henry Ford

 

[pardal]

I use this lisp routine , It is not mine.



;|Finds layer of selected object, isolates it by Freezing, and zooms to (0.9) extents.
User clicks OK when finished and drawings returns to original view.
LAYER FLASH ROUTINE|;

(defun C:frezee (/ Flay lay Oldlay ITWAS OLDCMD WAITHERE XZ)
(vl-load-com)
(setq OldCmd (getvar "cmdecho&quot)
(setvar "cmdecho" 0)
(setq OldLay (getvar "CLAYER&quot)
(setq Flay (entsel "\nSelect object on FREEZE layer : &quot)
(setq XZ
(vla-get-layer
(vlax-ename->vla-object
(car Flay)
) ;_ end of vlax-ename->vla-object
) ;_ end of vla-get-layer
) ;_ end of setq
(command "undo" "begin&quot
(command "layer" "make" XZ "&quot
(command "-layer" "freeze" "*" "&quot
(command "zoom" "extents&quot
(command "Zoom" "0.9x&quot


;(setvar "clayer" Oldlay)
;(setvar "cmdecho" OldCmd)
(princ)

) ;_ end of defun


Pardal

 

[johnhan76]

Express tools work great

 

[Ares]

Create custom icon and use this Diesel string

^C^C_ai_molc;\_-layer;_off;*;;;

it turns all but selected layer off.
experiment with freeze but you may not be able to freeze the current layer, unless you change the "selected" to "current" first - can be done.