【通用进度条】2022.5.2更新

LIULISHENG

学习学习，感谢分享

ajunseo

厉害了！
点赞！

ljfzx

其实我一直觉得楼主的品味不错！呵呵！

hf423

紫苏炒黄瓜 发表于 2022-4-26 14:25
相信你可以想到办法的。

(defun HH:rtosr1 (RealNum n / DIMZIN1 SHORTREAL1)
  (setq DimZin1 (getvar "DIMZIN"))
  (setvar "DIMZIN" 0)
  (setq ShortReal1 (rtos RealNum 2 n))
  (setvar "DIMZIN" DimZin1)
  ShortReal1
)

(setq jdtexe (findfile "通用进度条.exe"))
(setq xxjdtxt (findfile "xxjd.txt"))
(setq xxjdsztxt (findfile "xxjdsz.txt"))
(startapp jdtexe);调用exe
(setq n 1)
(setq n1 1)
(setq jdz (/ (length file_list) 100.0))

;The following may be a repeat, a foreach or a while loop

(if (> n jdz);每完成1%时
    (progn
             (setq f (open xxjdtxt "w"))
             (princ (itoa (setq n1 (+ n1 (cond((< jdz 1)(read(HH:rtosr1 (/ 1.0 jdz) 0)))(t 1))))) f)
             (close f)
             (setq n 1)
     )
)

这回20次OK了。
另外想问一问，我是放到批量插图功能里，20张图处理完后，进度条跑完了，但程序接着处理删除图中大量的块，还要卡一会儿，有没有办法最后处理大量块卡着时间也进入进度条？

紫苏炒黄瓜

hf423 发表于 2022-4-26 20:56
(defun HH:rtosr1 (RealNum n / DIMZIN1 SHORTREAL1)
  (setq DimZin1 (getvar "DIMZIN"))
  (setvar " ...

你可以随心所欲的控制xxjd.txt内容，大于等于100才会退出进度条。

sachindkini

学习学习

guosheyang

感谢共享！学习下

jxy308

不耻下问，好好学习

taoyi0727

文字说明在没有图片的情况下要大于220才能正确显示,有图片要比这个数字更大才行
想写个函数来生成xxjdsz.txt文件,生成出来的txt为ANSI格式,然后出来的进度条就乱码了
楼主能再更新下吗?



;;说明:设置进度条
;;参数:title:窗口标题 [str]
;;参数:picture:图片名称 [str]
;;参数:picture-url:图片连接/应用名称 [str]
;;参数:explain:说明 [str]
;;参数:width:窗口宽度 [int/str]
;;参数:height:窗口高度 [int/str]
;;返回:t or nil
;;用法T-set-progress "请稍等..." "" "excel" "测试" 200 0)
;;     (T-set-progress "请稍等..." "1.jpg" "https://www.baidu.com/" "测试" 200 0)
(defun T-set-progress (title picture picture-url explain width height)
        (if (and
                                (or (null title) (= (type title) 'str))
                                (or (null picture) (= (type picture) 'str))
                                (or (null picture-url) (= (type picture-url) 'str))
                                (or (null explain) (= (type explain) 'str))
                                (or (= (type width) 'int) (= (type width) 'str))
                                (or (= (type height) 'int) (= (type height) 'str))
                                (setq path "D:\\桌面\\xxjdsz.txt");固定文件名(要和exe同目录)
                                (setq file (open path "w"))
                        )
                (progn
                        (if title       (write-line title file)         (write-line file ""));窗口标题
                        (if picture     (write-line picture file)       (write-line file ""));图片名称
                        (if explain     (write-line explain file)       (write-line file ""));说明
                        (if picture-url (write-line picture-url file)   (write-line file ""));图片连接/应用名称
                        (if width
                                (cond
                                        ((= (type width) 'int)
                                                (write-line (itoa width) file)
                                        )
                                        ((= (type width) 'str)
                                                (write-line width file)
                                        )
                                )
                        );窗口宽度
                        (if height
                                (cond
                                        ((= (type height) 'int)
                                                (write-line (itoa height) file)
                                        )
                                        ((= (type height) 'str)
                                                (write-line height file)
                                        )
                                )
                        );窗口高度
                        (close file)
                        t
                )
        )
)

ynpxqjlb

学习一下！！