求助：多行文本的字高在程序中如何设置？

y1982_0

谢谢啦，等待中

y1982_0

<RE class=Code>Sub Example_AddMtext()
    ' This example creates an MText object in model space.
   
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
    width = 10
    text = "This is the text String for the mtext Object"

    ' Creates the mtext Object
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
   
End Sub</PRE><RE class=Code>这程序里也没有设置字高的？</PRE>

王咣生

Sub Example_Height()
    ' This example creates a text object in model space.
    ' It then changes the height of the text object.

    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
   
    ' Define the text object
    textString = "Hello, World."
    insertionPoint(0) = 3: insertionPoint(1) = 3: insertionPoint(2) = 0
    height = 0.5
   
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    ZoomAll
    MsgBox "The text height is " & textObj.height, vbInformation, "Height Example"
   
    ' Change the value of the Height to 1
    textObj.height = 6
    textObj.Update
    MsgBox "The text height is set to " & textObj.height, vbInformation, "Height Example"
   
End Sub

y1982_0

谢谢大哥回复，你写的是单行文本的高度设置，我现在只能用MTEXT，因为我在做引线标注，引线标注里面只识别多行文本，希望得到解答，多行文本的高度设置？

王咣生

Sub Example_AddMtext()
    ' This example creates an MText object in model space.
   
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
    width = 10
    text = "This is the text String for the mtext Object"

    ' Creates the mtext Object
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    MTextObj.Height = 20
    ZoomAll
   
End Sub

y1982_0

好用，谢谢楼上兄台，结帖