跪求!!!!我把对话框的程序传上!我毕业设计!程序显示不了对话框!!高手帮忙啊!!谢谢!!

wqlovelg1128

谢谢ZZXXQQ大哥!!!我想在CAD中把这些搞成下拉菜单!!在CAD启动的过程中能自动加载!!!应该怎么办啊???
急盼!!!!!!谢谢!!!

ZZXXQQ

下拉菜单可以自己写一个菜单文件，彷照ACAD的菜单文件写就行。

自动加载可以写在菜单文件中，只要加载了菜单文件，就能满足使用要求了。

wqlovelg1128

谢谢ZZXXQQ大哥
我搞定了
还有一个问题就是下面的程序里有两个子对话框不能显示!!我点一下按纽出现:"不能加载DCL对话框"这两个是"hsgb1.dcl"和"s1.dcl"而其它的都能显示!!   这是怎么回事啊???下面是程序!!望您回复!!!再次感谢!!!
yyg1:dialog

{
label=" 液压缸故障诊断 ";
   spacer;  
   :text
      {
       label="      故障               原因                    解决方法";
      }
spacer;
: column {
:list_box
  {
  key="yyglist";
      width=70;
      height=15;
}     
spacer;
:boxed_column {
:row {
       :button
          {
           label="  活塞杆不能动作  ";
           key="hsgb";
          }
          :button
          {
           label="  速度达不到规定值  ";
           key="s";
          }
         :button
          {
           label="   液压缸产生爬行   ";
           key="yp";
       }
  }
      spacer;
:row
      {
         :button
          {
           label="   缓冲装置故障  ";
           key="hdp";
          }
        :button
          {
           label="   外泄露   ";
            key="wxl";
          }
        :button
          {
           key="tuichu";
           label="   退出 (&E)  ";
           is_cancel=true;
          }
     }
  }
spacer;
}
}
  子对话框
s1:dialog

{
label=" 液压缸速度故障诊断 ";
spacer;  
   : column {
:text
      {
       label="     故障               原因                  解决方法";
      }
spacer;
:list_box
  {
  key="slist";
      width=70;
      height=15;
}     
spacer;
:row {
       :button
          {
            label="   显示  ";
           key="xs9";
          }
          :button
          {
           key="tuichu";
           label="   退出  ";
           is_cancel=true;
         
       }
  }
      spacer;
}
}
hsgb1:dialog

{
label=" 活塞杆故障诊断 ";
   spacer;  
   : column {
:text
      {
       label="     故障               原因                  解决方法";
      }
spacer;
:list_box
  {
  key="hsgblist";
      width=70;
      height=15;
}     
spacer;
:row {
       :button
          {
            label="   显示  ";
           key="xs13";
          }
          :button
          {
           key="tuichu";
           label="   退出  ";
           is_cancel=true;
         
       }
  }
      spacer;
}
}
yp1:dialog

{
label=" 液压缸产生爬行 ";
   spacer;  
   : column {
:text
      {
       label="     故障               原因                  解决方法";
      }
spacer;
:list_box
  {
  key="yplist";
      width=70;
      height=15;
}     
spacer;
:row {
       :button
          {
            label="   显示  ";
           key="xs10";
          }
          :button
          {
           key="tuichu";
           label="   退出  ";
           is_cancel=true;
         
       }
  }
      spacer;
}
}
wxl1:dialog

{
label=" 液压缸外泄露故障诊断 ";
   spacer;  
   : column {
:text
      {
       label="     故障               原因                  解决方法";
      }
spacer;
:list_box
  {
  key="wxllist";
      width=70;
      height=15;
}     
spacer;
:row {
       :button
          {
            label="   显示  ";
           key="xs11";
          }
          :button
          {
           key="tuichu";
           label="   退出  ";
           is_cancel=true;
         
       }
  }
      spacer;
}
}
hdp1:dialog

{
label=" 缓冲装置故障诊断 ";
   spacer;  
   : column {
:text
      {
       label="     故障               原因                  解决方法";
      }
spacer;
:list_box
  {
  key="hdplist";
      width=70;
      height=15;
}     
spacer;
:row {
       :button
          {
            label="   显示  ";
           key="xs12";
          }
          :button
          {
           key="tuichu";
           label="   退出  ";
           is_cancel=true;
         
       }
  }
      spacer;
}
}
驱动程序!!
(defun c:yyg1()
   (if (> (setq index3_3 (load_dialog "yyg1.dcl")) 0)
      (progn
         (if (new_dialog "yyg1" index3_3)
            (progn

                (action_tile "hsgb" "(c:hsgb1)")
                 (action_tile "s" "(c:s1)")
                 (action_tile "yp" "(c:yp1)")
                 (action_tile "hdp" "(c:hdp1)")
                 (action_tile "wxl" "(c:wxl1)")
           (start_dialog)
               (unload_dialog index3_3)
            )
            (alert "不能正常显示对话框。")
         )
      )
      (alert "不能载入DCL文件。")
   )
)

