Topic: code to close 'layer properties manager' dialog

[jaydee]

Hi.
Is there a lisp code to close 'layer properties manager'.
It would script process hundreds of drawings alot quicker if the layer manager NOT open due to long list of layers.

Normally i would exit cad seesion with 'layer properties manager' close, but sometime i forget.

Thankyou

[Lee Mac]

Why not use "-layer" 

[jaydee]

Thanks Lee
No, Im not trying to access the layer properties.
I just want to close the 'layer properties manager' dialog if its open.
By default acad will have it open on start up if the last cad session had it open.

generally if a drawing contain a very large list of layers, it will take a few seconds longer to open a drawing.

Acad2011

[alanjt]

I prefer the command line version of LAYER (must faster IMO).

Here's a sample in a toggle (assuming you are referring to newer versions that have the layer manager as a dockable palette)...

Code: [Select]

(defun c:LY (/)
  (if (zerop (getvar 'LAYERMANAGERSTATE))
    (progn (initdia) (command "_.layer"))
    (command "_.layerclose")
  )
  (princ)
)

[BlackBox]

Is the LAYERMANAGERSTATE System Variable Read-Only?

If not, why not use Setvar instead of Command?
(I don't have AutoCAD available at the moment to look up in SYSVDLG)

[alanjt]

Is the LAYERMANAGERSTATE System Variable Read-Only?

If not, why not use Setvar instead of Command?
(I don't have AutoCAD available at the moment to look up in SYSVDLG)

I'm offended you thought I hadn't thought of that. 

[BlackBox]

Is the LAYERMANAGERSTATE System Variable Read-Only?

If not, why not use Setvar instead of Command?
(I don't have AutoCAD available at the moment to look up in SYSVDLG)

I'm offended you thought I hadn't thought of that. 

That was fast!

Well, that's not at all what I intended... I was actually asking for my own edification.

I was still lmao from the post I just made, that I didn't give it a whole lot of thought before I posted the question (something I'm apparently struggling with these days). In any event, thanks for clearing that up for me, and enjoy the funny post I made elsewhere!

Cheers! :beer:

[alanjt]

I know; just joshing you.

[jaydee]

Thanks guys
Not sure how i missed this one, i did look up the "L" command reference in acad site prior posting.

layerclose is what i want.

cheers

[Chris]

shortcutted at my office to be LAC.

we cant use the layer palette, it makes switching between drawings way too slow.  Been complaining to autodesk for some time about it, they still havent fixed it.

[alanjt]

shortcutted at my office to be LAC.

we cant use the layer palette, it makes switching between drawings way too slow.  Been complaining to autodesk for some time about it, they still havent fixed it.

I use -layer (defined as LA in my pgp file) for most everything and classiclayer for those random occasions when I need to do something I can't from -layer.

[Lee Mac]

No, Im not trying to access the layer properties.
I just want to close the 'layer properties manager' dialog if its open.
By default acad will have it open on start up if the last cad session had it open.

generally if a drawing contain a very large list of layers, it will take a few seconds longer to open a drawing.

Oh I see - I presumed you were using the standard "Layer" command within a Script of some kind and weren't aware of the "-Layer" command line version.

Glad you have a solution now

[trogg]

I don't know if this would work.
I'm am still learning.
This could be incorporated into some code

Code: [Select]

(if (= 1 (getvar "LAYERMANAGERSTATE"))
   (command "._LAYERCLOSE")

[JohnK]

I don't know if this would work.
I'm am still learning.
This could be incorporated into some code

Code: [Select]

(if (= 1 (getvar "LAYERMANAGERSTATE"))
   (command "._LAYERCLOSE")

I prefer the command line version of LAYER (must faster IMO).

Here's a sample in a toggle (assuming you are referring to newer versions that have the layer manager as a dockable palette)...

Code: [Select]

(defun c:LY (/)
  (if (zerop (getvar 'LAYERMANAGERSTATE))
    (progn (initdia) (command "_.layer"))
    (command "_.layerclose")
  )
  (princ)
)

Not sure, but this could be the answer.

Code: [Select]

(cond
    ((not (zerop (getvar 'LAYERMANAGERSTATE)))
        (command "_.layerclose")))

[BlackBox]

Not sure, but this could be the answer.

Code: [Select]

(cond
    ((not (zerop (getvar 'LAYERMANAGERSTATE)))
        (command "_.layerclose")))


You could also use AND+VL-CMDF combo:

Code: [Select]

(and  (not (zerop (getvar 'LAYERMANAGERSTATE)))
      (vl-cmdf "_.layerclose"))