Topic: Help on turning off specific xref layer

[diego65]

Hello,
I need help on creating a routine that will allowed me to turn ON or Off a specific layer on a bunch of drawings.
The point is for not to open every single drawing and turn the layer off manually.
Any help will be appreciate it...

Thank you...

[BlackBox]

You'll want to iterate a list of valid Drawings using ObjectDBX, then within each DBXDocument Object, iterate the Layers Collection, checking for matching Layer Names, if a valid match, then toggle that Layer Object's LayerOn Property accordingly.

[diego65]

Hi RenderMan,
That is exactly what I am lookng for, however, I am very familiar with LISP.
I am looking for help on creating one from scratch if I can get some help...

[BlackBox]

Hi RenderMan,
That is exactly what I am lookng for, however, I am very familiar with LISP.
I am looking for help on creating one from scratch if I can get some help...

Any routine involving ObjectDBX (appropriately) requires a bit more effort and error handling than a typical requests for help. I, or someone more knowledgeable than I, will post back as time permits.

[Lee Mac]

This function will do all of the ObjectDBX work for you:

http://lee-mac.com/odbxbase.html

Load it and call it with the following program (change the layer name to suit):

Code: [Select]

(defun c:frzlay ( )
    (LM:ODBX
        (function
            (lambda ( doc / lay )
                (if
                    (not
                        (vl-catch-all-error-p
                            (setq lay
                                (vl-catch-all-apply 'vla-item
                                    (list (vla-get-layers doc) "Your-Layer-Here")
                                )
                            )
                        )
                    )
                    (vla-put-layeron lay :vlax-true)
                )
            )
        )
        nil t
    )
    (princ)
)
The above is untested.

[CAB]

Lee your ObjectDBX helper routine is a real time saver. 

[Lee Mac]

Lee your ObjectDBX helper routine is a real time saver. 

Thanks Alan! 

[Krushert]

Lee, I have not been over to your site for some time.  I really, really, really like option to preview the code in HTML.  Very sweet.

And the code looks sweet too.  Filed that in back of my brain for when a future need arises. 

[diego65]

Thank you Lee Mac for helping me out on the script for “Turning specific layer ON or Off in multiples files without opening them”
It works wonderful, however, I forgot to mentioned that, this specific layer is located on an xreference file, sorry.
Would you be able to help me on this one please?

Thank you…

Joselo…

[Lee Mac]

Lee, I have not been over to your site for some time.  I really, really, really like option to preview the code in HTML.  Very sweet.

And the code looks sweet too.  Filed that in back of my brain for when a future need arises. 

Cheers Krushert! I'm glad you like it

I hope the program is of use to you

[Lee Mac]

Thank you Lee Mac for helping me out on the script for “Turning specific layer ON or Off in multiples files without opening them”

You're welcome Joselo 

It works wonderful, however, I forgot to mentioned that, this specific layer is located on an xreference file

Although XRefs are not loaded when interfacing with a drawing using ObjectDBX, the XRef-dependent Layers should still be present in the drawing's Layers Collection, hence, you should be able to use the program for your case and specify the name of your XRef-dependent Layer.

[GDF]

This function will do all of the ObjectDBX work for you:

http://lee-mac.com/odbxbase.html

Load it and call it with the following program (change the layer name to suit):

Code: [Select]

(defun c:frzlay ( )
    (LM:ODBX
        (function
            (lambda ( doc / lay )
                (if
                    (not
                        (vl-catch-all-error-p
                            (setq lay
                                (vl-catch-all-apply 'vla-item
                                    (list (vla-get-layers doc) "Your-Layer-Here")
                                )
                            )
                        )
                    )
                    (vla-put-layeron lay :vlax-true)
                )
            )
        )
        nil t
    )
    (princ)
)
The above is untested.

Lee

Is it possible to use the following in place of "your-layer-here"?

(list (vla-get-layers doc) "*AREA*,UT*|*PATT*,UT*|*DIMS*,UT*|*NOTE*,UT*|*SYMB*,UT*|*SHTT*,BL-0*|*SHTT*,*|A-CLNG-HEAD,*|A-DOOR-CODE,*|*-2,*|*-3")

[Lee Mac]

Is it possible to us the following in place of "your-layer-here"?

(list (vla-get-layers doc) "*AREA*,UT*|*PATT*,UT*|*DIMS*,UT*|*NOTE*,UT*|*SYMB*,UT*|*SHTT*,BL-0*|*SHTT*,*|A-CLNG-HEAD,*|A-DOOR-CODE,*|*-2,*|*-3")

The OP actually posed this question via PM, here was my response:

The current function is looking for an exact layer name match, and cannot accept wildcards.
To use wildcards, the code must be changed to:

Code: [Select]

(defun c:frzlay ( )
    (LM:ODBX
        (function
            (lambda ( doc / lay )
                (vlax-for lay (vla-get-layers doc)
                    (if (wcmatch (strcase (vla-get-name lay)) "wildcard-match-here")
                        (vla-put-layeron lay :vlax-true)
                    )
                )
            )
        )
        nil t
    )
    (princ)
)
In future, please reply to the forum thread rather than sending a personal message, as the replies will then benefit the whole forum community.

[diego65]

Thank you Lee Mac,
This routine is a life saver, that was exactly what we were looking for.

Very well done...
Joselo...

[GDF]

Lee

Thanks for your response. I have a more specific question and help needed. I will ask it on your website. I will pay for your services for this help. You can then post the solution here to benefit the forum.

Gary