预览dcl窗体

[code];;;通用函数
;;;功能：预览dcl窗体
(defun zl-viewDCL (DclFileName DialogName / DD ID )
;;调入文件
(setq id (load_dialog DclFileName))
;;加载dcl
(new_dialog DialogName id)
;;激活对话框的按键定义
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
;;显示窗体
(setq dd (start_dialog))
;;判断返回
(cond ((= dd 1)
(princ "\n确定")
)
(= dd 0)
(princ "\n取消")
)
;;尚需卸载
;;(unload_dialog id)
)

;;;通用函数
;;;功能：获取对话框名称列表
(defun zl-GetDiaNameList (str_Dcl_File_Name / INT LST LST_JG)
(setq lst_jg '())
(if (setq lst (ZL-TXTFILE->TXTLIST str_Dcl_File_Name))
(foreach str lst
(if (or (wcmatch str "*:dialog*")
(wcmatch str "*: dialog*")
(wcmatch str "*: dialog*")
(wcmatch str "*: dialog*")
)
(setq int (vl-string-search ":" str)
str (substr str 1 int)
str (vl-string-trim " " str) ;_去除开始和后续空格
lst_jg (cons str lst_jg)
)
)
)
)
;;返回
(reverse lst_jg)
)

;;;功能：预览DCL文件
(defun c:tt ( / LST_DCLNAME)
(or dcl_file
(setq dcl_file "")
)
(setq dcl_file (getfiled "打开 DCL 文件" dcl_file "DCL" 2))
(princ DCL_FILE)
(setq lst_dclNAME (zl-GetDiaNameList DCL_FILE))
(princ lst_dclNAME)
(zl-viewDCL DCL_FILE (car lst_dclNAME))
(princ)
)[/code]