[VBA]用按钮来运行VBA工程
谨以本人在农村电气信息化上发表的“如何在CAD图纸中快速插入杆号”一文中编的宏为例（此宏经本人多次修改，并请高手指点），以下是操作步骤：
1、打开AUTOCAD2004，单击菜单栏上的“工具”菜单、指向“宏”、单击Visual Basic编辑器进入VB编辑状态。
2、在VB编辑状态单击菜单栏上的“插入”菜单、单击“模块”，在编辑窗口中输入以下代码：
Public Sub insertgh()
Dim sp(0 To 2) As Double
Dim textHeight As Double
Dim textStr As String
Dim textObj As AcadText
Dim gh As Integer
Dim varRet As Variant
On Error GoTo Err_Control
gh = ThisDrawing.Utility.GetInteger(vbCrLf & "命令:请输入起始杆号:")
textHeight = ThisDrawing.Utility.GetInteger("请输入文字高度:")
Do While gh
varRet = ThisDrawing.Utility.GetPoint(, "请选择插入点:")
sp(0) = varRet(0)
sp(1) = varRet(1)
sp(2) = varRet(2)
textStr = CStr(gh) & "#"
Set textObj = ThisDrawing.ModelSpace.AddText(textStr, sp, textHeight)
gh = gh + 1
Loop
Err_Control:
Err.Clear
Exit Sub
End Sub
3、保存上述代码，（必须）为它重新取个工程名称：insertgh.dvb，保存在AUTOCAD 2004安装目录的Support文件夹，返回AUTOCAD工作界面。
4、用鼠标右键单击“绘图”工具栏，然后从弹出的快捷菜单中选择“自定义”选项，打开“自定义”对话框。单击“命令”选项卡，先选中对话框“分类”列表的用户定义，然后在“命令”列表中选中“用户定义的按钮”，拖动到绘图工具栏下方，出现一个空白的工具栏按钮。单击空白的工具栏按钮，弹出“自定义”对话框的“按钮特性”选项卡，在“名称”输入框中，键入杆号，在“说明”输入框中，键入插入杆号。在“与此关联的宏”输入框中，键入“^C^C-VBARUN insertgh.dvb!ThisDrawing.insertgh”。如果有兴趣，可以为按钮做个图标。单击“编辑按钮”，打开“按钮编辑器”对话框，用画笔画一个图标，本例本人画了一个如“＃”号的图标，单击“保存按钮”，然后单击“关闭”按钮。在“按钮特性”选项卡中，单击“应用”按钮，这时图标图案就出现在自己建立的工具栏中。这时你编的按钮就可以应用了。
置顶卡
