CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于向绘图添加文本（VBA/ActiveX）› 关于使用文本样式（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于设置文本高度（VBA/ActiveX）

2023-1-5 00:30| 发布者: admin| 查看: 540| 评论: 0|来自: AutoCAD

摘要: 文本高度决定了所用字体中字母的绘图单位大小。

文本高度决定了所用字体中字母的绘图单位大小。

该值通常表示大写字母的大小，但 TrueType 字体除外。

对于 TrueType 字体，为文本高度指定的值可能不表示大写字母的高度。指定的高度表示大写字母的高度加上为重音符号和非英语语言中使用的其他重音符号保留的重音区域。分配给大写字母和重音字符的区域的相对部分由字体设计者在设计字体时确定，因此会因字体而异。

除了大写字母的高度和构成用户指定高度的上升区域之外，TrueType 字体还具有一个下降区域，用于显示延伸到文本插入行下方的部分字符。此类字符的示例包括 y、j、p、g 和 q。

您可以使用属性指定文本高度。此属性仅接受正数。Height

更改文本对象的高度

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

Sub Ch4_ChangeTextHeight()
  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)

  ' Change the value of the Height to 1
  textObj.height = 1
  textObj.Update
End Sub