[求助][原创][LISP]我做的DCL+LISP,请飞哥和其他的高人给我指点指点吧

jlucad

DCL代码如下: jfsj_box : dialog{
label="接缝设计";
:row{
:box_radio_column{
label="接缝类型";
key="jfsj";
:radio_button{
label="纵向施工缝";
key="jfsj1";
value="1";
}
:radio_button{
label="纵向缩缝a";
key="jfsj2";
value="0";
}
:radio_button{
label="纵向缩缝b";
key="jfsj3";
value="0";
}
:radio_button{
label="横向施工缝a";
key="jfsj4";
value="0";
}
:radio_button{
label="横向施工缝b";
key="jfsj5";
value="0";
}
:radio_button{
label="横向施工缝c";
key="jfsj6";
value="0";
}
:radio_button{
label="横向缩缝a";
key="jfsj7";
value="0";
}
:radio_button{
label="横向缩缝b";
key="jfsj8";
value="0";
}
:radio_button{
label="横向缩缝c";
key="jfsj9";
value="0";
}
:radio_button{
label="横向胀缝";
key="jfsj10";
value="0";
}
:radio_button{
label="交叉口接缝布设a";
key="jfsj11";
value="0";
}
:radio_button{
label="交叉口接缝布设b";
key="jfsj12";
value="0";
}
:radio_button{
label="交叉口接缝布设c";
key="jfsj13";
value="0";
}
}
:column{
label=" ";
:image{
key="JLUjfsj";
width=55;
aspect_ratio=1.0;
color=-2;}
}
}
:row{
:spacer{ width=1;}
:button{
label="确定";
key="accept";
width=8;
fixed_width=true;
}
:button{
label="取消";
key="cancel";
width=8;
fixed_width=true;
}
:spacer{width=1;}
}
} LISP代码如下: (defun LOADDCL (/ index_value)
(if(>(setq index_value (load_dialog "jfsj"))0)
(progn
(if(new_dialog "jfsj" index_value)
(progn
(action_title "accept" "(done_dialog 1)")
(action_title "cancel" "(done_dialog 0)")
(action_title "jfsj1" "(settle $value)")
(start_dialog)
)
(alert " 不能显示对话框 ")
)
(unload_dialog index_value)
)
(alert" 不能装入对话框 ")
)
(prince);主函数结束
(defun settile (string / x y )
(set_tile string "1")
(setq x (dimx_tile "JLUjfsj")
y (dimy_tile "JLUjfsj"))
(start_image "JLUjfsj")
(fill_image 0 0 x y -2)
(slide_image 0 -30 x y (strcat"user(jf"(substr string 13 1)")"))
(end_image)
)
) 请问,我做的东西能行吗?? 这个程序主要是放幻灯片用的,请指教,谢谢了! 我在公共机房上机,没有cad软件,所以我自己也测试不了 以前，我自己测试过,DCL好象没问题,就是LISP有毛病,请大侠指点指点吧~~~

meflying

先看这里,一个问题不要分两个帖子来问!!! http://bbs.mjtd.com/forum.php?mod=viewthread&tid=36568

jlucad

哦，知道了,谢谢你了:)


我发第一个帖子的时候DCL代码还没打出来


为了节省时间我就先把我的lisp代码粘贴了上来


以后保证不再犯错误了


我去看看,以后还请多指导^_^ 谢谢了