例子:
(defun XXXXXXX(/ at1 at2 at3)
*******
(action_tile "KEY1" "(setq at1 1)(done_dialog)");指定动作1 (action_tile "KEY2" "(setq at1 2)(done_dialog)");指定动作2 (action_tile "KEY3" "(setq at1 3)(done_dialog)");指定动作3 (start_dialog)(unload_dialog dcl_id);关闭第一个对话框 (if (= at1 1)(xx));当选取动作1启动别的程序或对话框 (if (= at1 2)(xxx));当选取动作2启动别的程序或对话框 (if (= at1 3)(xxxx));当选取动作3启动别的程序或对话框 (princ) )
完成后一定要清除at1 at2 at3。分开做程序。希望对你有帮助! |