Modify this lisp

[gbailey403067]

DDDDDDDDDDDDDDDDDDDDDD

[fixo]

Hi friend, I'm still alive yet
See PM for more,
Oleg

[gbailey403067]

Fatty and all other lisp writters I went back in my old file and was able to find the lisp routine that Fatty had writter. Thought I would share it with you. Does exactly what I need.

;THIS ROUTINE WILL RENAME ALL THE LAYERS IN A DRAWING
;TO BE PREFIXED WITH USER SELECTED PREFIX DEFAULT "BAK_".
;TO AID IN INSERTING BAKGROUNDS
;
;ONE WAY TO USE IT IS TO INSERT THE BACKGROUND FROM THE
;ARCHITECT. COPY ALL ENTITIES

(defun c:layrenm()
(setq LPREFIX (ustr 1 "Enter layer prefix " "BAK_" nil))
(if (not ncltlist)(load "ncltlist"))
(setq STUFF (ncltlist)
LAYLIST (car STUFF)
ENTS (cadr STUFF)
CNTR 0
)
(foreach LAYDAT LAYLIST (progn
(setq LAYNME2 (strcat LPREFIX (car LAYDAT)))
(command "layer" "m" LAYNME2 "C" (cadr LAYDAT) "" "lt" (caddr LAYDAT) "" "")
(prompt "-")
)
)
(repeat (sslength ENTS)
(setq ENTDAT
(subst
(cons 8
(strcat LPREFIX
(cdr
(setq OLD
(assoc 8
(setq ENTDAT
(entget
(setq ENTNME
(ssname ENTS CNTR)
)
)
)
)
)
)
)
) OLD ENTDAT
)
)
(entmod ENTDAT)
(entupd ENTNME)
(setq CNTR (1+ CNTR))
(prompt ".")
);repeat
(princ)
)