我写了个计算程式，运行不了~~请帮忙看看

zza12345

cale:dialog{
label="计算";
:boxed_row{
:column{
:edit_box{
label="数据1";
key="key_a";
fixed_width=true;
width=10;
}
:edit_box{
label="数据2";
key="key_b";
fixed_width=true;
width=10;
}
:button{
label="计算";
key="key_c";
fixed_width=true;
}
:edit_box{
label="数据3";
key="key_d";
fixed_width=true;
width=10;
}
}
}
ok_cancel;
}
(defun cale ()
(setq RETURN_VALUE (load_dialog "cale.dcl"))
(setq WHAT_NEXT 2)
(while (>= WHAT_NEXT 2)
(if (null (new_dialog "cale" RETURN_VALUE))
(exit)
) ;end if
(action_tile "accept" "(getdata)(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq WHAT_NEXT (start_dialog))
(if (= WHAT_NEXT 1)
(cale)
)
)
(unload_dialog RETURN_VALUE)
(princ)
) (defun getdata ()
(setq A (atof (get_tile "key_a")))
(setq B (atof (get_tile "key_b"))) (defun cale ()
(setq D (* A B))
(set_tile "ket_c" (itoa D))
)
) 加载后 键入cale 说未知命令。不知错在哪里？急！！！！ 还有个情况很奇怪。在我机子上预览dcl老出错说“base.dcl未找到文件”“加载对话框程序出错”还有 D:\Documents and Settings\Administrator\桌面\设计\1.jpg

ZZXXQQ

(DEFUN CALE ()


改为


(DEFUN C:CALE ()

zza12345

太急了，没说完。在我机子上预览dcl老失败，只有重新安装后的第1次预览能成功，以后全预览不了了。而我同学的可以预览。他的是intel，我的amd。不管怎么样请帮我看看程序员把~~~为什么运行不了~~~~请指点一下阿

zza12345

改为(DEFUN C:CALE () lsp里最后一个笔误该正确了key_c。 加载运行命令后出现 命令: cale
; 错误: quit / exit abort 哪错了~~~lsp是不是哪里出错了？

ZZXXQQ

经过调试的程序和对话框：为防止与ACAD的定义冲突，对话框和程序均改名。


       





       

zza12345

谢谢ZZXXQQ大哥的修改~~程序成功运行了：）


有个怪事，程序在我同学intel计算机上能正常运行，而在我amd机子上依然显示"找不到base.dcl""有语法错误，符号settings"之类的~~~~我们使用的autocad2004一模一样，很奇怪。。。。不知道朋友们有没有遇上过。


反正程序编译正确能成功运行就行了~~~QQQ哦