更改多行文字的字体

nguyendan81985 · 发表于 2022-7-6 22:13:44

大家好

我有如下示例多行文字代码，但我不知道如何更改此多行文字的字体。如果你知道，请帮助我。谢谢

Sub AddMtext（）

将MTEXTEXTBJ设置为AcadMText
变暗点（0到2）为双精度
双精度宽度
将文本变暗为字符串
点（0）=0#：点（1）=10#：点（2）=0#
宽度=10
text=“ABC”

设置MTEXPOBJ=ThisDrawing。模型空间。AddMText（点、宽度、文本）
动物园购物中心

末端接头

fixo · 发表于 2022-7-6 23:25:56

您可能需要使用多行文字格式
请参阅快速示例：
选项显式
子示例_AddMtext（）
'此示例在模型空间中创建多行文字对象
'并将其与底部中心对齐

将MTEXTEXTBJ设置为AcadMText
变暗选取点
将拐角（0到2）暗显为双色
双精度宽度
Dim TXTHIGHT为双精度
作为字符串的暗字体
font=“Comic Sans MS”
将文本变暗为字符串
pickPt=此图纸。公用事业GetPoint（，vbCrLf和“拾取文本位置：”）
角点（0）=选取点（0）：角点（1）=选取点（1）：角点（2）=0#
txtheight=此图纸。GetVariable（“textsize”）

text=“这是一个多行文字字符串，带有\ Pusing”&“”&font&“”&“font”
Dim wid作为变体
wid=拆分（文本，“\P”，-1，vbTextCompare）
text=“\A；\f”&font&“| b1 | i1 | c0 | p0；”文本

宽度=Len（CStr（wid（0）））*txtheight*0.875
“”创建多行文字对象
设置MTEXPOBJ=ThisDrawing。模型空间。AddMText（角点、宽度、文本）
“”与底部中心对齐
MTEXPOBJ。AttachmentPoint=acAttachmentPointBottomCenter
“”重置位置
MTEXPOBJ。插入点=角点
Dim minExt作为变体
Dim maxExt作为变体

'返回直线的边界框并返回最小值
'和minExt和maxExt变量中框的最大范围。
MTEXPOBJ。GetBoundingBox minExt，maxExt
宽度=maxExt（0）-minExt（0）
MTEXPOBJ。宽度=宽度

末端接头

[编程交流] 更改多行文字的字体

发表回复

精选推荐