请问如何为多行文字的设置高度宽度属性？我一直没有办法解决。

wenyuan

它的默认字体是不是宋体？还有如何设置字体为仿宋？

mccad

多行文字有许多属性方法可以设置：
Height 可以设置文字高度
Width  可以设置文字两边的宽度
字体样式在StyleName 中
你可以单独设置字体样式，而字体就在样式中设置。也可以直接设置多行文字中某些文字的字体，这就需要了解多行文字的一些特殊字符的用法了，可参照手册。

wenyuan

我试过height属性，可是不行，不知道怎么回事。

还有，autocad中仿宋体的文件名是什么？或者怎么设为仿宋体，代码是什么？

我可以设置成某个文件夹里的字体，但是最好还是用其他方式比较好，应该怎么做？

mccad

用SetFont 方法可以设置字体样式的字体，显示仿宋体就设置字体名为仿宋体，还有加粗、斜体、下划线等选项，你看看帮助文件吧。
Height属性不能设置，可以直接用特殊字符设置，具体可以参见帮助文件中有关多行字体的内容。

wenyuan

好的，多谢，我看看

有问题再来问

wenyuan

还是不行啊

比如说：

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 一句没有什么作用

真的不能改变字高吗？

XJ_HE

mtextobj.height=50

Set mtextObj = AcadApp.ActiveDocument.ModelSpace.AddMText(insertionPoint, Width, mtextString)

wenyuan

那么怎么改成仿宋体呢？

莫名

simfang.ttf

yxh1202

mtextobj.height=50 的方法在2006都不行，是不是版本问题啊