[求助]我的程序为什么会这样

董堃

请大侠帮忙

程序运行后在第二个对话框就不能进行下去了

老师一个等待符号

ZZXXQQ

程序是自己写的吗？怎么缺对话框指针变量？

一定要在加载对话框时保存对话框指针，不然后面的UNLOAD_DIALOG无法执行，也没法显示第二个对话框。

董堃

自己写的，第二个对话框能显示，但是不能继续完成，达不到要求，

能不能帮忙解决下，谢谢！

ZZXXQQ

只从表面上改了两个程序。先试试。

3. (defun c:fl()
4. (if (setq dcl_id (load_dialog "fl")) (progn
5.   (if (new_dialog "fl" dcl_id "") (progn
6.    (s_img "flimg")
7.    (s_img "yfimg")
8.    (s_img "lfimg")
9.    (action_tile "accept" "(setq k 1)(s_pgon)(done_dialog 1)")
10.    (action_tile "cancel" "(done_dialog 0)")
11.    (start_dialog)
12.   )
13.    (ALERT "Unable to display dialog box!\n无法显示对话框！")
14.   )
15.    (UNLOAD_DIALOG DCL_ID)
16.   )
17.   (ALERT "Unable to open dialog box!\n无法装载对话框！")
18. )
19. (princ)
20. )
21. (defun s_pgon()           ;按钮状态判定子程序   
22. (cond
23.   ((= (get_tile "ffl") "1") (c:fangfl))
24.   ((= (get_tile "yfl") "1") (c:yuanfl))
25.   ((= (get_tile "lfl") "1") (c:lianfl))
26. )
27. )

(defun c:fl() (if (setq dcl_id (load_dialog "fl")) (progn   (if (new_dialog "fl" dcl_id "") (progn    (s_img "flimg")    (s_img "yfimg")    (s_img "lfimg")    (action_tile "accept" "(setq k 1)(s_pgon)(done_dialog 1)")    (action_tile "cancel" "(done_dialog 0)")    (start_dialog)   )    (ALERT "Unable to display dialog box!\n无法显示对话框！")   )    (UNLOAD_DIALOG DCL_ID)   )   (ALERT "Unable to open dialog box!\n无法装载对话框！") ) (princ) ) (defun s_pgon()           ;按钮状态判定子程序    (cond   ((= (get_tile "ffl") "1") (c:fangfl))   ((= (get_tile "yfl") "1") (c:yuanfl))   ((= (get_tile "lfl") "1") (c:lianfl)) ) )

ZZXXQQ

这是全部改好的程序，再试试。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

董堃

ZZXXQQ版主

出现Unable to display dialog box!\n无法显示对话框！  

董堃

参数类型错误: numberp: nil

第二个对话框没有图像了

董堃

改成这样后

出现

命令: fl
; 错误: 参数类型错误: numberp: nil
命令:

ZZXXQQ

五楼已改。

董堃

谢谢ZZXXQQ