DIESEL command to Freeze and thaw Layers of a drawing

[Anonymous]

Can anyone help me to write a DIESEL command, which

turns OFF (lightbulb) all layers,

FREEZES all layers,

then turns ON selected layer, and

THAWS selected layer?

[Anonymous]

Can anyone help me to write a DIESEL command, which

turns OFF (lightbulb) all layers,

FREEZES all layers, then

turns ON selected layer, and

THAWS selected layer

[imadHabash]

Hi and Welcome to AutoCAD Forum,

how about LAYWALK command . 

[DGRL]

@Anonymous

Is a lisp routine also good for you?

[Anonymous]

Yes, AutoLISP will also do., Can you please provide a sample coding.

[DGRL]

@Anonymous

Sorry the code I provided first does not do what you want

[Kent1Cooper]

I could do that in a command macro, or an AutoLisp function.  Does it need to be in Diesel specifically for some reason?

[Kent1Cooper]

[Oops -- didn't read all the messages before Posting my question....]

(defun C:WHATEVER ()

  (command

    "_.layer"

      "_set" "Layer1" ; to ensure the one left un-Frozen is one you want on at end

      "_off" "*" "_no"

      "_freeze" "*" ; [no question to answer -- just refuses to Freeze current Layer]

      "_thaw" "Layer1,Layer2,Layer3"

      "_on"  "Layer1,Layer2,Layer3"

      "" ; complete Layer command

    "_regen" ; in case any of them were Frozen before, and require Regen to show again

  ); command

  (princ)

); defun