◆创建幻灯片列表文件（*.txt）

　　假设有mach001.dwg～mach030.dwg共30个图形文件和对应的mach001.sld～mach030.sld共30个幻灯片文件,编辑如下文件（文件名为mach.txt）：

mach001.sld

mach002.sld

mach003.sld

mach030.sld

◆幻灯片库的建立

　　使用AutoCAD的support目录中的实用程序slidelib，将幻灯片文件按照文件列表构造成幻灯片库mach.slb： slidelib mach<>

3、编写对话框文件（*.dcl）

　　对话框主要是展示一个图文并茂的图形库中的图形，在对话框中不仅要有图形预览，还要有该图形的一些文字说明。假设图形库中的mach001.dwg是一个绘制轴承的图形文件：图号为mach-001，则可编制如下对话框文件（文件名为mach001.dcl）：

dcl_settings:default_dcl_settings{audit_level=0;}

accept_button:ok_button{

label="确定";

key="accept";

}

can_button:cancel_button{

label="取消";

key="cancel";

}

mach001:dialog{

label="机械图库—mach001";

:row{

:column{

:text{

label="图 号：mach-001";

key="num";

width=20;

fixed_width=true;

}

……

:image{

key="img";

width=40;

height=20;

}

}

spacer_1;

:row{

:text{

label=" ";

}

accept_button;

can_button; :text{

label="";

} }

}

4、编制对话框控制程序（*.lsp）

下面给出对话框文件mach001.dcl的控制程序mach001.lsp：

(defun mach001()

(setq dcl_id (load_dialog "mach001.dcl"))

(if (not (new_dialog "mach001" dcl_id))

(exit))

(action_tile "accept" "(draw001)")

(action_tile "cancel" "(done_dialog)")

(setq x (dimx_tile "img")

y (dimy_tile "img"))

(start_image "img")

(fill_image 0 0 x y 0)

(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

[电子图库]