topic Creating new layer name & assigning layer color autolisp in Visual LISP, AutoLISP and General Customization Forum

Creating new layer name & assigning layer color autolisp

Anonymous — Sat, 22 Sep 2018 09:26:38 GMT

Hi, I found an autolisp to rename & change layer color through googling. Though I understand how the autolisp work, I am still novice to modify it. The reason I want to modify the lisp is that, it cannot rename layer "0" & xref related layers. So instead of using rename, just want to make another new layer & transfer selected objects in that layer to the new pre-defined layer. Any help & comments would be much appreciated. Thanks a lot.

Autolisp Routine:
1. Select "pre-defined layer name" in the list.
2. Make this as "new layer name".

3. Select item/entity to change to the new added "pre-defined layer name". All same entities/same "old layer name" will transfer to the new added "pre-defined layer name".
3. Change layer color according to user choosen color.

Please see below original autolisp:

(defun saveVars()
(setq ss(get_tile "mylayers1"))
(if(= ss "")
(setq newlay "Nothing is Selected")
(setq newlay (nth (atoi ss) mylayers1))
)
(princ)
)

(defun C:demo()

(setq mylayers1(list "a1" "a2" "a3" "a4" "b1" "b2" "b3" "b4" "c1" "c2" "c3" "c4" "x1" "x2" "x3" "x4" "y1" "y2" "y3" "y4" "z1" "z2" "z3" "z4" ))

(if(not(setq dcl_id (load_dialog "demo.dcl")))
(progn
(alert "The DCL file could not be loaded!")
(exit)
)

(progn
(if (not(new_dialog "demo" dcl_id))
(progn
(alert "The demo.DCL file could not be loaded!")
(exit)
)

(progn
(start_list "mylayers1" 3)
(mapcar 'add_list mylayers1)
(end_list)

(action_tile "accept" "(saveVars)(done_dialog 2)")
(action_tile "cancel" "(done_dialog 1)")

(setq ddiag(start_dialog))
(unload_dialog dcl_id)

(if(= ddiag 1)
(princ "\n Laye Rename cancelled!")
)

(if(= ddiag 2)
(progn
(princ "\n The user pressed Okay!")

(if(and
(setq e (car (entsel "\nSelect ent⁪ity to rename: ")))
(setq e (tblsearch "layer" (cdr (assoc 8 (entget e)))))
)
(prompt(strcat"\nLayer: "(cdr (assoc 2 e))", Color: "(itoa (cdr (assoc 62 e)))))
)
(command "-LAYER" "R" (strcat(cdr (assoc 2 e))) newlay "")
(setq mycol (acad_colordlg (cdr (assoc 62 (tblsearch "layer" newlay))) ""))
(command "_.layer" "_color" mycol newlay "")
(setvar "clayer" newlay)
(princ)
)

)

)
)
)
)

(princ)
)

Re: Creating new layer name & assigning layer color autolisp

dlanorh — Mon, 24 Sep 2018 19:41:50 GMT

You CANNOT rename layer "0" or xref dependant layers. Autocad won't let you, they are special layers.

See link Here

Re: Creating new layer name & assigning layer color autolisp

phanaem — Mon, 24 Sep 2018 21:17:51 GMT

Try this.

Re: Creating new layer name & assigning layer color autolisp

Anonymous — Tue, 25 Sep 2018 10:30:13 GMT

Hi dlanorth,
Thanks for that link..That's the reason why I need to modify the original lisp since it has limitation of renaming layer "0" or xref related layers. Some of my drawings are with layer "0" & xref related layers too. So instead of renaming, I wanted to make new layer, assign new layer name and color. But still new on autolisp..still figuring out how to do it.

Re: Creating new layer name & assigning layer color autolisp

Anonymous — Tue, 25 Sep 2018 10:59:40 GMT

Hi phanaem,
Will try on this, thank you. But instead of typing pre-defined layers/new layer name, can you also teach me on how to call-out a dropdown list inside autolisp function? Thank you in advance.

Re: Creating new layer name & assigning layer color autolisp

Anonymous — Tue, 25 Sep 2018 14:01:16 GMT

hi phanaem,

Thank you for the lisp, however, this is not what I wanted to do. What I wanted to do is to create/add new layer name (pre-defined layer name in dropdown list)& assign desired color from an existing old layer/original layer. Is it possible to just modify the original lisp? I can modify up to creating new layer name, but what I can't do is to transfer objects from old layer name to new layer name. Everytime I check on my new created layer, it is empty. Can you please teach me. Would appreciate your help.

Re: Creating new layer name & assigning layer color autolisp

phanaem — Tue, 25 Sep 2018 14:45:26 GMT

First, select the objects then start the command. Sorry, it's an old lisp.

Or try the updated version, attached .