Sub Hello()
ThisDrawing.Application.Documents.Add
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 = "Hello World!" '设定文本字符
'创建文本对象
Set textObj = ThisDrawing.ModelSpace.AddText _
(textStr, insPoint, textHeight)
ThisDrawing.SaveAs ("Hello.dwg")
End Sub