MVCNIS方法：DCL动态编程之进度条

vitalgg

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

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

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

如果 安装了 @lisp,可以直接在CAD中演示

1. ;; 在CAD命令行输入以下代码，即可演示。
   
2. (require 'dcl:*)
   
3. (require 'example:dcl-progressbar)
   
4. (example:dcl-progressbar)
   
5. 
   

复制代码

查看源码：

1. ;; 在CAD命令行输入 以下代码。
   
2. ;; 即可查看演示代码
   
3. (fun:src 'example:dcl-progressbar)

复制代码

1. (defun example:dcl-progressbar (/ dcl-fp dcl-tmp valuebar)
   
2.   "MVCNIS 法: 6 步进行动态 DCL 开发之进度条"  ""  ""
   
3.   (require (quote dcl:*))
   
4.   "1. Model 建立数据模型。"
   
5.   (setq value-bar 0.3)
   
6.   "2. View 建立显示视图。"
   
7.   (dcl:dialog "example")
   
8.   (progn
   
9.     (dcl:progressbar "pbar1" "width=30;fixed_width=true;" t)
   
10.     (dcl:begin-cluster "row" "")
    
11.     (progn
    
12.       (dcl:button "btn1" "进度-" "")
    
13.       (dcl:button "btn2" "进度+" "")
    
14.       (dcl:end-cluster)))
    
15.   (dcl:dialog-end-ok-cancel)
    
16.   "3. Control 创建控制流程"
    
17.   (defun chg-bar (step)
    
18.     (setq value-bar (+ value-bar step))
    
19.     (if (> value-bar 1) (setq value-bar 1)
    
20.       (if (< value-bar 0) (setq value-bar 0)))
    
21.     value-bar)
    
22.   (defun cb-btn1 ()(dcl:set-progressbar "pbar1" (chg-bar -0.1)))
    
23.   (defun cb-btn2 ()(dcl:set-progressbar "pbar1" (chg-bar 0.1)))
    
24.   "4. New 一个新对话框对象。"
    
25.   (dcl:new "example")
    
26.   "5. Init 初始化对话框"
    
27.   (set_tile "title"
    
28.       "dcl-进度条示例")
    
29.   (dcl:set-progressbar "pbar1" value-bar)
    
30.   "6. Show dialog 显示并进行交互"
    
31.   (dcl:show)
    
32.   (princ))

(defun example:dcl-progressbar (/ dcl-fp dcl-tmp valuebar)<br />   "MVCNIS 法: 6 步进行动态 DCL 开发之进度条"  ""  ""<br />   (require (quote dcl:*))<br />   "1. Model 建立数据模型。"<br />   (setq value-bar 0.3)<br />   "2. View 建立显示视图。"<br />   (dcl:dialog "example")<br />   (progn<br />     (dcl:progressbar "pbar1" "width=30;fixed_width=true;" t)<br />     (dcl:begin-cluster "row" "")<br />     (progn<br />       (dcl:button "btn1" "进度-" "")<br />       (dcl:button "btn2" "进度+" "")<br />       (dcl:end-cluster)))<br />   (dcl:dialog-end-ok-cancel)<br />   "3. Control 创建控制流程"<br />   (defun chg-bar (step)<br />     (setq value-bar (+ value-bar step))<br />     (if (> value-bar 1) (setq value-bar 1)<br />       (if (< value-bar 0) (setq value-bar 0)))<br />     value-bar)<br />   (defun cb-btn1 ()(dcl:set-progressbar "pbar1" (chg-bar -0.1)))<br />   (defun cb-btn2 ()(dcl:set-progressbar "pbar1" (chg-bar 0.1)))<br />   "4. New 一个新对话框对象。"<br />   (dcl:new "example")<br />   "5. Init 初始化对话框"<br />   (set_tile "title"<br />       "dcl-进度条示例")<br />   (dcl:set-progressbar "pbar1" value-bar)<br />   "6. Show dialog 显示并进行交互"<br />   (dcl:show)<br />   (princ))

ynhh

谢谢大师的分享
不知大师库中
有没有尺寸驱动的程序啊？

vitalgg

ynhh 发表于 2022-4-20 09:18
谢谢大师的分享
不知大师库中
有没有尺寸驱动的程序啊？

没有这种，尺寸驱动使用环境不同，很难做到统一。

vitalgg

动态 DCL 开发

紫苏炒黄瓜

效果很6
怎么结合程序使用呢？