ZZ大哥帮忙!!我的毕业设计还有一个尾巴!!!急盼!!谢谢了!!

wqlovelg1128

zz大哥老师让加一个图文并貌的程序!!图我已经保存了SLD形式!!但是调用不了!!图形我不知道怎么传上去!!大哥你就随便画个 就行!!文字也随便!!我就想看看格式!!下面就是对话框!!在里面显示就性了!!急盼!!!zz 大哥!!谢谢了!!!

yyxt1:dialog

{
label=" 液压系统图 ";
   spacer; 
:row{
: boxed_column {
      label = "图像预览";
      spacer;
      : image_button {
        key = "I2";
        height =20;
        aspect_ratio = 1.5;
        fixed_width = true;
        fixed_height = true;
        alignment = centered;
        color = -2;
      }
      spacer;
      : row {
        :button
          {
           label="   显示  ";
            key="xs24";
          }
        :button
          {
           key="tuichu";
           label="   退出 (&E)  ";
           is_cancel=true;
          }
   
}
  }
spacer;
:list_box
  {
  key="ylist";
    
    width=30;height=20;
}    
}
}

wqlovelg1128

我的那些文字是针对着个图形的!!我是对这个系统图的错误进行分析!!文字,图形我都弄好了!!就是程序不行!!ZZ大哥你帮我写个把!!!谢谢了!!ZZ大哥你不用管文字了!!你就随便写!!图形也随便!!只要能在对话框里显示就行!!急盼!!

ZZXXQQ

