Renaming *-E Layer Names to Exst

[Anonymous]

I am trying to rename a group of layers that end with -E to Exst But thing
is I want to get rid of the -E and everytime I run my macro it just adds
Exst to the end of my layer names... does any one know how to subtrat the
last 2 characters and swap the name to Exst?


Public Sub RenameLayers()
Dim lays As AcadLayers
Dim layerObj As AcadLayer
Dim lay As AcadLayer
Dim strLayerName As String

On Error Resume Next

Set lays = ThisDrawing.Layers
For Each lay In lays
Set layerObj = ThisDrawing.Layers(lay.Name)
strLayerName = layerObj.Name
layerObj.Name = strLayerName & "Exst"
Next lay
End Sub

[Anonymous]

There could be various ways of doing what you want, but I would do like this:

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", "-Exst")
Next lay

[Anonymous]

"Rick Holguin" wrote in message
news:5866280@discussion.autodesk.com...
I am trying to rename a group of layers that end with -E to Exst But thing
is I want to get rid of the -E and everytime I run my macro it just adds
Exst to the end of my layer names... does any one know how to subtrat the
last 2 characters and swap the name to Exst?


Public Sub RenameLayers()
Dim lays As AcadLayers
Dim layerObj As AcadLayer
Dim lay As AcadLayer
Dim strLayerName As String

On Error Resume Next

Set lays = ThisDrawing.Layers
For Each lay In lays
Set layerObj = ThisDrawing.Layers(lay.Name)
strLayerName = layerObj.Name


layerObj.Name = Replace( strLayerName , "-E", "Exst")

Next lay
End Sub

hth
mark

[Anonymous]

Ok let me try it.. thanks for your help!
wrote in message news:5866291@discussion.autodesk.com...
There could be various ways of doing what you want, but I would do like
this:

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", "-Exst")
Next lay

[Anonymous]

It works perfect..... but If I want to have a dialog box pop up and have an
input box then all I have to do is create a string for the layer prefix "-E"
right?
wrote in message news:5866291@discussion.autodesk.com...
There could be various ways of doing what you want, but I would do like
this:

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", "-Exst")
Next lay

[Anonymous]

I am not a big fan of dialog boxes for user inputs, unless really necessary. I prefer using the command prompt. Here is how I would do it.

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String

str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix: ")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

[Anonymous]

How about this 2 command promts....

Check it out!!! thanks John!! john you know your stuff... send me your
direct email adress.... if not its ok thanks for your expertise!! you da
man!

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String
Dim str2 As String
str2 = ThisDrawing.Utility.GetString(False, "Enter prefix layer name To Be
Changed: <-E> ")
str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, str2, IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

wrote in message news:5867190@discussion.autodesk.com...
I am not a big fan of dialog boxes for user inputs, unless really necessary.
I prefer using the command prompt. Here is how I would do it.

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String

str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

[Anonymous]

fwiw, from your posts looks like you're actually doing suffixes not prefixes

mark

"Rick Holguin" wrote in message
news:5867442@discussion.autodesk.com...
How about this 2 command promts....

Check it out!!! thanks John!! john you know your stuff... send me your
direct email adress.... if not its ok thanks for your expertise!! you da
man!

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String
Dim str2 As String
str2 = ThisDrawing.Utility.GetString(False, "Enter prefix layer name To Be
Changed: <-E> ")
str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, str2, IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

wrote in message news:5867190@discussion.autodesk.com...
I am not a big fan of dialog boxes for user inputs, unless really necessary.
I prefer using the command prompt. Here is how I would do it.

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String

str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

[Anonymous]

Yes its suffix... hey do I get it to do Prefix.... you know in the middle of
a layer name??
"MP" wrote in message
news:5867515@discussion.autodesk.com...
fwiw, from your posts looks like you're actually doing suffixes not prefixes

mark

"Rick Holguin" wrote in message
news:5867442@discussion.autodesk.com...
How about this 2 command promts....

Check it out!!! thanks John!! john you know your stuff... send me your
direct email adress.... if not its ok thanks for your expertise!! you da
man!

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String
Dim str2 As String
str2 = ThisDrawing.Utility.GetString(False, "Enter prefix layer name To Be
Changed: <-E> ")
str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, str2, IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

wrote in message news:5867190@discussion.autodesk.com...
I am not a big fan of dialog boxes for user inputs, unless really necessary.
I prefer using the command prompt. Here is how I would do it.

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String

str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

[Anonymous]

Look at Instr and Mid$

"Rick Holguin" wrote in message
news:5867609@discussion.autodesk.com...
Yes its suffix... hey do I get it to do Prefix.... you know in the middle of
a layer name??
"MP" wrote in message
news:5867515@discussion.autodesk.com...
fwiw, from your posts looks like you're actually doing suffixes not prefixes

mark

"Rick Holguin" wrote in message
news:5867442@discussion.autodesk.com...
How about this 2 command promts....

Check it out!!! thanks John!! john you know your stuff... send me your
direct email adress.... if not its ok thanks for your expertise!! you da
man!

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String
Dim str2 As String
str2 = ThisDrawing.Utility.GetString(False, "Enter prefix layer name To Be
Changed: <-E> ")
str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, str2, IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

wrote in message news:5867190@discussion.autodesk.com...
I am not a big fan of dialog boxes for user inputs, unless really necessary.
I prefer using the command prompt. Here is how I would do it.

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String

str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

[Anonymous]

Thanks for your help!
"MP" wrote in message
news:5867822@discussion.autodesk.com...
Look at Instr and Mid$

"Rick Holguin" wrote in message
news:5867609@discussion.autodesk.com...
Yes its suffix... hey do I get it to do Prefix.... you know in the middle of
a layer name??
"MP" wrote in message
news:5867515@discussion.autodesk.com...
fwiw, from your posts looks like you're actually doing suffixes not prefixes

mark

"Rick Holguin" wrote in message
news:5867442@discussion.autodesk.com...
How about this 2 command promts....

Check it out!!! thanks John!! john you know your stuff... send me your
direct email adress.... if not its ok thanks for your expertise!! you da
man!

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String
Dim str2 As String
str2 = ThisDrawing.Utility.GetString(False, "Enter prefix layer name To Be
Changed: <-E> ")
str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, str2, IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub

wrote in message news:5867190@discussion.autodesk.com...
I am not a big fan of dialog boxes for user inputs, unless really necessary.
I prefer using the command prompt. Here is how I would do it.

Public Sub LayerName_Change()
Dim lay As AcadLayer
Dim str As String

str = ThisDrawing.Utility.GetString(False, "Enter layer name prefix:
")

For Each lay In ThisDrawing.Layers
lay.Name = Replace(lay.Name, "-E", IIf(Len(str) = 0, "-Exst", str))
Next lay

End Sub