社区 › VB › 请教关于菜单问题？

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是一个命令，而后面的宏只是它的参数而已，重复调用的命令必须是无参数的命令。

雪山飞狐_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楼讲的够清楚了

查看完整版本: 请教关于菜单问题？