非模式“进度条” 实现函数

newer

该进度条特点：

1、非模式
2、灵活定制位置，大小，是否显示标题框，是否显示当前操作的文本提示字符串
3、最重要的，不会对ACAD的“假死”没反应。

加载 2018.09.23日以后更新的API，带的 晓东通用函数库，即可以使用这个函数。

函数：
(xd::odcl:progress-begin ""  info  1  392 24  pos minLen  maxLen))
上面的变量依次：
""  ----- 如果为空，不显示标题框
info ---  如果为空，不显示文本提示信息
1    ---  一个进度条
392 ---  对话框宽度
24  ---  进度条高度
pos ---  对话框位置， 0- 绘图区左上 1-绘图区右上 2-绘图区右下 3 绘图区左下 4 绘图区中间上部三分之一
minLen   ---- 进度最小值
maxLen  ---- 进度最大值

1. (defun c:tt ()
   
2.   (if (and (setq fns (xdrx_system_selectfolder "选择目录" ""))
   
3.            (setq files (vl-directory-files fns "*.*" 1))
   
4.            (xdrx_initget "0 1 2 3 4 Y N")
   
5.            (setq ye (xdrx_yesorno "\n是否显示文本" 1))
   
6.            (setq pos (getint "\n对话框位置:"))
   
7.            (xdrx_initget)
   
8.       )
   
9.     (progn (setq info (if (= ye 1)
   
10.                         "正则处理"
    
11.                         ""
    
12.                       )
    
13.            )
    
14.            (xd::odcl:progress-begin ""  info  1  392 24  pos 0  (setq len (length files)))
    
15.            (setq i 0)
    
16.            (foreach n files
    
17.              (xd::odcl:progress-setpos1 (1+ i) 1)
    
18.              (xd::odcl:progress-settext (strcat "正在处理:" n))
    
19.              (setq i (1+ i))
    
20.              (xdrx_sleep 1000)
    
21.            )
    
22.            (xd::odcl:progress-end)
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt ()<br />   (if (and (setq fns (xdrx_system_selectfolder "选择目录" ""))<br />            (setq files (vl-directory-files fns "*.*" 1))<br />            (xdrx_initget "0 1 2 3 4 Y N")<br />            (setq ye (xdrx_yesorno "\n是否显示文本" 1))<br />            (setq pos (getint "\n对话框位置:"))<br />            (xdrx_initget)<br />       )<br />     (progn (setq info (if (= ye 1)<br />                         "正则处理"<br />                         ""<br />                       )<br />            )<br />            (xd::odcl:progress-begin ""  info  1  392 24  pos 0  (setq len (length files)))<br />            (setq i 0)<br />            (foreach n files<br />              (xd::odcl:progress-setpos1 (1+ i) 1)<br />              (xd::odcl:progress-settext (strcat "正在处理:" n))<br />              (setq i (1+ i))<br />              (xdrx_sleep 1000)<br />            )<br />            (xd::odcl:progress-end)<br />     )<br />   )<br />   (princ)<br /> )<br />

下面演示了各种形态，各种位置的进度条

tzfcn

这个有点意思。做的不错！

renyonghua2014

版主，这个好，谢谢提供。

cfc123456

这个有点意思。做的不错！

Michael527

lisp也可以实现这种功能？

newer

Michael527 发表于 2018-9-24 15:46
lisp也可以实现这种功能？

当然可以。

myairen

这个有点意思。做的不错！

/db_自贡黄明儒_

做的不错！

/db_自贡黄明儒_

做的不错！