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

ActiveX 开发指南

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

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

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

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

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