visual lisp/autolisp dcl对话框开发 --在一个dcl文件中引用另一...

admin1

[code]  
;include.lsp
;功能：演示 1、 在一个对话框中包含另一个对话框。
;所需文件包括： include.lsp include.dcl included.dcl
;
;加载步骤：
;1、加载lsp
;2、命令行输入 test

(defun c:test ()
       
  (setq dcl_id (load_dialog "include.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)"
  )

  (start_dialog)
  ;弹出对话框

  (unload_dialog dcl_id)
  ;卸载对话框

  (princ)

)
[/code]


[code]//included.dcl
para : boxed_column {
        : paragraph {       
                : text_part {
                  label = "演示dcl文件包含";
                }
               
                : text_part {
                  label = "By 膜结构网";
                }
               
                : text_part {

                  label = "qq1833183060";
                }
        }
       
}
[/code]