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

ActiveX 开发指南

关于创建多行文本（VBA/ActiveX）

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

摘要: 您可以使用 AddMText 方法创建多行文本对象（MText 对象）。

您可以使用该方法创建多行文本对象（对象）。MTextAddMText

该方法需要三个值作为输入：文本字符串、绘图中用于放置文本的插入点以及文本边界框的宽度。AddMText

文本字符串是要显示的实际文本。接受 Unicode、控制代码和特殊字符。插入点是一个变体数组，其中包含三个双精度数组，表示图形中用于放置文本的 3D WCS 坐标。文本的宽度是一个正数，表示文本边界框的宽度。宽度以当前单位测量。

创建对象后，可以将文本高度、对齐方式、旋转角度和样式应用于对象，或将字符格式应用于所选字符。MTextMText

创建多行文本

以下代码在模型空间中坐标（2， 2， 0）处创建一个对象。MText

Sub Ch4_CreateMText()
  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
  textString = "This is a text string for the mtext object."

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