哪位大神帮我看看嵌入对话框的主程序

兵荒马乱

(defun zjgsj()
  (setq dizhi "F:/平凡之路/毕业设计/程序之路/软件实验/")
      (setq index_value (load_dialog (strcat dizhi "zjgsj.dcl")))        
  (setq aaa  5)
  (while  (< 0 aaa  )
       (if (not (new_dialog "zhudhk" index_value))
           (exit))   
  (mode_tile "left" 2)
  (if (= direction "left")(fsld1)(fsld2))

    (fy "zhoutx" (strcat dizhi"jxone.sld"))


  (action_tile "choose" "(jzzdhk)")
  (flist1)
  (action_tile "list_daoj" "(tqlist1)")
  (flist2)
  (action_tile "list_mosh" "(tqlist2)")
  (flist3)
  (action_tile "list_changd3" "(tqlist3)")
  (flist4)
  (action_tile "list_zhij3" "(tqlist4)")
  (flist5)
  (action_tile "list_kuand" "(tqlist5)")
  (flist6)
  (action_tile "list_zhoush" "(tqlist6)")
  (setq aaa (start_dialog))
  (if (= aaa 0)(setq wwwwww 1)
   ((xuant) (xuanh))  )

  (action_tile "accept" "((xuant) (xuanh))")
  )
  (unload_dialog index_value )
  )