现在，您已经学习了 AutoCAD VBA 编程的基本知识，接下来，让我们进行一个创建简单的“你好，世界”的练习。在此练习中，将会创建新的 AutoCAD 图形，并向该图形中添加一行文字，然后保存图形，全部操作均通过 VBA 来完成。
- 从 AutoCAD 命令行输入以下命令来打开 VBA IDE：
- 从 VBA IDE 的“查看”菜单中选择“代码”选项打开“代码”窗口。
- 从 VBA IDE 的“插入”菜单中选择“过程”选项，在工程中创建新过程。
- 当提示输入过程信息时，输入名称，例如 HelloWorld。请确保选定的“类型”是 Sub，选定的“作用域”是 Public。
- 选择“确定”。
- 在行 Public Sub HelloWorld() 和行 End Sub 之间输入以下代码（用于打开新图形）。
ThisDrawing.Application.Documents.Add
- 紧接在步骤 6 输入的代码之后输入以下代码（用于创建字符串和定义其插入位置）。
Dim insPoint(0 To 2) As Double ' 声明插入点
Dim textHeight As Double ' 声明文字高度
Dim textStr As String ' 声明字符串
Dim textObj As AcadText ' 声明文字对象
insPoint(0) = 2 ' 设置插入点的 X 坐标
insPoint(1) = 4 ' 设置插入点的 Y 坐标
insPoint(2) = 0 ' 设置插入点的 Z 坐标
textHeight = 1 ' 将文字高度设置为 1.0
textStr = "你好，世界！"' 设置字符串
' 创建 Text 对象
Set textObj = ThisDrawing.ModelSpace.AddText _
(textStr, insPoint, textHeight)
- 紧接在步骤 7 中的输入代码之后输入以下代码（用于保存图形）。
ThisDrawing.SaveAs("Hello.dwg") - 从 VBA IDE 的“运行”菜单中选择“运行子程序或用户窗体”选项来运行程序。
当程序运行完时，AutoCAD 应用程序将置于最前。您应该能够看到图形中显示的文字“你好，世界！”。图形的名称应为“Hello.dwg”。