[求助]请问怎么加载dcl对话框

renaguo

刚开始学用dcl对话框，在AutoCAD2004平台 autolisp程序（dia.lsp）如下 (defun c:dia5a()
(setvar "cmdecho" 0)
(dcl_dia5a)
(prin1)
) (defun dcl_dia5a()
(setq dcl_id (load_dialog "dia5a"))
(new_dialog "dia5a" dcl_id)
(set_tile "edit_p" (rtos (getvar "plinewid")))
(set_tile "edit_f" (rtos (getvar "filletrad")))
(set_tile "edit_t" (rtos (getvar "textsize")))
(set_tile "edit_s" (itoa (getvar "savetime")))
(action_tile "accept" "(ok_dia5a) (done_dialog 1)")
(start_dialog)
) (defun ok_dia5a()
(setvar "plinewid" (atof (get_tile "edit_p")))
(setvar "filletrad" (atof (get_tile "edit_f")))
(setvar "textsize" (atof (get_tile "edit_t")))
(setvar "savetime" (atoi (get_tile "edit_s")))
) dcl程序如下： dia5a:dialog{
label="autocad绘图默认值设定";
:edit_box{
label="pline宽度";
key="edit_p";
edit_width=6;
}
:edit_box{
label="fillet半径";
key="edit_f";
edit_width=6;
}
:edit_box{
label="text字高";
key="edit_t";
edit_width=6;
}
:edit_box{
label="自动保存时间";
key="edit_s";
edit_width=6;
}
ok_cancel;
} 调用步骤如下：工具→autolisp→加载→dia.lsp→加载→关闭→命令：dia5a回车 然后autocad命令行还是命令两个字没有其他反应，请高人指点啊

f5612140

dia5a.dcl要在支援工作目录下,或者放在点击dwg档案进入cad的目录下

onej

在选项里面设置你的DCL文件目录即可。