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

ActiveX 开发指南

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

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

摘要: 使用行文本时，每个单独的文本行都是一个不同的对象。

使用行文本时，每行文本都是一个不同的对象。

若要创建行文本对象，请使用以下方法。此方法需要三个值作为输入：文本字符串、插入点和文本高度。AddText

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

创建行文本

本示例在模型空间的坐标（2， 2， 0）处创建一行文本。

Sub Ch4_CreateText()
  Dim textObj As AcadText
  Dim textString As String
  Dim insertionPoint(0 To 2) As Double
  Dim height As Double

  ' Create the text object
  textString = "Hello, World."
  insertionPoint(0) = 2
  insertionPoint(1) = 2
  insertionPoint(2) = 0
  height = 0.5
  Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
  textObj.Update
End Sub