visual lisp/autolisp dcl对话框开发 --对话框嵌套（子对话框

admin1

nest_dialog.lsp:
[code]  
;功能：演示 1、 对话框嵌套。
;所需文件包括： nest_dialog.lsp nest_dialog.dcl
;
;加载步骤：
;1、加载lsp
;2、命令行输入 test

(defun c:test ()
  (setq dcl_id (load_dialog "nest_dialog.dcl"))
  ;加载 DCL 文件

  (if (not (new_dialog "main_dialog" dcl_id))
  ;新建 对话框
    (exit)
    ;新建失败则退出
  )

  (action_tile
    "cancel"
    "(done_dialog)
     (setq result nil)"
  )
  ;关闭按钮被点击

  (action_tile
    "accept"
    "(done_dialog)
     (setq result T)"
  )
  ;

  (action_tile    "nest"    "(nest1)"  )
  ;点击“子对话框”按钮后调用nest1函数

  (start_dialog)
  ;弹出对话框

  (unload_dialog dcl_id)
  ;卸载对话框

  (princ)

);defun

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun nest1 ()
  (setq dcl_id1 (load_dialog "nest_dialog.dcl"))

  (if (not (new_dialog "child_dialog1" dcl_id1 "" '(700 250))); (700 250)是对话框位置

    (exit)

  )

  (action_tile
    "cancel"
    "(done_dialog)
     (setq result1 nil)"
  )

  (action_tile
    "accept"
    "(done_dialog)
     (setq result1 T)"
  )

  (action_tile
    "nest"
    "(nest2)"
  )

  (start_dialog)
  (unload_dialog dcl_id1)

  (princ)

);defun


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun nest2 ()

  (setq dcl_id2 (load_dialog "nest_dialog.dcl"))

  (if (not (new_dialog "child_dialog2" dcl_id2))

    (exit)
  )

  (action_tile
    "cancel"
    "(done_dialog)
     (setq result2 nil)"
  )
  (action_tile
    "accept"
    "(done_dialog)
     (setq result2 T)"
  )

  (start_dialog)

  (unload_dialog dcl_id2)

);defun

[/code]


nest_dialog.dcl:
[code]main_dialog:dialog{
        label="main dialog by 鸟哥";
        :row{               
                :button{
                        key="accept";
                        label="确定";
                       
                }
                :button{
                        key="nest";
                        label="子对话框1";
                }
                :cancel_button{
                        label="关闭";
                }
        }       
}

child_dialog1:dialog{
        label="child_dialog1 by 鸟哥";                       
       
       
        :row{               
                :button{
                        key="accept";
                        label="确定";
                       
                }
                :button{
                        key="nest";
                        label="子对话框2";
                }
                :cancel_button{
                        label="关闭";
                }
        }       
}

child_dialog2:dialog{
        label="child_dialog2  by 鸟哥";
       
        :row{               
                :button{
                        key="accept";
                        label="确定";
                       
                }
               
                :cancel_button{
                        label="关闭";
                }
        }       
}
[/code]