DCL 二级对话框示例.更新视频

vitalgg

如果无法播放，请点击此处在新窗口打开

因为 dcl 只支持模态对话框，所以打开 子对话框后，只有子对话框能获得焦点。如果要与主对话框交互，需先关闭子对话框。

1. (defun dcl-main (/ *error* curr-page total-page dcl-fp dcl-tmp cb-flush-page cb-img1 cb-img2 cb-img3)
   
2.   "DCL多级对话框示例"
   
3.   ""
   
4.   "(example:dcl-dialog)"
   
5.   (require (quote dcl:*))
   
6.   
   
7.   (defun sub-dialog (m n / curr-page total-page dcl-fp dcl-tmp cb-flush-page page-init)
   
8.     "m n 表示图像的 行 列个数"
   
9.     "1. Model 建立数据模型。"
   
10.     (setq curr-page 0)
    
11.     (setq total-page 3)
    
12.     "2. View 建立显示视图。"
    
13.     (dcl:dialog "subimgs")
    
14.     (progn (dcl:hr 0.08)
    
15.      (write-line ":text{key=\"num\";}"
    
16.            dcl-fp)
    
17.      (dcl:hr 0.08)
    
18.      (setq i 0)
    
19.      (dcl:begin-cluster "column" "")
    
20.      (repeat m
    
21.        (dcl:begin-cluster "row" "")
    
22.        (repeat n
    
23.          (dcl:image-button (strcat "subimg" (itoa (setq i (1+ i))))
    
24.                20 10 nil))
    
25.        (dcl:end-cluster)
    
26.        )
    
27.      (dcl:end-cluster)
    
28.      (dcl:hr 0.08)
    
29.      (dcl:paging t))
    
30.     (dcl:dialog-end-ok-cancel)
    
31.     "3. Control 创建控制流程"
    
32.     (defun cb-flush-page nil (set_tile "num"
    
33.                (strcat "当前页面: "
    
34.                  (itoa (1+ curr-page)))))
    
35.     "4. New 一个新对话框对象。"
    
36.     (dcl:new "subimgs")
    
37.     "5. Init 初始化对话框"
    
38.     (set_tile "title"
    
39.         "子窗口")
    
40.     (paging-init)
    
41.     (cb-flush-page)
    
42.     "6. Show dialog 显示并进行交互"
    
43.     (dcl:show)
    
44.     (princ))
    
45. 
    
46.   "1. Model 建立数据模型。"
    
47.   (setq curr-page 0)
    
48.   (setq total-page 5)
    
49.   "2. View 建立显示视图。"
    
50.   (dcl:dialog "example")
    
51.   (progn (dcl:hr 0.08)
    
52.    (write-line ":text{key=\"num\";}"
    
53.          dcl-fp)
    
54.    (dcl:hr 0.08)
    
55.    (setq i 0)
    
56.    (dcl:begin-cluster "column" "")
    
57.    (repeat 4
    
58.      (dcl:begin-cluster "row" "")
    
59.      (repeat 3
    
60.        (dcl:image-button (strcat "img" (itoa (setq i (1+ i))))
    
61.              30 10 nil))
    
62.      (dcl:end-cluster)
    
63.      )
    
64.    (dcl:end-cluster)
    
65.    (dcl:hr 0.08)
    
66.    (dcl:paging t))
    
67.   (dcl:dialog-end-ok-cancel)
    
68.   "3. Control 创建控制流程"
    
69.   (defun cb-flush-page nil (set_tile "num"
    
70.              (strcat "当前页面: "
    
71.                (itoa (1+ curr-page)))))
    
72.   (defun cb-img1 () (sub-dialog 2 2))
    
73.   (defun cb-img2 () (sub-dialog 3 3))
    
74.   (defun cb-img3 () (sub-dialog 3 1))
    
75.   "4. New 一个新对话框对象。"
    
76.   (dcl:new "example")
    
77.   "5. Init 初始化对话框"
    
78.   (set_tile "title" "主窗口")
    
79.   (paging-init)
    
80.   (cb-flush-page)
    
81.   "6. Show dialog 显示并进行交互"
    
82.   (dcl:show)
    
83.   (princ))
    

