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

请教关于菜单问题？

请看以下代码：<BR>                       Dim NewMenuGroup As AcadMenuGroup<BR>                       Dim NewMenu As AcadPopupMenu<BR>                       Dim NewMenuItemName As AcadPopupMenuItem<BR>                       Dim MacroStr As String               


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

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 &amp; "Select an object"


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

雪山飞狐_lzh 发表于 2004-4-4 16:31:00

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


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

arden 发表于 2004-4-5 11:29:00

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

arden 发表于 2004-4-6 16:21:00

谁能告诉我?

雪山飞狐_lzh 发表于 2004-4-6 17:31:00

2楼讲的够清楚了
页: [1]
查看完整版本: 请教关于菜单问题？