This Rhino Script allows the user to select multiple layer names and add a prefix to them. It is rather convenient within Rhino since no two layers, including sub-layers, can have the same name.
Rhino Script
Option Explicit 'Script written by <David Mans> 'Script copyrighted by <NeoArchaic Studio> 'Script version Tuesday, December 02, 2008 9:25:59 AM Call Main() Sub Main() Dim arrLayers,layers, prefix arrLayers = Rhino.LayerNames(True) layers = Rhino.MultiListBox(arrLayers, "Select Layers") If isNull(layers) Then Exit Sub prefix = Rhino.StringBox("Type Prefix") If isNull(prefix) Then Exit Sub Dim i Call Rhino.EnableRedraw(False) For i = 0 To uBound(layers) Step 1 Call Rhino.RenameLayer(layers(i), prefix & layers(i)) Next Call Rhino.EnableRedraw(True) End Sub