Get layer & Set layer

[MatteoJames]

Hi all, I'm creating a lisp in which I select a block with ssget and inserts other blocks with the same name in some certain points.

How do I get the layer, color and line type from the original block and set it the same on all the other blocks it inserts?

Matteo

[M_Hensley]

This will get you the layer of a selected object:

(setq layr (cdr (assoc 8 (entget (car (entsel))))))

Then switch the current layer to the object's layer:

(setvar "clayer" layr)

Then do your inserting.

[Anonymous]

> {quote:title=MatteoJames wrote:}{quote}Hi all, I'm creating a lisp in which I select a block with ssget and inserts other blocks with the same name in some certain points.
>
> How do I get the layer, color and line type from the original block and set it the same on all the other blocks it inserts?
>
> Matteo {color:#ff6600}
{color} {color:#ff6600}You can do with 'COPY' command in AutoCAD.
No need programming.{color}

[MatteoJames]

I was waiting for this answer...
I know it whould be easy but my lisp calculates the exact position based on the block and some points.

Second thoughts... Insted of using (COMMAND "_-INSERT" ..... ) I could use (COMMAND "_-COPY" ..... )
I'll se if I can make it fit in my program.

Matteo

[MatteoJames]

Thanks M_Hensley, That's what I was looking for, gonna study on it 'cause I don't understand it all yet, I'm still at the begining of my LISP programming.

Matteo