请看以下代码:
Dim NewMenuGroup As AcadMenuGroup
Dim NewMenu As AcadPopupMenu
Dim NewMenuItemName As AcadPopupMenuItem
Dim MacroStr As String
MacroStr = Chr(3) + "-vbarun excel.dvb!askTbh" + Chr(32)
Set NewMenuItemName = NewMenu.AddMenuItem(NewMenu.Count + 1, "查询图斑号", MacroStr)
1、 当点击"查询图斑号"菜单时命令行提示:
Macro name: excel.dvb!askTbh Select an object:
请问怎样将程序提示“Select an object:”单独显示在一行?
2、MacroStr = Chr(3) + "-vbarun excel.dvb!askTbh" + Chr(32)
要怎样设置才能使该命令可以重复使用,就是输入空格或回车键时重复调用?