(defun dcl-main (/ *error* curr-page total-page dcl-fp dcl-tmp cb-flush-page cb-img1 cb-img2 cb-img3)<br />   "DCL多级对话框示例"<br />   ""<br />   "(example:dcl-dialog)"<br />   (require (quote dcl:*))<br />   <br />   (defun sub-dialog (m n / curr-page total-page dcl-fp dcl-tmp cb-flush-page page-init)<br />     "m n 表示图像的 行 列个数"<br />     "1. Model 建立数据模型。"<br />     (setq curr-page 0)<br />     (setq total-page 3)<br />     "2. View 建立显示视图。"<br />     (dcl:dialog "subimgs")<br />     (progn (dcl:hr 0.08)<br />      (write-line ":text{key=\"num\";}"<br />            dcl-fp)<br />      (dcl:hr 0.08)<br />      (setq i 0)<br />      (dcl:begin-cluster "column" "")<br />      (repeat m<br />        (dcl:begin-cluster "row" "")<br />        (repeat n<br />          (dcl:image-button (strcat "subimg" (itoa (setq i (1+ i))))<br />                20 10 nil))<br />        (dcl:end-cluster)<br />        )<br />      (dcl:end-cluster)<br />      (dcl:hr 0.08)<br />      (dcl:paging t))<br />     (dcl:dialog-end-ok-cancel)<br />     "3. Control 创建控制流程"<br />     (defun cb-flush-page nil (set_tile "num"<br />                (strcat "当前页面: "<br />                  (itoa (1+ curr-page)))))<br />     "4. New 一个新对话框对象。"<br />     (dcl:new "subimgs")<br />     "5. Init 初始化对话框"<br />     (set_tile "title"<br />         "子窗口")<br />     (paging-init)<br />     (cb-flush-page)<br />     "6. Show dialog 显示并进行交互"<br />     (dcl:show)<br />     (princ))<br /> <br />   "1. Model 建立数据模型。"<br />   (setq curr-page 0)<br />   (setq total-page 5)<br />   "2. View 建立显示视图。"<br />   (dcl:dialog "example")<br />   (progn (dcl:hr 0.08)<br />    (write-line ":text{key=\"num\";}"<br />          dcl-fp)<br />    (dcl:hr 0.08)<br />    (setq i 0)<br />    (dcl:begin-cluster "column" "")<br />    (repeat 4<br />      (dcl:begin-cluster "row" "")<br />      (repeat 3<br />        (dcl:image-button (strcat "img" (itoa (setq i (1+ i))))<br />              30 10 nil))<br />      (dcl:end-cluster)<br />      )<br />    (dcl:end-cluster)<br />    (dcl:hr 0.08)<br />    (dcl:paging t))<br />   (dcl:dialog-end-ok-cancel)<br />   "3. Control 创建控制流程"<br />   (defun cb-flush-page nil (set_tile "num"<br />              (strcat "当前页面: "<br />                (itoa (1+ curr-page)))))<br />   (defun cb-img1 () (sub-dialog 2 2))<br />   (defun cb-img2 () (sub-dialog 3 3))<br />   (defun cb-img3 () (sub-dialog 3 1))<br />   "4. New 一个新对话框对象。"<br />   (dcl:new "example")<br />   "5. Init 初始化对话框"<br />   (set_tile "title" "主窗口")<br />   (paging-init)<br />   (cb-flush-page)<br />   "6. Show dialog 显示并进行交互"<br />   (dcl:show)<br />   (princ))<br />

相关内容 ：
MVCNIS 方法：6步实现动态DCL编程
https://gitee.com/atlisp/atlisp- ... lisp/dcl-mvcnis.org

函数说明： *:* 这类的函数均为 @lisp 函数库内定义的函数。详见
https://gitee.com/atlisp/atlisp-lib

gdfyhao

没太看懂，需要细细琢磨学习一下代码

vitalgg

gdfyhao 发表于 2023-3-1 11:19
没太看懂，需要细细琢磨学习一下代码

相关内容 ：
MVCNIS 方法：6步实现动态DCL编程
https://gitee.com/atlisp/atlisp- ... lisp/dcl-mvcnis.org

函数说明： *:* 这类的函数均为 @lisp 函数库内定义的函数。详见
https://gitee.com/atlisp/atlisp-lib

vitalgg

更新代码。
已收录至 @lisp 函数库 example 分类中。

在安装了 @lisp 的 CAD 命令行 输入

1. (fun:e.g. 'example:dcl-subdialog)

(fun:e.g. 'example:dcl-subdialog)

即可直接运行示例。