;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:rrr()
(setvar "cmdecho" 0)
(dcl_rect)
(prin1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun dcl_rect()
(setq dd 6)
(if (> (setq dcl_id (load_dialog "rect")) 0) (progn ;载入DCL文件
(while (> dd 0)
(if (new_dialog "rect" dcl_id) (progn ;启动DCL对话框
(action_tile "bb1" "(done_dialog 1)")
(action_tile "bb2" "(done_dialog 2)")
(action_tile "bb3" "(done_dialog 3)")
(action_tile "bb4" "(done_dialog 4)")
(action_tile "bb5" "(done_dialog 5)")
(setq dd (start_dialog))
)
(alert "Unable to display dialog box!\n无法显示对话框！")
)
(cond
((= dd 1) (c:rect1))
((= dd 2) (c:rect2))
((= dd 3) (c:rect3))
((= dd 4) (c:koyoteinfo))
((= dd 5) (c:programinfo))
(t (alert "未完成任何动作!!!!"))
)
)
(unload_dialog dcl_id)
)
(alert "Unable to load dialog box!\n无法装载对话框！")
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:koyoteinfo()
(new_dialog "koyote" dcl_id);启动DCL对话框
(action_tile "accept" "(done_dialog 0)")
(start_dialog)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:programinfo()
(new_dialog "program" dcl_id);启动DCL对话框
(action_tile "accept" "(done_dialog 0)")
(start_dialog)
)
学习，学习
页:
1
[2]