文本更改？？

Cad O Cad · 发表于 2022-7-6 12:22:38

我想知道是否有人知道或有一些代码可以做到这一点，我试图改变颜色的文字低于一定的大小在我的绘图，只是似乎无法得到正确的。

Tiger · 发表于 2022-7-6 13:17:10

您可以使用QSELECT来选择具有特定文本高度的文本对象，我假设在FILTER命令中，您可以设置一个和FILTER来选择一组文本对象。选择属性后，调出属性并更改颜色。

Cad O Cad · 发表于 2022-7-6 13:37:21

嗯，是的，我知道，但我试图使用代码来自动完成这项工作。这是我开始的一个例子：
函数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”）。删去
结束函数

[编程交流] 文本更改？？

发表回复

精选推荐