请教关于菜单问题？

arden · 发表于 2004-4-4 10:48:00

请看以下代码：
   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)
   要怎样设置才能使该命令可以重复使用，就是输入空格或回车键时重复调用？

efan2000 · 发表于 2004-4-4 15:06:00

1、 MacroStr = Chr(3) + "-vbarun excel.dvb!askTbh" + Chr(32)前面应该要使用两个Chr(3)才能确保清除正在运行的命令，例如标注。
2、提示信息“Select an object:”单独显示在一行，可以在前面加上回车
符vbCrLf。如：vbCrLf & "Select an object"
3、输入空格或回车键时重复调用命令是由系统设置来完成的，在选项中可以看到。同时借助于Lisp，编写一个命令调用宏。其实vbarun是一个命令，而后面的宏只是它的参数而已，重复调用的命令必须是无参数的命令。