AutoCAD VBA第一个程序：Hello VBA!

AutoCAD VBA第一个程序：Hello VBA!，像Hello world一样经典，代码如下。

Public Sub HelloVBA()
Dim pt(0 To 2) As Double
pt(0) = 100
pt(1) = 100
pt(2) = 0
Dim value As Integer
value = MsgBox("Hello VBA!", vbNewLine & "是否在图形中添加？", vbYesNo, "获得用户选择")
If value = 6 Then
ThisDrawing.ModelSpace.AddText "Hello VBA!", pt, 10
End If
End Sub

代码完。