AutoCAD VBA第一个程序：Hello VBA!
2011-03-19 23:41 精诚所至 金石为开 阅读(403) 评论(0) 编辑 收藏 举报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
代码完。
