[求助]菜单调用LISP的错误。

onej

[螺母]^C^C^P(if (not c:diadjljlm) (load "diadjljlm")) diadjljlm ^P 我点菜单，它说： 命令: ; 错误: LOAD 失败: "dianljlm"
命令: 未知命令“DIANLJLM”。按 F1 查看帮助。 我diadjljlm文件在CAD搜索路径里面啊！

alin

"dianljlm"？？？和diadjljlm有什么关系？

onej

diadjljlm.dcl         啊，不知道怎么回事的呀！

alin

PASTE YOUR CODE!

onej

2. ***MENUGROUP=螺母***POP1
3. [螺母]
4. [带肩六角螺母]^C^C^P(if (not c:diadjljlm) (load "diadjljlm")) diadjljlm ^P
5. diadjljlm.dcl文件_____________________________________________________________________________________________diadjljlm:dialog{
6.   label="带肩六角螺母（GB 2148-80）";
7.   :boxed_row{
8.     label="视图";
9.     :text{label="主视图";alignment=centered;}
10.     :image_button {
11.       key = "kimage1";
12.       color = -2;
13.       width = 20;
14.       aspect_ratio = 0.8;
15.       allow_accept = true;
16.       }
17.     :text{label="左视图";alignment=centered;}
18.     :image_button {
19.       key = "kimage2";
20.       color = -2;
21.       width = 20;
22.       aspect_ratio = 0.8;
23.       allow_accept = true;
24.       }
25.     }
26.   :boxed_row{
27.     label="参数设计相关尺寸";
28.     :edit_box{label="请输入d的值";key="kd";edit_width=4;}
29.     :popup_list{key="popd";edit_width=4;}
30.    
31.   }
32.   :boxed_row{
33.     label="变换数据";
34.     :edit_box{label="请输入放缩比例";key="ksc";edit_width=4;}
35.     :edit_box{label="请输入旋转角度";key="kang";edit_width=4;}
36.    
37.   }
38.   spacer_1;
39.   ok_cancel;
40. }

***MENUGROUP=螺母***POP1 [螺母] [带肩六角螺母]^C^C^P(if (not c:diadjljlm) (load "diadjljlm")) diadjljlm ^P diadjljlm.dcl文件_____________________________________________________________________________________________diadjljlm:dialog{   label="带肩六角螺母（GB 2148-80）";   :boxed_row{     label="视图";     :text{label="主视图";alignment=centered;}     :image_button {       key = "kimage1";       color = -2;       width = 20;       aspect_ratio = 0.8;       allow_accept = true;       }     :text{label="左视图";alignment=centered;}     :image_button {       key = "kimage2";       color = -2;       width = 20;       aspect_ratio = 0.8;       allow_accept = true;       }     }   :boxed_row{     label="参数设计相关尺寸";     :edit_box{label="请输入d的值";key="kd";edit_width=4;}     :popup_list{key="popd";edit_width=4;}       }   :boxed_row{     label="变换数据";     :edit_box{label="请输入放缩比例";key="ksc";edit_width=4;}     :edit_box{label="请输入旋转角度";key="kang";edit_width=4;}       }   spacer_1;   ok_cancel; }

meflying

要把文件放到CAD的搜索路径里,


DCL是不能产生命令的,这只是对话框文件,你要加载程序才可以运行...


如果你的程序中命令是:dianljlm,则应该判断(if c:dianljlm ...),否则这个c:diadjljlm将可能一直为空...


你这种方法一般都是用来判断程序加载与否,而对话框文件则由程序来加载...

alin

Are you going to load a DCL file with function LOAD?

onej

2. 恩！做了lisp文件，  (defun C:DIADJLJLM ()
3.    (setq OSMODE (getvar "osmode"))
4.    (setq CMDECHO (getvar "cmdecho"))
5.    (setq BLIPMODE (getvar "blipmode"))
6.    (setq CLAYER (getvar "clayer"))
7.    (DCL_DIADJLJLM)
8.    (princ)
9. )………………………………（其他函数）

恩！做了lisp文件，  (defun C:DIADJLJLM ()    (setq OSMODE (getvar "osmode"))    (setq CMDECHO (getvar "cmdecho"))    (setq BLIPMODE (getvar "blipmode"))    (setq CLAYER (getvar "clayer"))    (DCL_DIADJLJLM)    (princ) )………………………………（其他函数）

而且放在搜索路径下啊。没用呢！

alin

Where is the function (DCL_DIADJLJLM)?


You must read a book or spend some time on the help files?

onej

函数(DCL_DIADJLJLM)?是……


是哦，在看HELP呢，也在找书看，谢谢斑竹楼上。