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

y1982_0 发表于 2005-8-6 10:35:00

谢谢啦，等待中

y1982_0 发表于 2005-8-6 11:12:00

<PRE 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><PRE class=Code>这程序里也没有设置字高的？</PRE>

王咣生 发表于 2005-8-6 11:12:00

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 发表于 2005-8-6 11:21:00

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

王咣生 发表于 2005-8-6 11:34:00

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 发表于 2005-8-6 14:27:00

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

页: [1]

明经CAD社区's Archiver

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