请教关于菜单问题？

arden

请看以下代码：
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

1、 MacroStr = Chr(3) + "-vbarun excel.dvb!askTbh" + Chr(32)前面应该要使用两个Chr(3)才能确保清除正在运行的命令，例如标注。


2、提示信息“Select an object:”单独显示在一行，可以在前面加上回车换行符vbCrLf。如：vbCrLf & "Select an object"


3、输入空格或回车键时重复调用命令是由系统设置来完成的，在选项中可以看到。同时借助于Lisp，编写一个命令调用宏。其实vbarun是一个命令，而后面的宏只是它的参数而已，重复调用的命令必须是无参数的命令。

雪山飞狐_lzh

要怎样设置才能使该命令可以重复使用


用Lisp做一个命令调用就OK了

arden

第二个问题还是没弄明白，我又看了几遍书还是没搞懂，请讲具体点。谢谢。

arden

谁能告诉我?

雪山飞狐_lzh

2楼讲的够清楚了