请问如何为多行文字的设置高度宽度属性？我一直没有办法解决。
它的默认字体是不是宋体？还有如何设置字体为仿宋？ 多行文字有许多属性方法可以设置：Height 可以设置文字高度
Width可以设置文字两边的宽度
字体样式在StyleName 中
你可以单独设置字体样式，而字体就在样式中设置。也可以直接设置多行文字中某些文字的字体，这就需要了解多行文字的一些特殊字符的用法了，可参照手册。 我试过height属性，可是不行，不知道怎么回事。
还有，autocad中仿宋体的文件名是什么？或者怎么设为仿宋体，代码是什么？
我可以设置成某个文件夹里的字体，但是最好还是用其他方式比较好，应该怎么做？ 用SetFont 方法可以设置字体样式的字体，显示仿宋体就设置字体名为仿宋体，还有加粗、斜体、下划线等选项，你看看帮助文件吧。
Height属性不能设置，可以直接用特殊字符设置，具体可以参见帮助文件中有关多行字体的内容。 好的，多谢，我看看
有问题再来问 还是不行啊
比如说：
Public Sub textadd(vBZH, vYXLX, vYXCD, vZZ, vSCSL As Variant)
Dim mtextObj As AcadMText
Dim mtextString As String
Dim insertionPoint(0 To 2) As Double
Dim Width As Double
Width = 80
insertionPoint(0) = 50: insertionPoint(1) = 50: insertionPoint(2) = 0
mtextString = "1.325432423423432423\P"
mtextString = mtextString & "2.kldfjkljdflk;ja;fjdklajdfkjakl\P"
mtextString = mtextString & "3.354fgfasdfsaFSDFS\P"
mtextString = mtextString & "4.FSFDGJKLJER09E8405"
AcadApp.ActiveDocument.ActiveLayer = enn(8)
AcadApp.ActiveDocument.ActiveTextStyle.Height = 4
AcadApp.ActiveDocument.ActiveTextStyle.Width = 1
Set mtextObj = AcadApp.ActiveDocument.ModelSpace.AddMText(insertionPoint, Width, mtextString)
End Sub
前面是一个函数，字体是系统自定字体，如果我想为仿宋体，那么应该加进什么语句？
还有，AcadApp.ActiveDocument.ActiveTextStyle.Height = 4 一句没有什么作用
真的不能改变字高吗？ mtextobj.height=50
Set mtextObj = AcadApp.ActiveDocument.ModelSpace.AddMText(insertionPoint, Width, mtextString) 那么怎么改成仿宋体呢？ simfang.ttf mtextobj.height=50 的方法在2006都不行，是不是版本问题啊
页:
[1]