select by attributes string input field for text and textnodes greyed out [Connect]

Hello.

Since this command does not work yet.. I had to do a workaround, 

Make a macro to replace the text that you want to select... This of course I only an example, but could be better if add the input text dialog... I hope this could help you.

Regards Guillermo Perez

'Example to select by text string = "Model Rev", and remove it
'Original Text = "Model Rev 150000 Ambient 25DEC"
'final Text = "Ambient 25DEC"
'
CadInputQueue.SendKeyin "UPDATE 1 "
CadInputQueue.SendKeyin "MDL SILENTLOAD SELECTBY dialog"
CadInputQueue.SendKeyin "DIALOG SELECTBY "
'
SetCExpressionValue "selectorGlobals.textstring", "Model Rev"
SetCExpressionValue "selectorGlobals.textstringButton", -1, "SELECTBY"
SetCExpressionValue "selectorGlobals.typemask[0]", 5009, "SELECTBY"
CadInputQueue.SendCommand "SELECTBY EXECUTE "
' Replace
Dim ElEnum As ElementEnumerator
Set ElEnum = GetElementEnumerator
If ElEnum Is Nothing Then GoTo Fin_
While ElEnum.MoveNext
With ElEnum.Current
.Redraw msdDrawingModeErase
index = index + 1
If .Type = msdElementTypeText Then
Dim oTextEl As TextElement
Set oTextEl = ElEnum.Current
oTextEl.Text = "Ambient" & Split(oTextEl.Text, "Ambient")(1)
.Redraw msdDrawingModeNormal
.Rewrite
End If
End With
Wend
Fin_
CadInputQueue.SendKeyin "MDL UNLOAD SELECTBY"
CommandState.StartDefaultCommand

Hello.

Since this command does not work yet.. I had to do a workaround, 

Make a macro to replace the text that you want to select... This of course I only an example, but could be better if add the input text dialog... I hope this could help you.

Regards Guillermo Perez

'Example to select by text string = "Model Rev", and remove it
'Original Text = "Model Rev 150000 Ambient 25DEC"
'final Text = "Ambient 25DEC"
'
CadInputQueue.SendKeyin "UPDATE 1 "
CadInputQueue.SendKeyin "MDL SILENTLOAD SELECTBY dialog"
CadInputQueue.SendKeyin "DIALOG SELECTBY "
'
SetCExpressionValue "selectorGlobals.textstring", "Model Rev"
SetCExpressionValue "selectorGlobals.textstringButton", -1, "SELECTBY"
SetCExpressionValue "selectorGlobals.typemask[0]", 5009, "SELECTBY"
CadInputQueue.SendCommand "SELECTBY EXECUTE "
' Replace
Dim ElEnum As ElementEnumerator
Set ElEnum = GetElementEnumerator
If ElEnum Is Nothing Then GoTo Fin_
While ElEnum.MoveNext
With ElEnum.Current
.Redraw msdDrawingModeErase
index = index + 1
If .Type = msdElementTypeText Then
Dim oTextEl As TextElement
Set oTextEl = ElEnum.Current
oTextEl.Text = "Ambient" & Split(oTextEl.Text, "Ambient")(1)
.Redraw msdDrawingModeNormal
.Rewrite
End If
End With
Wend
Fin_
CadInputQueue.SendKeyin "MDL UNLOAD SELECTBY"
CommandState.StartDefaultCommand

i'm sorry but if you know the text string you want to find  then  doesnt find replace  find the text?

Hi,

Search and Replace does not select text elements, so this is not a work around  for massive text changes.

Frank Klein said:

Search and Replace does not select text elements

Here's an alternative text search tool.  It has a Select option...

Frank Klein said:

This is not a work around  for massive text changes

What is 'massive'?  Does that tool help in your situation?  Suggest ways in which it might be improved.

Hello Lorys. The tool to select does not work (yet) for Text elements. So to me was the way to solve in many files that I have to change. So to me that work around works... As Jon Summers mentioned (I have not tried), there is anorther tool to solve this trouble.I'll try, but looks good. Regards.

What do you mean Find Replace Text doesnt  find Text? The Find replace is specifically for Text  yes it is limited but it does find text, what kind of text are you looking for?...  Jon Summers tool has much improved the find text tool with his own tool even finds tag text and text nodes....