高手帮忙!我快要答辩了!这个程序怎么显示不了对话框!

wqlovelg1128

(defun c:yyf1()
   (if (> (setq index3_3 (load_dialog "yeyacad/dcls/yyf1.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文件。")
   )
)

(defun xs1()
     (start_list "hxflist")
     (if (= (setq d1 (open (findfile "YEYACAD/wenbens/hxf.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 "hxflist" 2)
      (set_tile "hxflist" "0")
)
(defun xs2()
     (start_list "ylflist")
     (if (= (setq d2 (open (findfile "YEYACAD/wenbens/ylf.txt") "r")) nil)
         (alert "文件不存在或不能打开。")
         (progn
             (setq clbb '())
             (while (setq str (read-line d2))
                 (add_list str)
          (setq clbb (cons str clbb))
              )
             (close 2)
          )
      )
      (end_list)
      (setq d2 nil)
      (mode_tile "ylflist" 2)
      (set_tile "ylflist" "0")
)
(defun xs3()
     (start_list "llkzflist")
     (if (= (setq d3 (open (findfile "YEYACAD/wenbens/llkzf.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 "llkzflist" 2)
      (set_tile "llkzflist" "0")
)
(defun xs4()
     (start_list "sxflist")
     (if (= (setq d4 (open (findfile "YEYACAD/wenbens/sxf.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 "sxflist" 2)
      (set_tile "sxflist" "0")
)