changing multiple blocks to "0" layer

[pkim1230758226]

Thank you.
I have a sprinkler block. There's about a hundred of them.
I have selected them and turned them into a single block.
If I use the lisp you provided on this single large block, it will turn each of the sprinkler blocks into layer 0 WITHIN the sprinkler block, but the block itself won't be changed to layer 0.
Is there a way to change the layer the block is in to layer 0 too?
I have to open block editor to move the sprinklers over to layer 0 manually.
Thank you.

[Wanderer]

Basically I have 2 documents. One is XREF, and one is the main document.
I want to transfer all blocks in XREF to layer "X", so that I can control the color of the layer X from the main document.

Are you on 2016 or later? Could you not get the desired effect by setting VISRETAIN and XREFOVERRIDE from 0 to 1?

[USER.90]

Hello Tom,

Please help me with your code. I am getting this error in my command line when i attempt to use the command:

Command: FIXBLKS
Select objects: 1 found
Select objects: undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: BEgin
Command: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

- - - Updated - - -

Here's one that will work on multiple blocks and sets to byblock. Which like Opie said gives you the same control of the inserted block as a regular object.

; Written By: Tom Beauford
; Changes all block entities to layer "0" with color, linetype & lineweight ByBlock
(defun C:FIXBLKS (/ SSET intCount ENAM ELST BNAM FLST FIX1)
  (defun FIX1 (BNAM / BENAM BONAM)
    (if (not (member BNAM FLST))
   (progn
     (setq FLST  (cons BNAM FLST)
     BENAM (tblobjname "block" BNAM)
     )
   (while (setq BENAM (entnext BENAM))
      (if (= (cdr (assoc 0 (entget BENAM))) "INSERT")
       (fix1 (cdr (assoc 2 (entget BENAM))))
       (progn
         (setq BONAM(vlax-ename->vla-object BENAM))
                (vl-catch-all-apply 'vla-put-layer (list BONAM "0"))
                (vl-catch-all-apply 'vla-put-color (list BONAM 0))
                (vl-catch-all-apply 'vla-put-linetype (list BONAM "Byblock"))
                (vl-catch-all-apply 'vla-put-Lineweight (list BONAM -2))
;                (vl-catch-all-apply 'vla-put-PlotStyleName (list BONAM "Byblock"))
       )
     )
   )
        )
    )
  )
  (setq SSET (ssget (list (cons 0 "INSERT"))))
  (vl-cmdf "undo" "BEgin")
  (repeat (setq intCount (sslength SSET))
    (setq intCount     (1- intCount)
          ENAM (ssname SSET intCOunt)
    ELST (entget ENAM)
    BNAM (cdr (assoc 2 ELST))
    FLST nil
    )
    (fix1 BNAM)
  )
  (vl-cmdf "undo" "End")
  (vl-cmdf "regen")
  (princ)
)

Hello Tom,

Please help me with your code. I am getting this error in my command line when i attempt to use the command:

Command: FIXBLKS
Select objects: 1 found
Select objects: undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: BEgin
Command: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

I have attached the .lsp i have created as well if you want to review it.

[Tom Beauford]

Hello Tom,

Please help me with your code. I am getting this error in my command line when i attempt to use the command:

Command: FIXBLKS
Select objects: 1 found
Select objects: undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: BEgin
Command: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

I have attached the .lsp i have created as well if you want to review it. [/COLOR]

Add

(vl-load-com)

as the first line of the code or add it as the first line in your acaddoc.lsp file. It loads the visual lisp interpreter, but only needs to be run once each time you open a drawing and since it's already in my acaddoc.lsp I don't need to add it to all my other lisp files. I've updated the lisp in my original post and recommend recopying it as your copy lost all the indentation and is hard to read. I keep the author, description, and a copy of the link where I found the code at the top of all the lisp I download for reference so if I ever have an issue in the future I know where to go for help.

[USER.90]

Greetings Tom,
Thanks for the reply. Isn't the internet fascinating, We are reusing a post from 2011-02-21, 07:43 PM.

I updated the routine to your new one and upon use got this message:
<COPIED FROM MY COMMAND LINE>

Command: APPLOAD
FIXBLKS.lsp successfully loaded.
Command: ; error: vl-load-com not supported on "Mac OS X Version 10.14 (x86_64)"

As is noted i am working on a Mac OS. Clue to a solution ?
This code is perfect so i want to be able to use it. It will accompany me throughout my life likely and i will certainly share it a several others. You will be doing a lot help

[USER.90]

Here is the case for you to be able to determine with accuracy if we can find a solutions with the LISP Routine Code:

I work with several others on projects. Our office's layering structure gets messed up on account of all the manufacturers block we have to import that come in with their layers + layers and blocks others use when they edits the model. I want to solve this problem once and for all for myself and everyone else here so i appreciate your help.

I tried LAYMERG and it does work to an extent but creates other problems. Scenario:

I have a block, dubbed [dubbed B1] that in its definition is on layer "X" and may also have a nested block [Dubbed B2] that is on another layer, lets say "Z". I want to merge layer "X" to layer "0".

LAYMERGE does successfully merge layer "X" to layer "0" and deletes therein layer "X" from my drawing.

The issue is LAYMERGE leaves B1 that was defined to layer "X" now undefined + the nested B2 that was defined to layer "Z" unchanged and still define to layer "Z".

I end up with no layer "X", which is a win. But then have to go into B1 to change its undefined layer to layer "0" and then while in B1 go into B2 that is nested in B1 to changes its layer to "0" as well. Which required time and defeats the purpose of what i want to do. [Note not all block i deal with have nested blocks, this is is the full scenario]

I am trying to find a LISP routine or a way to quickly change the layers defined in a block's definition, including nested blocks if found, to layer "0".

[Tom Beauford]

Greetings Tom,
Thanks for the reply. Isn't the internet fascinating, We are reusing a post from 2011-02-21, 07:43 PM.

I updated the routine to your new one and upon use got this message:
<COPIED FROM MY COMMAND LINE>

Command: APPLOAD
FIXBLKS.lsp successfully loaded.
Command: ; error: vl-load-com not supported on "Mac OS X Version 10.14 (x86_64)"

As is noted i am working on a Mac OS. Clue to a solution ?
This code is perfect so i want to be able to use it. It will accompany me throughout my life likely and i will certainly share it a several others. You will be doing a lot help

vl-load-com (AutoLISP/ActiveX)
Loads the extended AutoLISP functions related to ActiveX support

Supported Platforms: Windows only

I've no knowledge of using a MAC myself, but it doesn't seem to support ActiveX functions. Try removing the line

(vl-load-com)

, reload the lisp and see if it works. If not have you tried the SetBylayer command? There are other lisp routines out there for doing this without ActiveX commands like http://www.cadtutor.net/forum/showth...l=1#post284839

[jooogyerek766507]

This routine is already fantastic and I would add additional functions if I could.
1. Also set the transparency to ByBlock
2. Turn ON the linetype generation for all possible elements inside the block
3. Set the linetype scale of all the elements inside the block to a fixed amount (for example to 3)
4. Set Scale Uniformly to NO
5. Set Allow Exploding to Yes
Are any of those option possible?
Anyway, I am glad that I found this thread. This code is already very helpful for me. Thank you.

[jooogyerek766507]

This routine is already fantastic and I would add additional functions if I could.
1. Also set the transparency to ByBlock
2. Turn ON the linetype generation for all possible elements inside the block
3. Set the linetype scale of all the elements inside the block to a fixed amount (for example to 3)
4. Set Scale Uniformly to NO
5. Set Allow Exploding to Yes
Are any of those option possible?
Anyway, I am glad that I found this thread. This code is already very helpful for me. Thank you.

Here's one that will work on multiple blocks and sets to byblock. Which like Opie said gives you the same control of the inserted block as a regular object.

; Written By: Tom Beauford
; Changes all block entities to layer "0" with color, linetype & lineweight ByBlock
(vl-load-com)
(defun C:FIXBLKS (/ SSET intCount ENAM ELST BNAM FLST FIX1)
  (defun FIX1 (BNAM / BENAM BONAM)
    (if (not (member BNAM FLST))
   (progn
     (setq FLST  (cons BNAM FLST)
     BENAM (tblobjname "block" BNAM)
     )
   (while (setq BENAM (entnext BENAM))
      (if (= (cdr (assoc 0 (entget BENAM))) "INSERT")
       (fix1 (cdr (assoc 2 (entget BENAM))))
       (progn
         (setq BONAM(vlax-ename->vla-object BENAM))
                (vl-catch-all-apply 'vla-put-layer (list BONAM "0"))
                (vl-catch-all-apply 'vla-put-color (list BONAM 0))
                (vl-catch-all-apply 'vla-put-linetype (list BONAM "Byblock"))
                (vl-catch-all-apply 'vla-put-Lineweight (list BONAM -2))
;                (vl-catch-all-apply 'vla-put-PlotStyleName (list BONAM "Byblock"))
       )
     )
   )
        )
    )
  )
  (setq SSET (ssget (list (cons 0 "INSERT"))))
  (vl-cmdf "undo" "BEgin")
  (repeat (setq intCount (sslength SSET))
    (setq intCount     (1- intCount)
          ENAM (ssname SSET intCOunt)
    ELST (entget ENAM)
    BNAM (cdr (assoc 2 ELST))
    FLST nil
    )
    (fix1 BNAM)
  )
  (vl-cmdf "undo" "End")
  (vl-cmdf "regen")
  (princ)
)

Sorry, I left out the quote.