：boxed．IOW{／／定义一个加框行
children．alignment=centered；／／所有子控件中心对齐
initial．focus=qx"

“

／／光标初始定位为 LX”控件

：retirment．butto^a{／／定义一个按钮
key="Ix”

“

；／／该控件标识号为 Lx”

label=”

”

展点 ；／／该控件的文本标题

}／／一个控件定义结束
}／／加框行定义结束
：column{／／定义一个空白列
fixed．width=true；／／指定控件的宽度保持固定
fixed．height=true；／／指定控件的高度保持固定
height=13；／／指定控件的高度为 45 个字符
}／／空白列定义结束
：text{／／定义一个控件
key="textl”

“

；／／该控件标识号为 textl”

label=”此处显示出错信息!W 该控件的文本标题
}／／控件定义结束
ok．cancel．help

“

；／／选用标准 OK-

”

取消一帮助 控件

}／／对话框定义结束

3.2 对话框驱动程序

；；；一一一一一一一一一一一一
；；；文件名：coordin．LSP
；；；功能：调用测量绘图系统主菜单
；；；时间：2005 年 12 月
；；；一一一一一一一一一一一一
；；；定义一个函数，函数名为 C：clcad
(defun c：clcad()
；；；JJo 载 DCL 文件
(if；︱if1︳；(and(not dcl-id)(<(setq dcl·id(10addialog”
C：／acadwin／clcad．dcl”))O))(exit))；endifl
；；；激活出对话框
(if；︱if2︳；(not new—dialog”clcadss”dcl—id))(exit)；endif2
(setq what—next 4)
(while(<2 what—next)；设置循环
(action—tile“lx”(C：lx)”)；接受在 lx 按钮上的操作
(action—tile“jkd(C：jkd)”)；接受在 jkd 按钮上的操作
(action-tile”zhsh””(e：zhsh)”)；接受在 zhsh 按钮上的操作
(action-tile”ckd””(C：ckd)”)；接受在 ckd 按钮上的
操作
(action-tile”fd”～(c：fd)”)；接受在 fd 按钮上的操作
(action-tile“output”(c：output)”)；接受在 output 按钮上的操作
(action·tile”accept””(done—dialog 1)”)；接受在 OK 按钮上的操作