文本更改？？
我想知道是否有人知道或有一些代码可以做到这一点，我试图改变颜色的文字低于一定的大小在我的绘图，只是似乎无法得到正确的。 您可以使用QSELECT来选择具有特定文本高度的文本对象，我假设在FILTER命令中，您可以设置一个和FILTER来选择一组文本对象。选择属性后，调出属性并更改颜色。 嗯，是的，我知道，但我试图使用代码来自动完成这项工作。这是我开始的一个例子：函数CHANGETEXTBACKTOWHITE（strErrors）
'**************************************************************
'*
'*变量声明
'*
'**************************************************************
Dim S99作为AcadSelectionSet
Dim Ftyp（3）为整数
Dim errCount As Long
Dim Fval（3）作为变体
'**************************************************************
'*
“*程序开始
'*将文字改回白色
'*
'**************************************************************
Ftyp（0）=-4:Fval（0）=“'Ftyp（1）=-4:Fval（1）=”Ftyp（1）=67:Fval（1）=“0”'模型空间
Ftyp（2）=0:Fval（2）=“文本”
“Ftyp（3）=0:Fval（3）=“多行文字”
‘Ftyp（3）=62:Fval（3）=6
Ftyp（3）=-4:Fval（3）=“和>”
设置S99=此图形。选择集。添加（“S99”）
S99。选择acSelectionSetAll、、Ftyp、Fval
如果是S99。计数>0和文本高度
'和文本高度
'和ActiveTextStyle=“标准”或ActiveTextStyle=“徽标”
'和文本高度
对于errCount=0到S99。计数-1
S99（错误计数）。颜色=acWhite
下一个错误计数
如果结束
此图纸。选择集（“S99”）。删去
结束函数
页:
[1]