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

ActiveX 开发指南

关于设置多行文本格式（VBA/ActiveX）

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

摘要: 新文本会自动采用当前文本样式的特征。标准文本样式是默认样式。

新文本会自动采用当前文本样式的特征。标准文本样式是默认样式。

您可以通过将格式应用于单个字符并将属性应用于对象来覆盖默认文本样式。您还可以使用本节中介绍的方法指示格式或特殊字符。Text

方向选项（如样式、对齐方式、宽度和旋转）会影响文本边界内的所有文本，而不是特定的单词或字符。使用属性更改对象的对齐方式，使用属性控制文本边界的旋转角度。AttachmentPointMTextRotation

该属性设置新文本的默认字体和格式特征。创建文本时，可以从现有样式列表中选择要使用的样式。更改已将字符格式应用于文本任何部分的对象样式时，该样式将应用于整个对象，并且可能不会保留某些字符格式。例如，从 TrueType 样式更改为使用 SHX 字体的样式或另一种 TrueType 字体会导致文本对整个对象使用新字体，并且任何字符格式都将丢失。StyleNameMText

下划线、堆叠文本或字体等格式选项可以应用于段落中的单个单词或字符。您还可以更改颜色、字体和文本高度。您可以更改文本字符之间的空格或增加字符的宽度。

使用大括号（{ }）仅对大括号内的文本应用格式更改。您可以嵌套深达八层的牙套。

您还可以为行或段落中的控制代码输入 ASCII 等效值，以指示格式或特殊字符，如公差或尺寸标注符号。

以下控制字符可用于创建图中的文本。（有关此字符串的 ASCII 等效项，请参阅下图下面的示例。

{{\H1.5x; Big text} \A2; over text\A1;/\A0; under text}

使用控制字符设置文本格式

此示例创建一个对象并设置其格式。MText

Sub Ch4_FormatMText()
  Dim mtextObj As AcadMText
  Dim insertPoint(0 To 2) As Double
  Dim width As Double
  Dim textString As String

  insertPoint(0) = 2
  insertPoint(1) = 2
  insertPoint(2) = 0
  width = 4

  ' Define the ASCII characters for the control characters
  Dim OB As Long  ' Open Bracket  {
  Dim CB As Long  ' Close Bracket }
  Dim BS As Long  ' Back Slash    \
  Dim FS As Long  ' Forward Slash /
  Dim SC As Long  ' Semicolon     ;
  OB = Asc("{")
  CB = Asc("}")
  BS = Asc("\")
  FS = Asc("/")
  SC = Asc(";")

  ' Assign the text string the following line of control
  ' characters and text characters:
  ' {{\H1.5x; Big text}\A2; over text\A1;/\A0; under text}

  textString = Chr(OB) + Chr(OB) + Chr(BS) + "H1.5x" _
  + Chr(SC) + "Big text" + Chr(CB) + Chr(BS) + "A2" _
  + Chr(SC) + "over text" + Chr(BS) + "A1" + Chr(SC) _
  + Chr(FS) + Chr(BS) + "A0" + Chr(SC) + "under text" _
  + Chr(CB)

  ' Create a text Object in model space
  Set mtextObj = ThisDrawing.ModelSpace.AddMText(insertPoint, width, textString)
  ZoomAll
End Sub