dcl传回的值如何获取?

aliu22

(defun c:gj (/ dcl_id pass )
(setq dcl_id(load_dialog "aa.DCL"))
;;; (if(< dcl_id 0)
;;;    (exit)
;;;     )
  (if (not(new_dialog "aliu" dcl_1))
    (exit)
    )
   (SET_TILE "A1" "3600") 
  
   (action_tile "accept" " (a_qt)(DONE_DIALOG)")
    (start_dialog)(unload_dialog dcl_1)
    (setq pass A_1)
  ;pass
 (COMMAND "shell" "shutdown -s -t (pass) ")

  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN a_qt()
  (SETQ A_1 (ABS (ATOF (GET_TILE "A1")))) 
 )

我想实现弹出对话框,输入关机的时间,然后执行 "shutdown -s -t 1000",

请问错在哪

aliu:dialog{
label="自动关机程序";

:edit_box{
label="时间(秒)";
key="A1";
edit_width=6;
value="3600";
}
ok_only;
}

ZZXXQQ

(GETPASS)是什么?

meflying

(COMMAND "shell" (strcat "shutdown -s -t " pass))

chen4

aa

tc405003

(defun c:gj (/ dcl_id pass )
(setq dcl_id(load_dialog "aa.DCL"))
  (if (not(new_dialog "aliu" dcl_id))
    (exit)
    )
       (if (null TC_A1)
    (progn
      (set_tile "A1" "3600")
      (setq TC_A1 "3600")
    )
    (set_tile "A1" TC_A1) 
   (action_tile "A1" "(setq TC_A1 $value)")
   (action_tile "accept" "(a_qt)(DONE_DIALOG)")
    (start_dialog)
  (unload_dialog dcl_id)
    (setq pass TC_A3)
(COMMAND "shell" (strcat "shutdown -s -t " pass))
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN a_qt()
  (SETQ TC_A3 (GET_TILE "A1")) 
 )

;;;对话框程序
aliu:dialog{
label="自动关机程序";
:edit_box{
label="时间(秒)";
key="A1";
edit_width=6;
}
ok_only;
}

aliu22

报列表有缺陷啊,而且对话框不会出来

tc405003

(defun c:zdgj (/ dcl_id )
(setq dcl_id(load_dialog "aa.DCL"))
  (if (not(new_dialog "aliu" dcl_id))
    (exit)
    )
       (if (null TC_A1)
    (progn
      (set_tile "A1" "360")
      (setq TC_A1 "360")
    )
    (set_tile "A1" TC_A1)
  )
   (action_tile "A1" "(setq TC_A1 $value)")
   (action_tile "accept" "(a_qt)(DONE_DIALOG)")
    (start_dialog)
  (unload_dialog dcl_id)
    (COMMAND "shell" (strcat "shutdown -s -t " TC_A3))
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun a_qt ()
  (SETQ TC_A3 (GET_TILE "A1"))
)

aliu:dialog{
label="自动关机程序";
:edit_box{
label="时间(秒)";
key="A1";
edit_width=6;
}
ok_only;

 

 

我试过了没有问题啊,但是好像只有XP的操作系统可以用
}