visual lisp菜鸟，求助各位大神

福建师大附中

搬运书本上的编码，但是执行时不会显示对话框，怎么回事

1. (defun c:dia5a()
   
2.   (setvar "cmdecho" 0)           ;防止命令执行的过程显示
   
3.   (dcl_dia5a)                    ;调用dcl_dia5a子程序
   
4.   (prin1)                        ;防止nil
   
5.   )
   
6. (defun dcl_dia5a()
   
7.   (setq dcl_id (load_dialog "dia5a"))     ;载入DCL文件
   
8.   (new_dialog "dia5a" dcl_id)             ;启动新的dialog对话框dia5a
   
9.   (set_tile "edit_p" (rtos (getvar "plinewid")))
   
10.   (set_tile "edit_f" (rtos (getvar "filletrad")))
    
11.   (set_tile "edit_t" (rtos (getvar "textsize")))
    
12.   (set_tile "edit_s" (rtos (getvar "savetime")))
    
13.   (action_tile "accept" "(ok_dia5a)(done_dialog l)")
    
14.   (start_dialog)                          ;将控制权交给DCL
    
15.   )
    
16. (defun ok_dia5a()
    
17.   (setvar "plinewid" (atof (get_tile "edit_p")))
    
18.   (setvar "filletrad" (atof (get_tile "edit_f")))
    
19.   (setvar "textsize" (atof (get_tile "edit_t")))
    
20.   (setvar "savetime" (atof (get_tile "edit_s")))
    
21.   )
    
22.    

(defun c:dia5a()<br />   (setvar "cmdecho" 0)           ;防止命令执行的过程显示<br />   (dcl_dia5a)                    ;调用dcl_dia5a子程序<br />   (prin1)                        ;防止nil<br />   )<br /> (defun dcl_dia5a()<br />   (setq dcl_id (load_dialog "dia5a"))     ;载入DCL文件<br />   (new_dialog "dia5a" dcl_id)             ;启动新的dialog对话框dia5a<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" (rtos (getvar "savetime")))<br />   (action_tile "accept" "(ok_dia5a)(done_dialog l)")<br />   (start_dialog)                          ;将控制权交给DCL<br />   )<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" (atof (get_tile "edit_s")))<br />   )<br />    

1. dia5a:dialog{
   
2.   label="AutoCAD绘图默认值设定";
   
3.   :edit_box{
   
4.     label="pline宽度";
   
5.     key="edit_p";        //key值=>DCL对象名称
   
6.     edit_width=6;
   
7.     }
   
8.   :edit_box{
   
9.     label="fillef半径";
   
10.     key="edit_f";        //key值=>DCL对象名称
    
11.     edit_width=6;
    
12.     }
    
13.   :edit_box{
    
14.     label="text字高";
    
15.     key="edit_t";        //key值=>DCL对象名称
    
16.     edit_width=6;
    
17.     }
    
18.   :edit_box{
    
19.     label="自动保存时间";
    
20.     key="edit_s";        //key值=>DCL对象名称
    
21.     edit_width=6;
    
22.     }
    
23.   ok_cancel;
    
24.   }

dia5a:dialog{<br />   label="<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>绘图默认值设定";<br />   :edit_box{<br />     label="pline宽度";<br />     key="edit_p";        //key值=>DCL对象名称<br />     edit_width=6;<br />     }<br />   :edit_box{<br />     label="fillef半径";<br />     key="edit_f";        //key值=>DCL对象名称<br />     edit_width=6;<br />     }<br />   :edit_box{<br />     label="text字高";<br />     key="edit_t";        //key值=>DCL对象名称<br />     edit_width=6;<br />     }<br />   :edit_box{<br />     label="自动保存时间";<br />     key="edit_s";        //key值=>DCL对象名称<br />     edit_width=6;<br />     }<br />   ok_cancel;<br />   }

masterlong

dcl是否单独的文件
dcl是否cad支持路径下

福建师大附中

masterlong 发表于 2015-12-27 18:24
dcl是否单独的文件
dcl是否cad支持路径下

dcl和lsp是分开写的，支持路径怎么讲

福建师大附中

masterlong 发表于 2015-12-27 18:24
dcl是否单独的文件
dcl是否cad支持路径下

我执行时就是appload，加载dia5a.lsp，然后在命令行输入dia5a，什么都没显示出来

yshf

(setq dcl_id (load_dialog "dia5a"))
应为改为：
(setq dcl_id (load_dialog DCL文件完整路径名)) 。
例如：dia5a.dcl存于e:\Lisp程序\DCL文件夹中，则为(setq dcl_id (load_dialog "e:\\Lisp程序\\DCL\\dia5a.dcl"))

福建师大附中

yshf 发表于 2015-12-27 21:50
(setq dcl_id (load_dialog "dia5a"))
应为改为：
(setq dcl_id (load_dialog DCL文件完整路径名)) 。

原来是这样啊，谢谢大神