[求助]：编这样一个程序怎么样才能加载进去呀!!

coolgbd

这里有一个lsp文件,是用来驱动dcl文件的,请教一下怎么样才能让它们加载到自己设计的菜单里
并运行起来呀!!!!!
(defun c:mydialog (/ dcl_id)
  (setq dcl_id(load_dialog"mydialog.dcl"))
(if(not(new_dialog"mydialog" dcl_id))
   (exit)
   )
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
  )
以下是dcl对话框文件:
mydialog:dialog
{
label="mydialog";
:column{
:row{
label="加载";
key="load";
mnemonic="l";
fixed_width=true;
}
:edit_box{
key="lefn";
edit_width=50;
}
}
:list_box{
fixed_height=true;
is_enabled=true;
key="exercise";
multiple_select=false;
height=16;
edit_width=56;
}
spacer_1;
:row{
:button{
label="添加";
key="lefnsl";
}
:button{
label="删除";
key="leprn";
width=12;
}
:button{
label="修改";
key="leed";
width=12;
}
:button{
label="新建";
key="prev";
width=12;
}
}
:row{
:button{
label="保存";
key="exit0";
}
cancel_button;
help_button;
}
}
tlsp:dialog{
label="";
key="bar";
:list_box{
key="pvbox";
width=72;
height=20;
}
:ok_button{
is_cancel=true;
}
}

wdq10105

你的LISP 是用来干什么的哟..............................

dinghanxiao

用来搞设计的啊,怎么?你看不懂吗?

xyp1964

最初由 dinghanxiao 发布
[B]用来搞设计的啊,怎么?你看不懂吗? [/B]

这个程序能执行什么？眼拙，看不出是“用来搞设计”的，最多不过是调用一下对话框而已！呵呵……

zxq0220

在ACAD.MNU或自己的菜单中加入需要的内容。
如：在POP*后加入
ID_Mydialog [MyDialog]^C^C^P(LOAD"MYDIALOG") mydialog ^P
在ACAD中用MENU命令编译ACAD.MNU文件即可使用。

xyp1964

这样是否更好？
[MyDialog]^C^C^P(if(not c:MYDIALOG)(LOAD"MYDIALOG"));mydialog