设置文字高度

From AutoCAD ActiveX/VBA

previous page next page

使用 Unicode 和大字体

使用文字样式

设置倾斜角度

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 将文字添加到图形 > 使用文字样式 >

设置文字高度

文字高度确定使用字体的字母大小，以图形单位计。该值通常表示大写字母的大小，但 TrueType 字体除外。

对于 TrueType 字体，文字高度的值可能不代表大写字母的高度，而是代表大写字母的高度加上预留给重音标记和非英语语言中其他标记的重音区域的高度。指定给大写字母和重音字符区域的相对区域是由字体设计者在设计字体时确定的，因此会随着字体而变动。

除了大写字母和组成用户指定高度的重音字符之外，TrueType 字型还有用于部分字符的下降区域，扩展到文字的插入线之下。这些字符的例子有 y、j、p、g 和 q。

使用 Height 特性指定文字高度。此特性只接受正数。

修改 Text 对象的高度

本例创建一行文字，然后修改该文字的高度。

Sub Ch4_ChangeTextHeight()

    Dim textObj As AcadText

    Dim textString As String

    Dim insertionPoint(0 To 2) As Double

    Dim height As Double

          ' 定义 Text 对象
          textString = "Hello, World."
          insertionPoint(0) = 3
          insertionPoint(1) = 3
          insertionPoint(2) = 0
          height = 0.5
                ' 在模型空间中创建 Text 对象
          Set textObj = ThisDrawing.ModelSpace. _
                       AddText(textString, insertionPoint, height)
                ' 将 Height 值改为 1
          textObj.height = 1
          textObj.Update
      End Sub

previous page start next page