[原创][LISP]我做的小lisp程序,请指教

jlucad

(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)
)
) 以上就是我做的一个小lisp程序,我的dcl程序没写上来. 请各位GGJJ帮我看看有毛病吗?? 如果需要我在把我的dcl代码也贴上来 请各位一定帮我看看啊,我是个刚刚学了点lisp 皮毛的学生,毕业设计要用这个 谢谢各位:)

meflying

有没有问题,自己运行一下就知道了


这样做毕业设计可不行啊,写完程序怎么也得调试一下吧,一些最基本的错误应该自己能找出来...下面给你指出一些极其低级的错误,这些错误跟水平没关系,完全是自己不细心,


action_title->action_tile


prince->princ


(settle $value)->(settile $value);自己定义的也写错,真不知道说什么好了...


还有一点,主函数内的自函数应该放到整个函数的最前面

jlucad

知道了,谢谢了


我昨天在学校外边,这里的电脑没有cad,暂时没法调试


我会努力改的


昨天时间太紧,出了很多错

jlucad

看来您对我的表现不是很满意


我也没办法啊


老师只是告诉我lisp可以做这个东西


剩下的就什么也不管了，我自己淘了仅仅两本关于lisp的书．．．


无奈啊，两个月前连lisp听都没听说过的啊


哎，不过这东西真的很有意思，，，


努力ing，，，give　me　a　hand　please，thanks：）

tristan312

没什么的，我也正做这个呢，不过我已经做出来了！


调试了N遍，我记不清了。


我是个外行，不过谁都是由外面往里面进去的。

zza12345

我的毕业设计里也有类似的东西~~~正在努力ing~~~楼上几位共同进步啊