So I am reading a value from a text file and checking the first column of a table for the value and if the value exist in the cell then I want to change the color of the text to cyan. Not sure why this isn't working... any help would be appreciated.
I dimension the color and set it...
Code:
GetInterfaceObject ("AutoCAD.AcCmColor.22")
Dim mycolor As New AcadAcCmColor
mycolor.SetRGB 0, 255, 255
then get the table with a selection set. In this particular drawing there is always only one table so I could do it other ways but this was quick.
Code:
Open selfile For Input As mIntFilenumber
If Not objss.Count = 0 Then Set objtable = objss(0)
Do While Not EOF(mIntFilenumber)
Input #mIntFilenumber, textline
cnti = objtable.Rows
For RowCnt = 0 To objtable.Rows
If InStr(textline, objtable.GetCellValue(RowCnt, 0)) > 0 Then
objtable.SetCellContentColor RowCnt, 0, mycolor
End If
Next RowCnt
Loop
then absolutely nothing about the table changes. I watch it iterate and it finds the match but does not change the color. What am I not doing.