Text Selection

[Anonymous]

How can I get the text string of all text in a drawing with a height of .21875 that is one character in length using VBA and no manual selection?

Thanks

[Anonymous]

See if the sample below does what you want.

Gary

Dim iDxfCode(2) As Integer
Dim vDxfData(2) As Variant
Dim oTextEnt As AcadText

iDxfCode(0) = 0
vDxfData(0) = "TEXT"

iDxfCode(1) = 40
vDxfData(1) = 0.21875

iDxfCode(2) = 1
vDxfData(2) = "?"

Dim oTextSet As AcadSelectionSet

On Error Resume Next
Set oTextSet = ThisDrawing.SelectionSets("TextSet")
If Err Then
Err.Clear
Set oTextSet = ThisDrawing.SelectionSets.Add("TextSet")
End If
On Error GoTo 0

oTextSet.Select acSelectionSetAll, , , iDxfCode, vDxfData

oTextSet.Highlight True

For Each oTextEnt In oTextSet
Debug.Print oTextEnt.TextString
Next

oTextSet.Clear

[Anonymous]

Perfect, and Thank You!