[求助]：lisp能否把菜单做在工具条上？

xiaoquansb

我想把菜单做在工具条上，请问能做用lisp做呢，谢谢

haibinpro

编写菜单文件，加载。

and2008

楼上的能否给介绍一下，或者给推荐一些地方可以学习，谢谢。

netbee

LISP在工具栏上只能实现工具条，ARX才能挂菜单！

zxmmelly

工具条的按钮可以引用菜单的，这样：

[_Button("A2图框", "A216", "A232")]$I=ZXM.Bed $I=*

上面的例子是说  按钮 A2图框 引用 ZXM 菜单组里的 Bed  图象子菜单，并显示出来，这是绝对引用。

关于菜单的引用，可以看帮忙文件里的 《自定义手册》之 使用菜单宏交换菜单 。



[B]使用菜单宏交换菜单

用户可以使用菜单宏替换活动的按钮、辅助、弹出、屏幕或数字化仪菜单部分中的内容。新的菜单内容可以是基本菜单中的其他部分或子菜单，也可以是局部菜单的内容。与每个菜单部分相关的菜单交换信息与菜单部分的说明放在一起。

用户只能在相同类型的菜单之间进行交换：一个辅助菜单项与另一个辅助菜单项交换，一个弹出菜单项与另一个弹出菜单项交换，依此类推。试图交换不同类型的菜单可能会导致无法预测的不良后果。但在给定类型内，可以将任何菜单与其他任何菜单交换。交换操作可能会导致数字化仪菜单出现一些奇怪的现象，因为数字化仪菜单通常拥有不同数量的宏。

请在菜单宏中使用下列语法交换菜单：

$section=menugroup.menuname
其中：

$

加载菜单部分。

section

指定菜单部分。有效名称为

A1-A4 表示辅助菜单 1 到 4
B1-B4 表示按钮菜单 1 到 4
P0-P16 表示弹出菜单 0 到 16
I 表示图像菜单
S 表示屏幕菜单
T1-T4 表示数字化仪菜单 1 到 4

menugroup

指定 menuname 所属的菜单组（如果 menuname 在基本菜单中，则此项并不必需）。

menuname

指定要插入的部分或子菜单。它是要加载部分的主标签或别名。

下列菜单项示例了子菜单的引用：

$S=PARTS
$T1=EDITCMDS
用户可在命令中间激活子菜单机制，而不必中断命令。例如，以下命令字符串等效：

$S=ARCSTUFF ARC
ARC $S=ARCSTUFF
每个菜单项都启动 ARC 命令，切换到 ARCSTUFF 屏幕子菜单并等待输入圆弧参数。子菜单引用后面必须有一个空格，以便与菜单项中后面的命令分隔开。

菜单栏或活动快捷菜单中都可以出现弹出菜单，但不能在两者中同时出现。
[/B]

kohi

请5楼给个实际例子好吗？， 谢谢！

zxmmelly

***TOOLBARS
**TuKuai
               [_Toolbar("图块", _Floating, _Hide, 25, 81, 1)]
               [_Button("饰物", "sw16", "sw32")]^C^C$I=S&A-2000.image_shiwu $I=S&A-2000.*
               [_Button("3Dsurface", "Blank16.bmp", "Blank32.bmp")]^C^C$I=ACAD.image_3dobjects $I=ACAD.*


        以上说明：这是mnu文件里的TOOLBARS子菜单，在这个子菜单里只有一个工具条名叫 TuKuai  ，在这个工具条里有两个按钮："饰物"和"3Dsurface"。

    按钮"饰物"使用sw16和sw32两个位图，它引用了S&A-2000菜单组里图象子菜单“shiwu”( $I=S&A-2000.image_shiwu )，并把它显示出来( $I=S&A-2000.* )。

    按钮“3Dsurface”使用Blank16和Blank32两个位图，它引用ACAD菜单组里的图象子菜单“3dobjects”( ^C^C$I=ACAD.image_3dobjects )，并把它显示出来( $I=ACAD.*
)

kohi

哦， 我理解错了，我是想要“下拉按钮”--点击按钮后出现子按钮。。。

zxmmelly

***TOOLBARS
**TuKuai
[_Toolbar("图块", _Floating, _Hide, 25, 81, 1)]
[_Button("饰物", "sw16", "sw32")]^C^C$I=S&A-2000.image_shiwu $I=S&A-2000.*
[_Button("3Dsurface", "Blank16.bmp", "Blank32.bmp")]^C^C$I=ACAD.image_3dobjects $I=ACAD.*

**Other
[_Button("其它", "qt16", "qt32")]^C^C$I=S&A-2000.image_qita $I=S&A-2000.*
[_Flyout("TuKuai", Blank16, Blank32, _OtherIcon, S&A-2000.TuKuai)]

以上的 other 子菜单有两个按钮，一个是“其它”按钮，引用“qita”菜单，另一个按钮引用S&A-2000组里的TuKuai子菜单