CQBOY 发表于 2003-1-6 21:06:00

开发“坐标标注”程序遇到的问题

各位大虾,我用VBA开发了一个坐标标注程序,但我想在工具栏上建立一个按钮来快捷操作,但是在创建工具栏时,坐标标注程序对应的宏的名称(代码中问号处)小弟不知填入什么?希望各位发扬武林精神拔刀相助!!!源代码如下:
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

'创建工具条
Dim toolbar As AcadToolbar
Set toolbar = currMenuGroup.Toolbars.Add("toolbar")

'创建按钮
Dim button As AcadToolbarItem
Dim openMacro As String

'给宏赋值
openMacro = Chr(3) + Chr(3) + Chr(95) + "?" + Chr(32)
Set butoon = toolbar.AddToolbarButton("", "坐标标注", "坐标标注.", openMacro)
页: [1]
查看完整版本: 开发“坐标标注”程序遇到的问题