以下是autolisp与dcl连接的程序不知有哪错误,请各位大侠拔刀相助,给改正一下

xiexiaohua

以下是autolisp与dcl连接的程序不知有哪错误,请各位大侠拔刀相助,给改正一下 十分感谢[br]

(defun c:dcl_clcs(/dcl_file dcl_name dcl_flag))
  (setq dcl_file "dcl_clcs" dcl_name "clcs_1" )
  (setq dcl_flag (load_dialog dcl_file))
  (if(< dcl_flag 0)(exit))
  (if(not(new_dialog dcl_name dcl_flag)(exit)))
  (dcl_tile_cljg)
  (action_tile "pop1"(set_tile\"u\"(get_tile\"pop1\"))")
  (action_tile "pop2"(set_tile\"z1\"(get_tile\"pop2\"))")
  (action_tile "accept" "(done_dialog)")
  (start_dialog)
  (unload_dialog dcl_flag)
  (prin1)
  )

ZZXXQQ

这样试试：

3. (defun c:dcl_clcs(/dcl_file dcl_name dcl_flag))
4.   (setq dcl_file "dcl_clcs" dcl_name "clcs_1" )
5.   (IF (> (setq dcl_flag (load_dialog dcl_file)) 0) (PROGN
6.    (if (new_dialog dcl_name dcl_flag) (PROGN
7.     (dcl_tile_cljg)
8.     (action_tile "pop1"(set_tile"u"(get_tile"pop1"))")
9.     (action_tile "pop2"(set_tile"z1"(get_tile"pop2"))")
10.     (action_tile "accept" "(done_dialog 1)")
11.     (ACTION_TILE "cancel" "(DONE_DIALOG 0)")
12.     (SETQ RE (start_dialog))
13.    )
14.     (PRINC "\nUnable to display dialog box!")
15.    )
16.    (unload_dialog dcl_flag)
17.   )
18.    (PRINC "\nUnable to load dialog box!")
19.   )
20.   (if (= re 1) (progn
21.    ...
22.   ))
23.   (prin1)
24. )

(defun c:dcl_clcs(/dcl_file dcl_name dcl_flag))   (setq dcl_file "dcl_clcs" dcl_name "clcs_1" )   (IF (> (setq dcl_flag (load_dialog dcl_file)) 0) (PROGN    (if (new_dialog dcl_name dcl_flag) (PROGN     (dcl_tile_cljg)     (action_tile "pop1"(set_tile"u"(get_tile"pop1"))")     (action_tile "pop2"(set_tile"z1"(get_tile"pop2"))")     (action_tile "accept" "(done_dialog 1)")     (ACTION_TILE "cancel" "(DONE_DIALOG 0)")     (SETQ RE (start_dialog))    )     (PRINC "\nUnable to display dialog box!")    )    (unload_dialog dcl_flag)   )    (PRINC "\nUnable to load dialog box!")   )   (if (= re 1) (progn    ...   ))   (prin1) )

jxlnlsh

学习

xiexiaohua

非常感谢ZZXXQQ,我这就试试去