2. (DEFUN C:YYXT ()
3. (DEFUN SHOWSLD ()
4.   (IF (SETQ SLDNAME (FINDFILE (NTH (ATOI (GET_TILE "ylist")) YLIST))) (PROGN
5.    (SETQ X (DIMX_TILE "I2") Y (DIMY_TILE "I2"))
6.    (START_IMAGE "I2")
7.    (FILL_IMAGE 0 0 X Y -2)
8.    (SLIDE_IMAGE 0 0 X Y SLDNAME)
9.    (END_IMAGE)
10.   ))
11. )
12. (SETQ "CMDECHO" 0)
13. (IF (/= (TYPE NM) 'STR) (SETQ NM ""))
14. (IF (SETQ NM (GETFILED "选择文件" NM "*" 4)) (PROGN
15.   (SETQ YLIST (LIST) FP (OPEN NM "r"))
16.   (WHILE (SETQ SLDM (READ-LINE FP))
17.    (SETQ YLIST (APPEND YLIST (LIST SLDM)))
18.   )
19.   (IF (> (SETQ DCL_ID (LOAD_DIALOG "YYXT1")) 0) (PROGN
20.    (IF (NEW_DIALOG "yyxt1" DCL_ID) (PROGN
21.     (START_LIST "ylist")
22.     (MAPCAR 'ADD_LIST YLIST)
23.     (END_LIST)
24.     (ACTION_TILE "xs24" "(SHOWSLD)")
25.     (ACTION_TILE "tuichu" "(DONE_DIALOG 0)")
26.     (START_DIALOG)
27.    )
28.     (PRINC "\nUnable display dialog box!")
29.    )
30.    (UNLOAD_DIALOG DCL_ID)
31.   )
32.    (PRINC "\nUnable load dialog box!")
33.   )
34. ))
35. (PRINC)
36. )

复制代码

wqlovelg1128

zz大哥！！比这个程序我调试过了！！怎么说呢！！ (SETQ "CMDECHO" 0)
  (IF (/= (TYPE NM) 'STR) (SETQ NM ""))
  (IF (SETQ NM (GETFILED "选择文件" NM "*" 4)) (PROGN
   (SETQ YLIST (LIST) FP (OPEN NM "r"))
   (WHILE (SETQ SLDM (READ-LINE FP))
    (SETQ YLIST (APPEND YLIST (LIST SLDM)))
   )
这一段程序是想打开所保存的文本把！！！不太清楚！！ＺＺ哥这样把！！打个比方！！假如我把３ＳＦ．ＳＬＤ！放在了Ｄ盘的yy文件夹！３ＳＦ文本也放在了Ｄ盘的yy文件夹！我是想在左边的图框直接显示图片！！右边的ylist直接显示文本的内容！！！！应该怎么改！！！对话框界面不行的话ＺＺ哥你也可以改！！谢谢ＺＺ哥！！急盼！！１

ZZXXQQ

因为不知道打开的是什么SLD文件，所以设计了一个文本文件，内容是SLD文件的文件名，每行一个SLD文件名。例：

3SF
34EYO
34EYY
34EYN
……
如果SLD文件放在D:\YY目录下，则可以这样写：

D:/YY/3SF
D:/YY/34EYO
D:/YY/34EYY
D:/YY/34EYN
……

程序用对话框方式选择打开这个文本文件，文件可以有任何扩展名，可以放在磁盘上任何目录下（只要找得到）。程序打开这个文件，并自动读入，放入ylist表中以供使用。

wqlovelg1128

zz哥!!我调试后还是不行!!一个是我打开文本时!!出现!!不能加载对话框!!在一个就是什么也不显示!!

ZZ哥是不是我们理解有点误差啊!!我哪个SLD是个幻灯片!!它是我画的液压系统图!!而文本是针对这个液压系统图进行的分析!!是文字!!我是想在左边的图框显示图形!!右边ylist显示文本内容!!也就是文字!!!

还有你这句 (SETQ "CMDECHO" 0)是不是有点问题!在我加栽的时候 出现参数问题!!我改了(SETVAR "CMDECHO" 0)不知道对不!!ZZ哥你看还有其他方法能做!!!谢谢ZZ哥!!我现在很困惑!!头都大了!!急盼!!

ZZXXQQ

是理解问题。我以为有好多SLD文件呢。你说的对，应该是(SETVAR "CMDECHO" 0)。下面是改过的程序：

2. (DEFUN C:YYXT ()
3. (DEFUN SHOWSLD ()
4.   (IF (SETQ SLDNAME (FINDFILE "D:/YY/3SF.SLD")) (PROGN
5.    (SETQ X (DIMX_TILE "I2") Y (DIMY_TILE "I2"))
6.    (START_IMAGE "I2")
7.    (FILL_IMAGE 0 0 X Y -2)
8.    (SLIDE_IMAGE 0 0 X Y SLDNAME)
9.    (END_IMAGE)
10.    (START_LIST "ylist")
11.    (MAPCAR 'ADD_LIST YLIST)
12.    (END_LIST)
13.   ))
14. )
15. (SETVAR "CMDECHO" 0)
16. (IF (/= (TYPE NM) 'STR) (SETQ NM ""))
17. (IF (SETQ NM (GETFILED "选择文件" NM "*" 4)) (PROGN
18.   (SETQ YLIST (LIST) FP (OPEN NM "r"))
19.   (WHILE (SETQ SLDM (READ-LINE FP))
20.    (SETQ YLIST (APPEND YLIST (LIST SLDM)))
21.   )
22.   (IF (> (SETQ DCL_ID (LOAD_DIALOG "YYXT1")) 0) (PROGN
23.    (IF (NEW_DIALOG "yyxt1" DCL_ID) (PROGN
24.     (ACTION_TILE "xs24" "(SHOWSLD)")
25.     (ACTION_TILE "tuichu" "(DONE_DIALOG 0)")
26.     (START_DIALOG)
27.    )
28.     (PRINC "\nUnable display dialog box!")
29.    )
30.    (UNLOAD_DIALOG DCL_ID)
31.   )
32.    (PRINC "\nUnable load dialog box!")
33.   )
34. ))
35. (PRINC)
36. )

复制代码

wqlovelg1128

ZZ哥!我加载后!!选择一个文本内容之后!!对话框也能出现!!但是对话框里什么也没有!!点显示按扭没有什么反映!!也就是触发不了显示按扭的所调用的函数!!!ylist也没有内容!!图框里也没有图形!!我看了一下那个显示按扭是同时显示图形,和文本内容的把!!不知道我理解对没有!!ZZ哥希望你能看看是怎么回事!!!急盼!!谢谢ZZ哥!!!

ZZXXQQ

是同时显示的。如果没有找到SLD文件也就不能显示列表。

wqlovelg1128

ZZ哥我调试过后!出现"错误: 参数类型错误: stringp nil"是那个字符出现空值?下面是我改过的程序!你看看1

(DEFUN C:YYXT ()
  (DEFUN SHOWSLD ()
   (IF (SETQ SLDNAME (FINDFILE "E:/YY/3SF.SLD")) (PROGN
    (SETQ X (DIMX_TILE "I2") Y (DIMY_TILE "I2"))
    (START_IMAGE "I2")
    (FILL_IMAGE 0 0 X Y -2)
    (SLIDE_IMAGE 0 0 X Y 3SF)
    (END_IMAGE)
    (START_LIST "ylist")
    (MAPCAR 'ADD_LIST YLIST)
    (END_LIST)
   ))
  )
  (SETVAR "CMDECHO" 0)
  (if (= (setq fp (open (findfile "E:/yy/yfly.txt") "r")) nil)
                     (alert "文件不存在或不能打开。")
   (PROGN
     (SETQ YLIST (LIST) FP (OPEN yfly "r"))
   (WHILE (SETQ SLDM (READ-LINE FP))
    (SETQ YLIST (APPEND YLIST (LIST SLDM)))
   )
   (IF (> (SETQ DCL_ID (LOAD_DIALOG "YYXT")) 0) (PROGN
    (IF (NEW_DIALOG "yyxt" DCL_ID) (PROGN
     (ACTION_TILE "xs24" "(SHOWSLD)")
     (ACTION_TILE "tuichu" "(DONE_DIALOG 0)")
     (START_DIALOG)
    )
     (PRINC "\nUnable display dialog box!")
    )
    (UNLOAD_DIALOG DCL_ID)
   )
    (PRINC "\nUnable load dialog box!")
   )
  ))
  (PRINC)
)

这是文本内容!!

油封漏油的排除
 
      1 油标指示器卡死，
                                   修复油标指示器
        造成机油压力过高.

      2 负压(阀)管不起作用，
                                   修复负压(阀)管；
          造成曲轴箱压力过高；

      3 机油泵出口压力和流量过高 增加机油泵与泵盖之间的垫片

      4 油封唇口的质量不佳、
                                   更换油封，正确安装
        维修安装方法不当。