Batch Rename Levels

Question

Is there a way to add a prefix to each level name in 500 dgns without having to open each file?

Leonard Jones · Answer

Can be done through VBA. Following is a sample code. Test it before using on actual files. Have a backup of original files. 
 Public Sub RenameLevels()
 Dim oLevel As Level
 
 For Each oLevel In ActiveDesignFile.Levels
 Debug.Print oLevel.Name
 If oLevel.IsFromLevelLibrary = False And oLevel.Name <> "Default" Then
 oLevel.Name = "XYZ_" & oLevel.Name
 ActiveDesignFile.Levels.Rewrite
 End If
 Next oLevel
End Sub 
 Regards, Leonard Jones.

Batch Rename Levels

Top Replies