Topic: Script or Lisp for Layer States Manager

[MSTG007]

I am trying to create a script or lisp that will automatically open the layer states manager; select a layer state; activate it; then do a save as to X.dwg and overwrite it.

Any ideas?
Thank you

[BlackBox]

You cannot modify the dialog via LISP... You can instead use the LayerState-* LispFunction Methods built-into the Visual LISP API however.

[alanjt]

You should look into the LAYERSTATE-RESTORE function.

EDIT: BBox beat me to it.

[BlackBox]

You should look into the LAYERSTATE-RESTORE function.

EDIT: BBox beat me to it... This round.

FTFY 



 

[MSTG007]

You cannot modify the dialog via LISP... You can instead use the LayerState-* LispFunction Methods built-into the Visual LISP API however.

Could I do the above in a Script form? (To me script is easier to understand), but how would you go about that?

[BlackBox]

I am trying to create a script or lisp that will automatically open the layer states manager; select a layer state; activate it; then do a save as to X.dwg and overwrite it.

Could I do the above in a Script form? (To me script is easier to understand), but how would you go about that?

Here's a simple LISP, which can still be called from your Script, or at anytime of your choosing mid-session... Just be sure to replace "YourLayerStateName" here:

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun c:FOO (/ layerstateName)
4.   (if (layerstate-has (setq layerstateName "YourLayerStateName"))
5.     (progn
6.       (layerstate-restore layerstateName nil 3)
7.       (vla-saveas
8.         (vla-get-activedocument (vlax-get-acad-object))
9.         (strcat (getvar 'dwgprefix) (getvar 'dwgname))
10.         acnative
11.       )
12.     )
13.   )
14.   (princ)
15. )
16.  

[MSTG007]

Thanks a bunch!!!!

[BlackBox]

Thanks a bunch!!!!

Happy to help. 

[MSTG007]

ok.... coming back at you! lol
I am having a hard time creating a lisp / or script to do a save as and overwrite a drawing.

I have your script which is great and works.

but I want to then save the layer state and overwrite a file with the same layer state name.

[BlackBox]

... I want to then save the layer state and overwrite a file with the same layer state name.

There's no need to save the layer state as you've made no changes to it.

As for the latter, I'm not sure that I understand you fully... The file you're wanting to overwrite, it has a file name that matches the name of the layer state (+ .dwg)? What is the purpose of this file - why not export to .LAS (layer state file) instead?

[MSTG007]

What I am trying to do is have a Base.DWG,

First Save the Base.DWG

Then I want a layer state of 1 (Changes all my layers on and off)

Then save the current state (1) to a 1.DWG.

[BlackBox]

If I am understanding you correctly:

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun c:FOO (/ layerstateName acDoc path)
4.   (if (and (layerstate-has (setq layerstateName "YourLayerStateName"))
5.            (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
6.            (setq path (getvar 'dwgprefix))
7.       )
8.     (progn
9.       (vla-saveas acDoc (strcat path (getvar 'dwgname)) acnative)
10.       (layerstate-restore layerstateName nil 1)
11.       (vla-saveas
12.         acDoc
13.         (strcat path layerstateName ".dwg")
14.         acnative
15.       )
16.     )
17.   )
18.   (princ)
19. )
20.  

[MSTG007]

DING DING DING!!!!! :kewl: :kewl: