|
|
大家好，本人刚刚接触这方面的知识，有个问题想请教一下
有下面的函数
Sub SetToolbarButton()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
'建立一个新的栏
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
'在新工具栏上增加一个按钮
Dim newButton As AcadToolbarItem
Dim openMacro As String
'赋值这个宏的VB表达式为"ESC ESC _open "
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set newButton = newToolbar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)
End Sub
上面代码能正常运行。但是我想在这里
Set newButton = newToolbar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)
中的openMacro赋予自己的宏表达式GetTrueCoordinate()，如下面：
Sub GetTrueCoordinate()
MsgBox("Hello World!")
End Sub
请问怎么写呢。谢谢大家阿！！！！
|
|
置顶卡
