[求助]请问怎么加载dcl对话框
刚开始学用dcl对话框，在autocad2004平台autolisp程序（dia.lsp）如下
(defun c:dia5a()<BR> (setvar "cmdecho" 0)<BR> (dcl_dia5a)<BR> (prin1)<BR>)
(defun dcl_dia5a()<BR> (setq dcl_id (load_dialog "dia5a"))<BR> (new_dialog "dia5a" dcl_id)<BR> (set_tile "edit_p" (rtos (getvar "plinewid")))<BR> (set_tile "edit_f" (rtos (getvar "filletrad"))) <BR> (set_tile "edit_t" (rtos (getvar "textsize")))<BR> (set_tile "edit_s" (itoa (getvar "savetime")))<BR> (action_tile "accept" "(ok_dia5a) (done_dialog 1)")<BR> (start_dialog)<BR>)
(defun ok_dia5a()<BR> (setvar "plinewid" (atof (get_tile "edit_p")))<BR> (setvar "filletrad" (atof (get_tile "edit_f")))<BR> (setvar "textsize" (atof (get_tile "edit_t")))<BR> (setvar "savetime" (atoi (get_tile "edit_s")))<BR>)
dcl程序如下：
dia5a:dialog{<BR> label="autocad绘图默认值设定";<BR> :edit_box{<BR> label="pline宽度";<BR> key="edit_p";<BR> edit_width=6;<BR> }<BR> :edit_box{<BR> label="fillet半径";<BR> key="edit_f";<BR> edit_width=6;<BR> }<BR> :edit_box{<BR> label="text字高";<BR> key="edit_t";<BR> edit_width=6;<BR> }<BR> :edit_box{<BR> label="自动保存时间";<BR> key="edit_s";<BR> edit_width=6;<BR> }<BR>ok_cancel;<BR>}
调用步骤如下：工具→autolisp→加载→dia.lsp→加载→关闭→命令：dia5a回车
然后autocad命令行还是命令两个字没有其他反应，请高人指点啊 dia5a.dcl要在支援工作目录下,或者放在点击dwg档案进入cad的目录下 在选项里面设置你的DCL文件目录即可。
页:
[1]