(defun c:hsgb1()
   (if (> (setq index2_3 (load_dialog "hsgb1.dcl")) 0)
       (progn
          (if (new_dialog "hsgb1" index2_3)
             (progn
             (action_tile "xs13" "(c:xs13)")   
            (start_dialog)
                (unload_dialog index2_3)
             )
             (alert "不能正常显示对话框。")
          )
       )
       (alert "不能载入DCL文件。")
    )
)  
(defun c:s1()
   (if (> (setq index2_3 (load_dialog "s1.dcl")) 0)
       (progn
          (if (new_dialog "s1" index2_3)
             (progn
             (action_tile "xs9" "(c:xs9)")   
            (start_dialog)
                (unload_dialog index2_3)
             )
             (alert "不能正常显示对话框。")
          )
       )
       (alert "不能载入DCL文件。")
    )
)  
(defun c:yp1()
   (if (> (setq index2_3 (load_dialog "yp1.dcl")) 0)
       (progn
          (if (new_dialog "yp1" index2_3)
             (progn
             (action_tile "xs10" "(c:xs10)")   
            (start_dialog)
                (unload_dialog index2_3)
             )
             (alert "不能正常显示对话框。")
          )
       )
       (alert "不能载入DCL文件。")
    )
)  
(defun c:hdp1()
   (if (> (setq index2_3 (load_dialog "hdp1.dcl")) 0)
       (progn
          (if (new_dialog "hdp1" index2_3)
             (progn
             (action_tile "xs12" "(c:xs12)")   
            (start_dialog)
                (unload_dialog index2_3)
             )
             (alert "不能正常显示对话框。")
          )
       )
       (alert "不能载入DCL文件。")
    )
)  
(defun c:wxl1()
   (if (> (setq index2_3 (load_dialog "wxl1.dcl")) 0)
       (progn
          (if (new_dialog "wxl1" index2_3)
             (progn
             (action_tile  "xs11"  "(c:xs11)")   
            (start_dialog)
                (unload_dialog index2_3)
             )
             (alert "不能正常显示对话框。")
          )
       )
       (alert "不能载入DCL文件。")
    )
)  


