Ye Olde "add prefix to layers/classes" script

[grant_PD]

I know there's one out there somewhere...I used to know where. Does anyone have a script for this?

Thanks

[Matt Panzer]

Hi Grant,

Copy everything within the quote below and paste it into a script. This script only works with Class names and changes ALL class names (except "None" and "Dimension") in the active document. This could be modified to act on ALL Layer names in a document. Adding the ability to select only certain classes would be a bit more involved.

HTH,

Matt

{

Written by:

Matthew G. Panzer

PanzerCAD Services, Inc.

1997

}

PROCEDURE ChangeClassNames;

VAR

Count: INTEGER;

ClassName: STRING;

PrefixStr: STRING;

BEGIN

PrefixStr := StrDialog('Add prefix(to all classes):', 'DWG-');

IF (ClassNum>1)

AND

YNDialog('This will rename all of your classes! Are you sure you wish to continue?')

THEN

BEGIN

FOR Count := 3 TO ClassNum DO BEGIN

RenameClass( ClassList(Count), ConCat(PrefixStr, ClassList(Count)) );

END;

END;

END;

RUN(ChangeClassNames);