Routine to create layer script?

I've done an Internet search and found nothing.

'Not really asking anyone to write anything, but has anyone come across a
routine that will look at a drawing and then generate a script that will
create all the layers therein? I know it's easy to insert a block with all
the layers, but the problem is that if the layers already exist, they take
precedence, and may contain the wrong color or linetype. A script eliminates
this problem.

I currently manually create these scripts, but even with cut and paste from
text screens, it's a mind-numbing exercise. We need these to correct older
drawings, and also for generation of new ones.

Thanks for any leads!

John

 

No, but there are other ways to do the same thing, if I understand you. You want to get all the layer settings from one file and then be able to apply them to other files? You can use the layer state manager to export the layer settings to a file, then import that into other drawings. I suppose You could script the layer state import if you need to.

 

Check this out...

(defun makelay (lname laycol laylt)
(tblnext "layer" T)
(while (setq p2 (tblnext "layer"))
(if (= (cdr (assoc 2 p2 )) lname)
(command "-layer" "T" (strcase lname) "M" (strcase lname) "C" laycol "" "LT" laylt "" ""))
);while
(if (= p2 nil)
(command "-layer" "M" (strcase lname) "C" laycol "" "LT" laylt "" ""))
);end defun

Now use a lisp routine to call this function providing the Layer name, color and linetype you want.

 

(SETQ MYLIST (LIST
(LIST LAYER1_NAME LAYER1_CLR LAYER1_LTYPE)
(LIST LAYER2_NAME LAYER2_CLR LAYER2_LTYPE)
(LIST ETC ETC ETC )
))
(FOREACH LIST MYLIST
(makelay (NTH 0 LIST) (NTH 1 LIST) (NTH 2 LIST))
)

JUST REPLACE
LAYERx_NAME WITH THE LAYER NAME
LAYERx_CLR WITH THE LAYER COLOR
LAYERx_LTYPE WITH THE LAYER LTYPE

ALL SHOULD BE TEXT STRINGS
EX
(SETQ MYLIST (LIST
(LIST "Boundry" "BLUE" "PHANTOM")
(LIST "EASEMENT" 12 "DASHED")
(LIST ETC ETC ETC )
))
IF YOU WANT A NUMBER FOR A COLOR I BELIEVE YOU SHOULD LEAVE THAT AS A NUMBER NOT A STRING

THIS USES THE CODE ABOVE FOR MAKELAY

 

Color number works as a string for sure...

 

I'll look into all these suggestions.

Thanks!

John