社区 › VB › 如何调用自定义的宏

jiavia 发表于 2008-5-16 16:41:00

如何调用自定义的宏

大家好，本人刚刚接触这方面的知识，有个问题想请教一下
有下面的函数
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
请问怎么写呢。谢谢大家阿！！！！

azjmjsj 发表于 2008-5-17 00:20:00

Set newButton =
newToolbar.AddToolbarButton(1, "新功能", "新功能", "-vbarun GetTrueCoordinate" & vbCr)

jsxygshh 发表于 2012-11-16 09:53:00

正在找，终于找到了，谢谢AZJMJSJ

查看完整版本: 如何调用自定义的宏