(slide_image 0 0 x y "mach(mach001)")
(end_image)
(start_dialog)
(unload_dialog dcl_id)
)
(defun draw001()command "open""mach001")

5、编制图标菜单

本文通过修改AutoCAD主菜单acad.mnu来实现，其操作步骤如下：

●在AutoCAD主菜单acad.mnu中加入自己的图标菜单区

AutoCAD主菜单acad.mnu中的“***IMAGE”表示图标菜单区，对应幻灯片库中的幻灯片、对话框和对话框的控制程序，在图标菜单区加入以下内容（本文给出的是机械图库的图标菜单，电子图库的图标菜单与此类似）：

***IMAGE

**mach

[电子图库]

[mach(mach001,mach001)]^C^C(load "mach001");(mach001);
[mach(mach002,mach002)]^C^C(load "mach002");(mach002);
[mach(mach030,mach030)]^C^C(load "mach030");(mach030);

●将图标菜单的加载放到AutoCAD下拉菜单区

在菜单文件acad.mnu中的***POP10（下拉菜单第十区）前加入如下内容（同时将***POP10改为***POP11）： ***POP10 [图形库]

ID-ELE[电子图库]$I=ACAD.ELE +

$I=ACAD.*

ID-MACH[机械图库]$I=ACAD.MACH +

$I=ACAD.*

●将修改后的菜单文件用AutoCAD中的menu命令编译成acad.mns即可。

五、 应用效果

　　进入AutoCAD操作界面后，会发现在下拉菜单区出现了“图形库”菜单项。点击下拉菜单“图形库”菜单项，弹出相应的下拉菜单项，包括“机械图库”和“电子图库”。选择“机械图库”或“电子图库”菜单项（本文使用的是“机械图库”菜单项），弹出图1所示图标菜单。通过鼠标双击图标菜单左边的列表框中的列表项或右边的图标则可弹出图2所示的对话框，该对话框给出了一些与图形有关的信息。也可以先用鼠标拾取一个列表项或图标，再点击“ok”按钮弹出对话框。对话框给出了放大的幻灯片和该幻灯片的信息。点击“确定”按钮则打开图形文件。点击“取消”按钮则不打开图形文件并关闭对话框。

六、 结束语

　　图形管理是CAD应用的一个重要内容，是CAD应用中较为繁琐、较为困难的部分之一。不同的用户可以有不同的图形管理方案，本文提出的方案完全基于AutoCAD的开放体系结构提供的Autolisp语言和DCL语言，旨在利用AutoCAD提供的上述两种解释性语言，以使AutoCAD用户能方便地应用。