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

代码完。

没有更多推荐了,返回首页