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

本文演示如何在一个dcl文件中包含另一个dcl文件
运行效果：

代码：

 ;by 鸟哥 qq1833183060
 ;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)

) 

//include.dcl

@include "included.dcl"

main_dialog:dialog{
	label="by鸟哥";
	fixed_width=true;
	para;
	:row{
	fixed_width=true;
		:button{
			key="accept";
			label="确定";
			width=8;
			fixed_width=true;
		}
		:cancel_button{
			label="关闭";
		}
	}
}

//included.dcl
para : boxed_column {
	: paragraph {	
		: text_part {
		  label = "演示dcl文件包含";
		}
		
		: text_part {
		  label = "By 鸟哥";
		}
		
		: text_part {

		  label = "qq1833183060";
		}
	}
	
}

源码地址：https://github.com/1833183060/autolisp-visuallisp-demo/tree/master/dcl