Josh,
Here's your answer. The Replace function returns
the
changed string which I then assign to the
Layer.Name
property accordingly.
Joe
--
Dim strOldString As String
Dim strNewString As
String
Dim objLayer As AcadLayer
On Error Resume Next
strOldString = UCase(txtOldString.Text)
strNewString =
UCase(txtNewString.Text)
For Each objLayer In
ThisDrawing.Layers
objLayer.Name = Replace(objLayer.Name,
strOldString, strNewString)
Next objLayer
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
This
is still giving me fits. The idea behind this routine was that my client could
rename the layers in their drawing to change a certain prefix that they had
added to their layers; and they have a fair number of drawings to edit. So,
the strOldString variable is the old prefix, and the strNewString is the new
layer prefix.
Private Sub cmdOK_Click()
Dim strLayerName As String
Dim
strOldString As String
Dim strNewString As String
Dim objLayer As
AcadLayer
On Error Resume Next
strOldString = txtOldString.Text
strNewString = txtNewString.Text
'For Each objLayer In ThisDrawing.Layers
' Debug.Print objLayer.Name
'Next
For Each objLayer In ThisDrawing.Layers
strLayerName = CStr(objLayer.Name)
Set objLayer = ThisDrawing.Layers(strLayerName)
Replace strLayerName, strOldString, strNewString,
1, , vbTextCompare
objLayer.Name = strLayerName
Next
subExit
End Sub
What did I miss?
Thanks,
Joshua
