LISP routine for auto layer creation.

[fozzie]

Hi all,
What I am trying to accomplish is a single command that will create several default layers all with similar names.
EG.
BLD_GROUND_AREA
BLD_GROUND_TEXT

I want to add a number for each type of building that is in the drawing.
i could have several buildings in the drawing. 02145, 18657 and 02254 for example.
what i want to do is put the number after "BLD_"
EG.
BLD_02145_GROUND_AREA etc...

Is there anyway of running a command that would ask for the number then insert it into the right place and create the layers?
There could be up to 35+ layers on some drawings and its is tiresome to create all the layers via the layer manager.
any help is appreciated, whether its is possible or not.
Thanks

[lpseifert]

Here's a start

(defun c:bl ()
(setq bldg# (getstring "Enter Building No.: ")
         layname1 (strcat "BLDG_" bldg# "_GROUND_AREA")
         layname2 (strcat "BLDG_" bldg# "_GROUND_TEXT")
);setq
(command "-layer" "m" layname1 "")
(command "-layer" "m" layname2 "")
);defun

[Figment]

This should do it. its a spread sheet and requires that you save and close the document that you wish to add the layers to but. its short and simple

layer maker.zip

[fozzie]

Here's a start

(defun c:bl ()
(setq bldg# (getstring "Enter Building No.: ")
         layname1 (strcat "BLDG_" bldg# "_GROUND_AREA")
         layname2 (strcat "BLDG_" bldg# "_GROUND_TEXT")
);setq
(command "-layer" "m" layname1 "")
(command "-layer" "m" layname2 "")
);defun

Awesome! Exactly what I needed.
Thanks!