topic Change Tag Layer (color) in a Block in AutoCAD Forum

Change Tag Layer (color) in a Block

sapien.nyc — Tue, 14 May 2024 21:47:02 GMT

Hi, I am working in cad files that are exported from ArchiCAD. I am able to change most of the layers to my own system, with the exception of door tags and other tags that are blocks. The tag show as this green color, even after I changed the block to my own layer, and I can't find how to change the tag to my own layer. Can someone help? Thank you!

Re: Change Tag Layer (color) in a Block

paullimapa — Tue, 14 May 2024 21:50:59 GMT

Can you share a sample portion of the dwg with these tags and the layer name you prefer them to go onto?

Re: Change Tag Layer (color) in a Block

sapien.nyc — Tue, 14 May 2024 22:04:23 GMT

You can download a copy/paste version of it here. All the ds- layers are my layers, and all the A- layers come from ArchiCAD.

https://darrenvinci.net/s/9832-sample.dwg

Re: Change Tag Layer (color) in a Block

paullimapa — Tue, 14 May 2024 23:06:39 GMT

Run the attached code and select all to change the attribute layers to match with the corresponding block layer and color to bylayer.

Re: Change Tag Layer (color) in a Block

sapien.nyc — Wed, 15 May 2024 04:10:07 GMT

How do I run it? 😅

Re: Change Tag Layer (color) in a Block

paullimapa — Wed, 15 May 2024 04:16:19 GMT

Save the Attedlab.lsp to one of the AutoCAD Support File Search Path found under command Options>Files tab

Then at command prompt enter:

(load"Attedlab")

Then to run the command enter:

Attedlab

ALL

Hit Enter (2x)

Re: Change Tag Layer (color) in a Block

sapien.nyc — Wed, 15 May 2024 04:28:38 GMT

wow it did it! thank you so much

Re: Change Tag Layer (color) in a Block

paullimapa — Wed, 15 May 2024 04:59:23 GMT

glad to have helped...cheers!!!

Re: Change Tag Layer (color) in a Block

sapien.nyc — Mon, 10 Jun 2024 23:55:50 GMT

Hi Paul,

I kept working on the file's elevations. I used the LSP files you made to change the text to the layer's color and shrink their size. Great! But this time the circles of the tags are still on a different layer from the tag's layer, and each of them is a separate block! Can you help write a LSP that will change the layer of the circles to match the blocks? I placed a cloud around the drawing w/ the issue. Thanks in advance!

@paullimapa

Re: Change Tag Layer (color) in a Block

paullimapa — Tue, 11 Jun 2024 01:05:57 GMT

I found this lisp routine norm.lsp that should change all the objects inside blocks to layer 0. Give this a try:

https://www.cadtutor.net/forum/topic/962-lisp-for-changing-all-objects-in-a-block-to-layer-quot0quot/?do=findComment&comment=8758

(defun c:norm (/ *error* adoc lst_layer func_restore-layers) (defun *error* (msg) (func_restore-layers) (vla-endundomark adoc) (princ msg) (princ) ) ;_ end of defun (defun func_restore-layers () (foreach item lst_layer (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))) (vl-catch-all-apply '(lambda () (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item)))) ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of foreach ) ;_ end of defun (vl-load-com) (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))) ) ;_ end of vla-startundomark (vlax-for item (vla-get-layers adoc) (setq lst_layer (cons (list item (cons "lock" (vla-get-lock item)) (cons "freeze" (vla-get-freeze item)) ) ;_ end of list lst_layer ) ;_ end of cons ) ;_ end of setq (vla-put-lock item :vlax-false) (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false))) ) ;_ end of vlax-for (vlax-for blk (vla-get-blocks adoc) (if (and (equal (vla-get-islayout blk) :vlax-false) (equal (vla-get-isxref blk) :vlax-false) ) ;_ end of and (progn (vlax-for subent blk (vla-put-layer subent "0") (vla-put-color subent 0) (vla-put-lineweight subent aclnwtbyblock) (vla-put-linetype subent "byblock") ) ;_ end of vlax-for ) ;_ end of progn ) ;_ end of if ) ;_ end of vlax-for (func_restore-layers) (vla-endundomark adoc) (princ) ) ;_ end of defun

Before running norm.lsp this is how your tag's with circles look like:

After running norm.lsp this is now the look after a REGEN:

Re: Change Tag Layer (color) in a Block

sapien.nyc — Tue, 11 Jun 2024 02:09:54 GMT

Worked as usual. You are awesome!

Re: Change Tag Layer (color) in a Block

paullimapa — Tue, 11 Jun 2024 02:11:27 GMT

glad to have helped again...cheers!!!