Topic: Identify layer color from entity selected

[Jim C]

Hello all, new user on this forum.

I've searched (too long) for a possible solution... I've got existing code that will allow the user to select text and scale a copy of said text onto a new layer, but the problem is that the new layer is created as color 7, instead of taking on same layer properties as the source layer...

Can anyone shed some light on this?  I'm just a hacker at LISP and have tried too many things without any success....  Attached is the source code.

Jim.

[ronjonp]

Welcome to the swamp Jim  ... see if this sheds any light on how to get layer properties and create a new layer from a selected entity:

Code - Auto/Visual Lisp: [Select]

1. (defun c:test (/ _dxf e layer)
2.   (defun _dxf (code ename)
3.     (if ename
4.       (cdr (assoc code (entget ename)))
5.     )
6.   )
7.   (if (setq e (car (entsel)))
8.     (progn
9.       (setq layer (tblobjname "Layer" (_dxf 8 e)))
10.       (entmakex (subst (cons 2 (strcat (_dxf 8 e) "_copy")) (assoc 2 (entget layer)) (entget layer))
11.       )
12.     )
13.   )
14. )

[Jim C]

Hi ronjon,

Yep, looked at your code and looks similar to what I've already got code for, but I'm wondering how to analyze the original layers' color, save it to a variable, make the new layer name (by appending it with user input) and then change the newly created layer color to match the original layers' color

It's the analyzing of the original layer color, that I'm having issues with.  I can get the LISP that I originally loaded to change the newly created layer to what ever color I want; just can't get it saved to a variable to make that change...

[Lee Mac]

To retrieve the colour of a Layer:

Code - Auto/Visual Lisp: [Select]

1. (cdr (assoc 62 (tblsearch "LAYER" <your layer here>)))

(may require the use of abs if Layer is off)

[ronjonp]

Hi ronjon,

Yep, looked at your code and looks similar to what I've already got code for, but I'm wondering how to analyze the original layers' color, save it to a variable, make the new layer name (by appending it with user input) and then change the newly created layer color to match the original layers' color

It's the analyzing of the original layer color, that I'm having issues with.  I can get the LISP that I originally loaded to change the newly created layer to what ever color I want; just can't get it saved to a variable to make that change...

If you use the code above before you entmod your entity, the color should be matched.

Look into tblobjname and tblsearch as Lee has used.

Paste this into the command line. It may also give you some insight.

Code - Auto/Visual Lisp: [Select]

1. (VL-LOAD-COM)
2. (vlax-dump-Object
3.   (vlax-ename->vla-object (tblobjname "layer" "0"))
4.   t
5. )

[Jim C]

Thank you very much gentlemen!!!!  With your assistance, my LISP routine now does exactly what I want....

Jim.