文本生成标志指定文本是向后显示还是倒置显示。 若要设置文本生成标志,请使用属性。若要向后显示文本,请输入此属性。若要上下颠倒显示文本,请输入此属性。若要向后和向下显示文本,请通过输入此属性将两个常量相加。TextGenerationFlagacTextFlagBackwardacTextFlagUpsideDownacTextFlagBackward+acTextFlagUpsidedown 向后显示文本本示例创建一行文本,然后使用 该属性将其设置为向后显示。TextGenerationFlag Sub Ch4_ChangingTextGenerationFlag() Dim textObj As AcadText Dim textString As String Dim insertionPoint(0 To 2) As Double Dim height As Double ' Create the text object textString = "Hello, World." insertionPoint(0) = 3 insertionPoint(1) = 3 insertionPoint(2) = 0 height = 0.5 Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height) ' Change the value of the TextGenerationFlag textObj.TextGenerationFlag = acTextFlagBackward textObj.Update End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-19 15:57
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.