TEXT change??

[Cad O Cad]

I was wondering if anyone knew or has some code that can do this, I am trying to change the color of TEXT below a certain size on my drawing, and just cant seem to get it right.

[Tiger]

You can use QSELECT to select textobjects of a certain textheight, I assume that in the FILTER command you can set a AND-filter to get a bunch of text objects selected. After you have them selected, pull up Properites and change the color.

[Cad O Cad]

well yes i know, but im trying to use code to do this automated. is a example of what im starting off with:

Function CHANGETEXTBACKTOWHITE(strErrors)

'**************************************************************

'*

'* Variable Declarations

'*

'**************************************************************

Dim S99 As AcadSelectionSet

Dim Ftyp(3) As Integer

Dim errCount As Long

Dim Fval(3) As Variant

'**************************************************************

'*

'* Program Begins

'* Changes Text Back to White

'*

'**************************************************************

 

Ftyp(0) = -4: Fval(0) = "

'Ftyp(1) = -4: Fval(1) = "

Ftyp(1) = 67: Fval(1) = "0" 'model space

Ftyp(2) = 0: Fval(2) = "TEXT"

'Ftyp(3) = 0: Fval(3) = "MTEXT"

'Ftyp(3) = 62: Fval(3) = 6

Ftyp(3) = -4: Fval(3) = "AND>"

Set S99 = ThisDrawing.SelectionSets.Add("S99")

S99.Select acSelectionSetAll, , , Ftyp, Fval

If S99.Count > 0 And TextHeight

'And TextHeight

'And ActiveTextStyle = "Standard" Or ActiveTextStyle = "Logo"

'And TextHeight

For errCount = 0 To S99.Count - 1

S99(errCount).color = acWhite

Next errCount

End If

ThisDrawing.SelectionSets("S99").Delete

End Function