Conditions for Layers?
Layer STATES might be able to do what you want. No code required, and you could put commonly-used ones into simple Tool Palette button command macros.
Another way to toggle the relationship is to just change the sign on the color entry in entity data for the two Layer objects, since that is what defines the on/off difference:
(defun C:FLO (/ ldata) ; = Flip Layers On-off condition
(foreach lay '("GIRDER" "BALCONY")
(setq ldata (entget (tblobjname "layer" lay)))
(entmod (subst (cons 62 (- (cdr (assoc 62 ldata)))) (assoc 62 ldata) ldata))
)
(princ)
)If you start with either of those two Layers on and the other off, the command will flip their on-off relationship. Any Layer in the list [you can add as many as you like] will be turned on if it's off, and vice versa.
The only way I'd think that the code would not work is if the two layers do not exist in the drawing you run the code in.
Example for my second code posting:
The first code example only turns on the girder layer then turn off the balcony layer.
Reactors could do it, but it would have to be very carefully planned out to avoid unintended sequences i.e. turning off layer A results in Layer B and C turning on; layer C turning on results in layer D turning off; layer D turning off results in Layer A turning on (turning B and C off, and D on, so A is turned off...). It's extremely easy to end up with an endless loop, locking up AutoCAD.
If you are going to fly by the seat of your pants, expect friction burns.
"I don't know" is the beginning of knowledge, not the end.
I have another proposal. You can create set of helper functions that will turn on or off set of layer (one or more of them separated with ",". For each set of layers you should have on and off function
(defun c:loff( / string_to_list collectLayerObjects getlayernames acad _off layercollection layernames eo str)
(defun string_to_list ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (string_to_list (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
(defun collectLayerObjects ( / ret) (reverse (vlax-for lay (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'Layers) (setq ret (cons (cons (vlax-get lay 'Name) lay)ret)))))
(defun getlayernames nil (mapcar 'car (collectLayerObjects)))
(setq acad (vla-get-activedocument (vlax-get-acad-object)))
(setq _off (string_to_list "GIRDER,test1,test2" ","));PUT LAYERNAMES HERE - CASE SENSITIVE
(setq layercollection (collectLayerObjects))
(setq str "")
(setq layernames(getlayernames))
(foreach e _off
(cond
((member e layernames)
(setq eo (cdr (assoc e layercollection)))
(vlax-put eo 'LayerOn 0)
(setq str (strcat str e " "))
)
)
)
(princ (strcat "\nLayers " str "have been turned off!"))
(princ)
)
(defun c:lon( / string_to_list collectLayerObjects getlayernames acad _on layercollection layernames eo str)
(defun string_to_list ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (string_to_list (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
(defun collectLayerObjects ( / ret) (reverse (vlax-for lay (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'Layers) (setq ret (cons (cons (vlax-get lay 'Name) lay)ret)))))
(defun getlayernames nil (mapcar 'car (collectLayerObjects)))
(setq acad (vla-get-activedocument (vlax-get-acad-object)))
(setq _on (string_to_list "GIRDER,test1,test2" ",")) ;PUT LAYERNAMES HERE - CASE SENSITIVE
(setq layercollection (collectLayerObjects))
(setq str "")
(setq layernames(getlayernames))
(foreach e _on
(cond
((member e layernames)
(setq eo (cdr (assoc e layercollection)))
(vlax-put eo 'LayerOn -1)
(setq str (strcat str e " "))
)
)
)
(princ (strcat "\nLayesrs " str "have been turned on!"))
(princ)
)
To create functions with another name just change function name for example change c:lon c:loff to c:bon c:boff (ie. function name after c:)
In each On OF function you have to change a line
"GIRDER,test1,test2"
with desired names of layers
"LAYER1,layer2,SOME_LAYER"
If you use standard layers name this can speed up your work
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
It works for me:
Are you sure you have the Layer names spelled exactly the same way in the drawing and in the list in the code?
Like the others having a list of pairs (("GIRDER" "BALCONY")("TILES" "WOOD")....) so would look for layer names.
It is possible with a reactor to say type in "LGIRDER" on the command line CAD will return "Unknown command", but its possible to grab the error and pull it apart the "L" at the start is required just a letter as I use C O F already, but the remainder "GIRDER" will be pulled out and then the on/off applied to "Girder" and 2nd layer "Balcony" note would add a Case check to stop problems.
The other way depending on how many you have is to use a DCL and choose either a list or for me a radio button lisp so just click I have around 20 can be entered, screen size dependant, Pretty sure it was RLX and he has a grid dcl so could do even more. This would be 3 lines of code for the dcl plus a call to the on/off functions already provided.
It could be Multi toggles dcl also perhaps show on / off for 1st layer
