更改多行文字的字体
大家好我有如下示例多行文字代码，但我不知道如何更改此多行文字的字体。如果你知道，请帮助我。谢谢
Sub AddMtext（）
将MTEXTEXTBJ设置为AcadMText
变暗点（0到2）为双精度
双精度宽度
将文本变暗为字符串
点（0）=0#：点（1）=10#：点（2）=0#
宽度=10
text=“ABC”
设置MTEXPOBJ=ThisDrawing。模型空间。AddMText（点、宽度、文本）
动物园购物中心
末端接头 您可能需要使用多行文字格式
请参阅快速示例：
选项显式
子示例_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。宽度=宽度
末端接头
页:
[1]