(defun c:xs9()
     (start_list "slist")
     (if (= (setq d1 (open (findfile "s.txt") "r")) nil)
         (alert "文件不存在或不能打开。")
         (progn
             (setq clbb '())
             (while (setq str (read-line d1))
                 (add_list str)
                 (setq clbb (cons str clbb))
              )
             (close d1)
          )
      )
      (end_list)
      (setq dang1 nil)
      (mode_tile "slist" 2)
      (set_tile "slist" "0")
)
(defun c:xs10()
     (start_list "yplist")
     (if (= (setq d2 (open (findfile "yp.txt") "r")) nil)
         (alert "文件不存在或不能打开。")
         (progn
             (setq clbb '())
             (while (setq str (read-line d2))
                 (add_list str)
                 (setq clbb (cons str clbb))
              )
             (close d2)
          )
      )
      (end_list)
      (setq d2 nil)
      (mode_tile "yplist" 2)
      (set_tile "yplist" "0")
)
(defun c:xs11()
     (start_list "wxllist")
     (if (= (setq d3 (open (findfile "wxl.txt") "r")) nil)
         (alert "文件不存在或不能打开。")
         (progn
             (setq clbb '())
             (while (setq str (read-line d3))
                 (add_list str)
                 (setq clbb (cons str clbb))
              )
             (close d3)
          )
      )
      (end_list)
      (setq d3 nil)
      (mode_tile "wxllist" 2)
      (set_tile "wxllist" "0")
)
(defun c:xs12()
     (start_list "hdplist")
     (if (= (setq d4 (open (findfile "hdp.txt") "r")) nil)
         (alert "文件不存在或不能打开。")
         (progn
             (setq clbb '())
             (while (setq str (read-line d4))
                 (add_list str)
                 (setq clbb (cons str clbb))
              )
             (close d4)
          )
      )
      (end_list)
      (setq d4 nil)
      (mode_tile "hdplist" 2)
      (set_tile "hdplist" "0")
)
(defun c:xs13()
     (start_list "hsgblist")
     (if (= (setq d5 (open (findfile "hsgb.txt") "r")) nil)
         (alert "文件不存在或不能打开。")
         (progn
             (setq clbb '())
             (while (setq str (read-line d5))
                 (add_list str)
                 (setq clbb (cons str clbb))
              )
             (close d5)
          )
      )
      (end_list)
      (setq d5 nil)
      (mode_tile "hsgblist" 2)
      (set_tile "hsgblist" "0")
)

wqlovelg1128

各位大哥
帮帮忙啊!!急盼

ZZXXQQ

对话框：yyg1.dcl

3. yyg1:dialog{
4. label=" 液压缸故障诊断 ";
5. spacer;
6. :text{label=" 故障 原因 解决方法";}
7. spacer;
8. :column{
9.   :list_box{key="yyglist";width=70;height=15;}
10.   spacer;
11.   :boxed_column{
12.    :row{
13.     :button{label=" 活塞杆不能动作 ";key="hsgb";}
14.     :button{label=" 速度达不到规定值 ";key="s";}
15.     :button{label=" 液压缸产生爬行 ";key="yp";}
16.    }
17.    spacer;
18.    :row{
19.     :button{label=" 缓冲装置故障 ";key="hdp";}
20.     :button{label=" 外泄露 ";key="wxl";}
21.     :button{key="tuichu";label=" 退出 (&E) ";is_cancel=true;}
22.    }
23.   }
24.   spacer;
25. }
26. }
27. s1:dialog{
28. label=" 液压缸速度故障诊断 ";
29. spacer;
30. :column{
31.   :text{label=" 故障 原因 解决方法";}
32.   spacer;
33.   :list_box{key="slist";width=70;height=15;}
34.   spacer;
35.   :row{
36.    :button{label=" 显示 ";key="xs9";}
37.    :button{label=" 退出 ";key="tuichu";is_cancel=true;}
38.   }
39.   spacer;
40. }
41. }
42. hsgb1:dialog{
43. label=" 活塞杆故障诊断 ";
44. spacer;
45. :column{
46.   :text{label=" 故障 原因 解决方法";}
47.   spacer;
48.   :list_box{key="hsgblist";width=70;height=15;}
49.   spacer;
50.   :row{
51.    :button{label=" 显示 ";key="xs13";}
52.    :button{label=" 退出 ";key="tuichu";is_cancel=true;}
53.   }
54.   spacer;
55. }
56. }
57. yp1:dialog{
58. label=" 液压缸产生爬行 ";
59. spacer;
60. :column{
61.   :text{label=" 故障 原因 解决方法";}
62.   spacer;
63.   :list_box{key="yplist";width=70;height=15;}
64.   spacer;
65.   :row{
66.    :button{label=" 显示 ";key="xs10";}
67.    :button{label=" 退出 ";key="tuichu";is_cancel=true;}
68.   }
69.   spacer;
70. }
71. }
72. wxl1:dialog{
73. label=" 液压缸外泄露故障诊断 ";
74. spacer;
75. :column{
76.   :text{label=" 故障 原因 解决方法";}
77.   spacer;
78.   :list_box{key="wxllist";width=70;height=15;}
79.   spacer;
80.   :row{
81.    :button{label=" 显示 ";key="xs11";}
82.    :button{label=" 退出 ";key="tuichu";is_cancel=true;}
83.   }
84.   spacer;
85. }
86. }
87. hdp1:dialog{
88. label=" 缓冲装置故障诊断 ";
89. spacer;
90. :column{
91.   :text{label=" 故障 原因 解决方法";}
92.   spacer;
93.   :list_box{key="hdplist";width=70;height=15;}
94.   spacer;
95.   :row{
96.    :button{label=" 显示 ";key="xs12";}
97.    :button{label=" 退出 ";key="tuichu";is_cancel=true;}
98.   }
99.   spacer;
100. }
101. }

yyg1:dialog{ label=" 液压缸故障诊断 "; spacer; :text{label=" 故障 原因 解决方法";} spacer; :column{   :list_box{key="yyglist";width=70;height=15;}   spacer;   :boxed_column{    :row{     :button{label=" 活塞杆不能动作 ";key="hsgb";}     :button{label=" 速度达不到规定值 ";key="s";}     :button{label=" 液压缸产生爬行 ";key="yp";}    }    spacer;    :row{     :button{label=" 缓冲装置故障 ";key="hdp";}     :button{label=" 外泄露 ";key="wxl";}     :button{key="tuichu";label=" 退出 (&E) ";is_cancel=true;}    }   }   spacer; } } s1:dialog{ label=" 液压缸速度故障诊断 "; spacer; :column{   :text{label=" 故障 原因 解决方法";}   spacer;   :list_box{key="slist";width=70;height=15;}   spacer;   :row{    :button{label=" 显示 ";key="xs9";}    :button{label=" 退出 ";key="tuichu";is_cancel=true;}   }   spacer; } } hsgb1:dialog{ label=" 活塞杆故障诊断 "; spacer; :column{   :text{label=" 故障 原因 解决方法";}   spacer;   :list_box{key="hsgblist";width=70;height=15;}   spacer;   :row{    :button{label=" 显示 ";key="xs13";}    :button{label=" 退出 ";key="tuichu";is_cancel=true;}   }   spacer; } } yp1:dialog{ label=" 液压缸产生爬行 "; spacer; :column{   :text{label=" 故障 原因 解决方法";}   spacer;   :list_box{key="yplist";width=70;height=15;}   spacer;   :row{    :button{label=" 显示 ";key="xs10";}    :button{label=" 退出 ";key="tuichu";is_cancel=true;}   }   spacer; } } wxl1:dialog{ label=" 液压缸外泄露故障诊断 "; spacer; :column{   :text{label=" 故障 原因 解决方法";}   spacer;   :list_box{key="wxllist";width=70;height=15;}   spacer;   :row{    :button{label=" 显示 ";key="xs11";}    :button{label=" 退出 ";key="tuichu";is_cancel=true;}   }   spacer; } } hdp1:dialog{ label=" 缓冲装置故障诊断 "; spacer; :column{   :text{label=" 故障 原因 解决方法";}   spacer;   :list_box{key="hdplist";width=70;height=15;}   spacer;   :row{    :button{label=" 显示 ";key="xs12";}    :button{label=" 退出 ";key="tuichu";is_cancel=true;}   }   spacer; } }

程序：yyg1.lsp

3. (defun c:yyg1()
4. (if (> (setq index3_3 (load_dialog "yyg1.dcl")) 0) (progn
5.   (if (new_dialog "yyg1" index3_3) (progn
6.    (action_tile "hsgb" "(hsgb1)")
7.    (action_tile "s" "(s1)")
8.    (action_tile "yp" "(yp1)")
9.    (action_tile "hdp" "(hdp1)")
10.    (action_tile "wxl" "(wxl1)")
11.    (action_tile "cancel" "(done_dialog 0)")
12.    (start_dialog)
13.   )
14.    (alert "不能正常显示对话框。")
15.   )
16.   (unload_dialog index3_3)
17. )
18.   (alert "不能载入DCL文件。")
19. )
20. (princ)
21. )
22. (defun hsgb1()
23. (if (new_dialog "hsgb1" index3_3) (progn
24.   (action_tile "xs13" "(xs13)")
25.   (action_tile "cancel" "(done_dialog 0)")
26.   (start_dialog)
27. )
28.   (alert "不能正常显示对话框。")
29. )
30. )
31. (defun s1()
32. (if (new_dialog "s1" index3_3) (progn
33.   (action_tile "xs9" "(xs9)")
34.   (action_tile "cancel" "(done_dialog 0)")
35.   (start_dialog)
36. )
37.   (alert "不能正常显示对话框。")
38. )
39. )
40. (defun yp1()
41. (if (new_dialog "yp1" index3_3) (progn
42.   (action_tile "xs10" "(c:xs10)")
43.   (action_tile "cancel" "(done_dialog 0)")
44.   (start_dialog)
45. )
46.   (alert "不能正常显示对话框。")
47. )
48. )
49. (defun hdp1()
50. (if (new_dialog "hdp1" index3_3) (progn
51.   (action_tile "xs12" "(xs12)")
52.   (action_tile "cancel" "(done_dialog 0)")
53.   (start_dialog)
54. )
55.   (alert "不能正常显示对话框。")
56. )
57. )
58. (defun wxl1()
59. (if (new_dialog "wxl1" index3_3) (progn
60.   (action_tile "xs11" "(xs11)")
61.   (action_tile "cancel" "(done_dialog 0)")
62.   (start_dialog)
63. )
64.   (alert "不能正常显示对话框。")
65. )
66. )
67. (defun xs9()
68. (start_list "slist")
69. (if (= (setq d1 (open (findfile "s.txt") "r")) nil)
70.   (alert "文件不存在或不能打开。")
71. (progn
72.   (setq clbb '())
73.   (while (setq str (read-line d1))
74.    (add_list str)
75.    (setq clbb (cons str clbb))
76.   )
77.   (close d1)
78. ))
79. (end_list)
80. (setq dang1 nil)
81. (mode_tile "slist" 2)
82. (set_tile "slist" "0")
83. )
84. (defun xs10()
85. (start_list "yplist")
86. (if (= (setq d2 (open (findfile "yp.txt") "r")) nil)
87.   (alert "文件不存在或不能打开。")
88. (progn
89.   (setq clbb '())
90.   (while (setq str (read-line d2))
91.    (add_list str)
92.    (setq clbb (cons str clbb))
93.   )
94.   (close d2)
95. ))
96. (end_list)
97. (setq d2 nil)
98. (mode_tile "yplist" 2)
99. (set_tile "yplist" "0")
100. )
101. (defun xs11()
102. (start_list "wxllist")
103. (if (= (setq d3 (open (findfile "wxl.txt") "r")) nil)
104.   (alert "文件不存在或不能打开。")
105. (progn
106.   (setq clbb '())
107.   (while (setq str (read-line d3))
108.    (add_list str)
109.    (setq clbb (cons str clbb))
110.   )
111.   (close d3)
112. ))
113. (end_list)
114. (setq d3 nil)
115. (mode_tile "wxllist" 2)
116. (set_tile "wxllist" "0")
117. )
118. (defun xs12()
119. (start_list "hdplist")
120. (if (= (setq d4 (open (findfile "hdp.txt") "r")) nil)
121.   (alert "文件不存在或不能打开。")
122. (progn
123.   (setq clbb '())
124.   (while (setq str (read-line d4))
125.    (add_list str)
126.    (setq clbb (cons str clbb))
127.   )
128.   (close d4)
129. ))
130. (end_list)
131. (setq d4 nil)
132. (mode_tile "hdplist" 2)
133. (set_tile "hdplist" "0")
134. )
135. (defun xs13()
136. (start_list "hsgblist")
137. (if (= (setq d5 (open (findfile "hsgb.txt") "r")) nil)
138.   (alert "文件不存在或不能打开。")
139. (progn
140.   (setq clbb '())
141.   (while (setq str (read-line d5))
142.    (add_list str)
143.    (setq clbb (cons str clbb))
144.   )
145.   (close d5)
146. ))
147. (end_list)
148. (setq d5 nil)
149. (mode_tile "hsgblist" 2)
150. (set_tile "hsgblist" "0")
151. )

(defun c:yyg1() (if (> (setq index3_3 (load_dialog "yyg1.dcl")) 0) (progn   (if (new_dialog "yyg1" index3_3) (progn    (action_tile "hsgb" "(hsgb1)")    (action_tile "s" "(s1)")    (action_tile "yp" "(yp1)")    (action_tile "hdp" "(hdp1)")    (action_tile "wxl" "(wxl1)")    (action_tile "cancel" "(done_dialog 0)")    (start_dialog)   )    (alert "不能正常显示对话框。")   )   (unload_dialog index3_3) )   (alert "不能载入DCL文件。") ) (princ) ) (defun hsgb1() (if (new_dialog "hsgb1" index3_3) (progn   (action_tile "xs13" "(xs13)")   (action_tile "cancel" "(done_dialog 0)")   (start_dialog) )   (alert "不能正常显示对话框。") ) ) (defun s1() (if (new_dialog "s1" index3_3) (progn   (action_tile "xs9" "(xs9)")   (action_tile "cancel" "(done_dialog 0)")   (start_dialog) )   (alert "不能正常显示对话框。") ) ) (defun yp1() (if (new_dialog "yp1" index3_3) (progn   (action_tile "xs10" "(c:xs10)")   (action_tile "cancel" "(done_dialog 0)")   (start_dialog) )   (alert "不能正常显示对话框。") ) ) (defun hdp1() (if (new_dialog "hdp1" index3_3) (progn   (action_tile "xs12" "(xs12)")   (action_tile "cancel" "(done_dialog 0)")   (start_dialog) )   (alert "不能正常显示对话框。") ) ) (defun wxl1() (if (new_dialog "wxl1" index3_3) (progn   (action_tile "xs11" "(xs11)")   (action_tile "cancel" "(done_dialog 0)")   (start_dialog) )   (alert "不能正常显示对话框。") ) ) (defun xs9() (start_list "slist") (if (= (setq d1 (open (findfile "s.txt") "r")) nil)   (alert "文件不存在或不能打开。") (progn   (setq clbb '())   (while (setq str (read-line d1))    (add_list str)    (setq clbb (cons str clbb))   )   (close d1) )) (end_list) (setq dang1 nil) (mode_tile "slist" 2) (set_tile "slist" "0") ) (defun xs10() (start_list "yplist") (if (= (setq d2 (open (findfile "yp.txt") "r")) nil)   (alert "文件不存在或不能打开。") (progn   (setq clbb '())   (while (setq str (read-line d2))    (add_list str)    (setq clbb (cons str clbb))   )   (close d2) )) (end_list) (setq d2 nil) (mode_tile "yplist" 2) (set_tile "yplist" "0") ) (defun xs11() (start_list "wxllist") (if (= (setq d3 (open (findfile "wxl.txt") "r")) nil)   (alert "文件不存在或不能打开。") (progn   (setq clbb '())   (while (setq str (read-line d3))    (add_list str)    (setq clbb (cons str clbb))   )   (close d3) )) (end_list) (setq d3 nil) (mode_tile "wxllist" 2) (set_tile "wxllist" "0") ) (defun xs12() (start_list "hdplist") (if (= (setq d4 (open (findfile "hdp.txt") "r")) nil)   (alert "文件不存在或不能打开。") (progn   (setq clbb '())   (while (setq str (read-line d4))    (add_list str)    (setq clbb (cons str clbb))   )   (close d4) )) (end_list) (setq d4 nil) (mode_tile "hdplist" 2) (set_tile "hdplist" "0") ) (defun xs13() (start_list "hsgblist") (if (= (setq d5 (open (findfile "hsgb.txt") "r")) nil)   (alert "文件不存在或不能打开。") (progn   (setq clbb '())   (while (setq str (read-line d5))    (add_list str)    (setq clbb (cons str clbb))   )   (close d5) )) (end_list) (setq d5 nil) (mode_tile "hsgblist" 2) (set_tile "hsgblist" "0") )

wqlovelg1128

谢谢ZZXXQQ大哥!!!!
我试过了!!!可以!!!!谢谢ZZXXQQ帮助!!!

rms_1018

对话框文件没错，看保存的文件名与加载文件名（文件全名）是否相同．

本人试过了，将对话框文件存为"D:/aa.dcl.

运行以下程序OK

(defun c:yyf1()
   (if (> (setq index3_3 (load_dialog "D:/aa.dcl")) 0)
      (progn
         (if (new_dialog "yyf1" index3_3)
            (progn
           (action_tile "hsf" "(hxf1)")
                 (action_tile "ylf" "(ylf1)")
                 (action_tile "llkzf" "(llkzf1)")
                 (action_tile "sxf" "(sxf1)")
                 (action_tile "dxf" "(dxf1)")   

       (start_dialog)
               (unload_dialog index3_3)
            )
            (alert "不能正常显示对话框。")
         )
      )
      (alert "不能载入DCL文件。")
   )
)

rms_1018

加载对话文件路径错误．如存为"D:/aa.dcl"

(defun c:yyf1()
   (if (> (setq index3_3 (load_dialog "D:/aa.dcl")) 0)
      (progn
         (if (new_dialog "yyf1" index3_3)
            (progn
           (action_tile "hsf" "(hxf1)")
                 (action_tile "ylf" "(ylf1)")
                 (action_tile "llkzf" "(llkzf1)")
                 (action_tile "sxf" "(sxf1)")
                 (action_tile "dxf" "(dxf1)")   

       (start_dialog)
               (unload_dialog index3_3)
            )
            (alert "不能正常显示对话框。")
         )
      )
      (alert "不能载入DCL文件。")
   )
)

在Vlisp控制台输入: (C:yyf1)或在CAD命令行输入: yyf1,均可正常运行．

wqlovelg1128

谢谢各位大哥！！！但老师说我这样做技术含量低！！！给读文章没有什么区别！！气死我了！！！
我现在该了一下，但是怎么样能按下面的意思做出来？？
　要求是这样的：
我点ＬＩＳＴ其中任何一个故障现象，在１１ＬＩＳＴ　出现相对应的内容，在点另外一个时前一个故障的解决的办法在１１ＬＩＳＴ消失，同时这个问题的解决办法在１１ＬＩＳＴ出现．
例如，我点其中的一个＂主阀芯不动作＂那吗在１１ＬＩＳＴ出现
　　　　　1 电磁铁线圈烧坏   检查原因，进行修理换更换

         2 电磁铁推动力不足或漏磁  进行修理换更换
   
         3 电气线路出故障         消除故障

         4 电磁铁未加上控制信号   检查后加上控制信号

         5 电磁铁铁心卡死         检查或更换

         6 阀芯与阀体孔卡死    修理配合间隙达规定要求

         7 弹簧弯曲使滑阀卡死    更换弹簧

         8 主阀芯被卡死        修理配研间隙,并去毛刺

         9 控制油路被堵塞       检查清洗，使油路畅通

         10 弹簧力过大         更换适宜的弹簧
而当我在点另外一个＂阀芯换向后通过的流量不足＂在１１ＬＩＳＴ　出现
　　　　　1 电磁阀中推杆过短    更换适宜长度的推杆

          2 弹簧太短，推力不足   更换适宜弹力的弹簧

          3 阀芯与阀体的集合精度差  配研达到要求
同时＂主阀芯不动作＂问题的解决办法在１１ＬＩＳＴ中消失！我把对话框和文本文件传上！！希望各位大哥能帮帮小弟！！！！时间不多了啊！！
急盼！！
hxf:dialog
{
   label="换向阀故障现象";
   spacer;
: column {
:row  {
:list_box
      {
       label="请选择故障现象";
      key="xx";
       list="主阀芯不动作\n阀芯换向后通过的流量不足\n压力降过大\n阀芯换向速度不易调节\n电磁铁过热或线圈烧坏";
       allow_accept=true;
      }
   spacer;
   :list_box
      {
      label="    原因                解决办法";
       key="11list";
      width=40;
      height=10;
      }
   }

spacer;
ok_cancel;
}
}  
文本文件
一  主阀芯不动作

         1 电磁铁线圈烧坏   检查原因，进行修理换更换

         2 电磁铁推动力不足或漏磁  进行修理换更换
   
         3 电气线路出故障         消除故障

         4 电磁铁未加上控制信号   检查后加上控制信号

         5 电磁铁铁心卡死         检查或更换

         6 阀芯与阀体孔卡死    修理配合间隙达规定要求

         7 弹簧弯曲使滑阀卡死    更换弹簧

         8 主阀芯被卡死        修理配研间隙,并去毛刺

         9 控制油路被堵塞       检查清洗，使油路畅通

         10 弹簧力过大         更换适宜的弹簧

         11 弹簧断裂不能复位   更换适宜的弹簧

         12 油温过高,零件产生热变形    消除高温

         13 油液过脏使阀芯卡死    过滤或更换油液

二  阀芯换向后通过的流量不足

          1 电磁阀中推杆过短    更换适宜长度的推杆

          2 弹簧太短，推力不足   更换适宜弹力的弹簧

          3 阀芯与阀体的集合精度差  配研达到要求

三      压力降过大

       1 实际流通量大于额定流通量  应在额定范围内使用

四    阀芯换向速度不易调节

       1 单向阀封闭性差         修理或更换

       2 节流阀加工精度差       更换节流阀

       3 排油腔滑盖处漏油       更换密封件，拧紧螺钉

       4 针形节流阀调节性能差   改用三角槽节流阀

五  电磁铁过热或线圈烧坏

        1 线圈绝缘不好        更换

        2 电磁铁心不合理      更换

        3 电极焊接不好        重新焊接

        4 换向压力超过规定    降低压力

        5 换向流量超过规定    更换规格合适的换向阀

        6 回油口背压过高      调整背压使其在规定值内


   
　

ZZXXQQ

hxf.dcl

3. hxf:dialog{
4. label="换向阀故障现象";
5. spacer;
6. :row{
7.   :list_box{
8.    label="请选择故障现象";
9.    key="xx";
10.    list="主阀芯不动作\n阀芯换向后通过的流量不足\n压力降过大\n阀芯换向速度不易调节\n电磁铁过热或线圈烧坏";
11.    width=26;
12.    height=14;
13.    allow_accept=true;
14.   }
15.   spacer;
16.   :list_box{
17.    label="  故障原因";
18.    key="11list";
19.    width=28;
20.    height=14;
21.   }
22.   :list_box{
23.    label="  解决办法";
24.    key="12list";
25.    width=28;
26.    height=14;
27.   }
28. }
29. spacer;
30. ok_cancel;
31. }

hxf:dialog{ label="换向阀故障现象"; spacer; :row{   :list_box{    label="请选择故障现象";    key="xx";    list="主阀芯不动作\n阀芯换向后通过的流量不足\n压力降过大\n阀芯换向速度不易调节\n电磁铁过热或线圈烧坏";    width=26;    height=14;    allow_accept=true;   }   spacer;   :list_box{    label="  故障原因";    key="11list";    width=28;    height=14;   }   :list_box{    label="  解决办法";    key="12list";    width=28;    height=14;   } } spacer; ok_cancel; }

HXF.LSP

2. (DEFUN C:HXF ()
3. (DEFUN HXF0 ()
4.   (START_LIST "11list")
5.   (MAPCAR 'ADD_LIST (LIST "电磁铁线圈烧坏" "电磁铁推动力不足或漏磁" "电气线路出故障"
6.    "电磁铁未加上控制信号" "电磁铁铁心卡死" "阀芯与阀体孔卡死" "弹簧弯曲使滑阀卡死"
7.    "主阀芯被卡死" "控制油路被堵塞" "弹簧力过大" "弹簧断裂不能复位"
8.    "油温过高,零件产生热变形" "油液过脏使阀芯卡死"))
9.   (END_LIST)
10.   (START_LIST "12list")
11.   (MAPCAR 'ADD_LIST (LIST "检查原因，进行修理或更换" "进行修理或更换" "排除故障"
12.    "检查后加上控制信号" "检查或更换" "修理配合间隙达规定要求" "更换弹簧"
13.    "修理配研间隙,并去毛刺" "检查清洗，使油路畅通" "更换适宜的弹簧"
14.    "更换适宜的弹簧" "消除高温" "过滤或更换油液"))
15.   (END_LIST)
16. )
17. (DEFUN HXF1 ()
18.   (START_LIST "11list")
19.   (MAPCAR 'ADD_LIST (LIST "电磁阀中推杆过短" "弹簧太短，推力不足" "阀芯与阀体的集合精度差"))
20.   (END_LIST)
21.   (START_LIST "12list")
22.   (MAPCAR 'ADD_LIST (LIST "更换适宜长度的推杆" "更换适宜弹力的弹簧" "配研达到要求"))
23.   (END_LIST)
24. )
25. (DEFUN HXF2 ()
26.   (START_LIST "11list")
27.   (MAPCAR 'ADD_LIST (LIST "实际流通量大于额定流通量"))
28.   (END_LIST)
29.   (START_LIST "12list")
30.   (MAPCAR 'ADD_LIST (LIST "应在额定范围内使用"))
31.   (END_LIST)
32. )
33. (DEFUN HXF3 ()
34.   (START_LIST "11list")
35.   (MAPCAR 'ADD_LIST (LIST "单向阀封闭性差" "节流阀加工精度差"
36.    "排油腔滑盖处漏油" "针形节流阀调节性能差"))
37.   (END_LIST)
38.   (START_LIST "12list")
39.   (MAPCAR 'ADD_LIST (LIST "修理或更换" "更换节流阀"
40.    "更换密封件，拧紧螺钉" "改用三角槽节流阀"))
41.   (END_LIST)
42. )
43. (DEFUN HXF4 ()
44.   (START_LIST "11list")
45.   (MAPCAR 'ADD_LIST (LIST "线圈绝缘不好" "电磁铁心不合理" "电极焊接不好"
46.    "换向压力超过规定" "换向流量超过规定" "回油口背压过高"))
47.   (END_LIST)
48.   (START_LIST "12list")
49.   (MAPCAR 'ADD_LIST (LIST "更换" "更换" "重新焊接"
50.    "降低压力" "更换规格合适的换向阀" "调整背压使其在规定值内"))
51.   (END_LIST)
52. )
53. (IF (> (SETQ DCL_ID (LOAD_DIALOG "hxf")) 0) (PROGN
54.   (IF (NEW_DIALOG "hxf" DCL_ID) (PROGN
55.    (ACTION_TILE "xx" "(EVAL (READ (STRCAT "(HXF" $value ")")))")
56.    (ACTION_TILE "11list" "(SET_TILE "12list" $value)")
57.    (ACTION_TILE "12list" "(SET_TILE "11list" $value)")
58.    (START_DIALOG)
59.   )
60.    (PRINC "\nUnable display dialog box!")
61.   )
62.   (UNLOAD_DIALOG DCL_ID)
63. )
64.   (PRINC "\nUnable load dialog box!")
65. )
66. (PRINC)
67. )

复制代码