API提供四种“防假死”（状态栏、命令行、标题行、对话框）进度条

newer · 发表于 2019-1-13 20:17:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

使用“进程监控”技术，防止ACAD长循环过程中“假死” （普通的打印显示进度语句不反应）情况。

一、状态栏进度条

进度条（状态栏）演示.gif

(defun C:PROGRESS1 ( / )
(xdrx_ui_prgbar "Command PROGRESS1:" 1000 0.5)
(repeat 1000
(xdrx_ui_prgbar T)
(xdrx_mdelay 10)
)
(xdrx_ui_prgbar)
(princ)
)

二、命令行文字进度条

进度条（命令行）演示.gif

;;------------------------------------------------
;; Cammand line xdrx_ui_prgbar
;;------------------------------------------------
(defun C:PROGRESS2 ( / )
(xdrx_ui_prgcmdbar "\nCommand PROGRESS2: " 1000 0.5)
(repeat 1000
(xdrx_ui_prgcmdbar T) (princ)
(xdrx_mdelay 10)
)
(xdrx_ui_prgcmdbar)
(princ " Ready!")
(princ)
)

三、左上角标题栏进度条

进度条（标题栏）演示.gif

;;-----------------------------------------------
;; Titlebar xdrx_ui_prgtitlebar
;;-----------------------------------------------
(defun C:PROGRESS3 ( / )
(xdrx_ui_prgtitlebar "Command PROGRESS3: " 1000 0.5)
(repeat 1000
(xdrx_ui_prgtitlebar T)
(xdrx_mdelay 10)
)
(xdrx_ui_prgtitlebar)
(princ)
)

四、非模式对话框进度条（三种位置：绘图窗口的上、中、下、两种方式：带标题栏和不带标题栏）

进度条（对话框）演示.gif

三种位置：

(xdrx_ui_prgdlgbar "Command PROGRESS4: " 1000 0.5 "Up")

搜狗截图20190113200111.png

(xdrx_ui_prgdlgbar "Command PROGRESS4: " 1000 0.5 "Center")

搜狗截图20190113200211.png

(xdrx_ui_prgdlgbar "Command PROGRESS4: " 1000 0.5 "Down")

搜狗截图20190113195923.png

带标题栏（位置中间）
(xdrx_ui_prgdlgbar "Command PROGRESS4: " 1000 0.5 "Title")

搜狗截图20190113200306.png

;;-----------------------------------------------
;; Modeless xdrx_ui_prgdlgbar
;;-----------------------------------------------
(defun C:PROGRESS4 ( / )
(xdrx_ui_prgdlgbar "Command PROGRESS4: " 1000 0.5 "Title")
(repeat 1000
(xdrx_ui_prgdlgbar T)
(xdrx_mdelay 10)
)
(xdrx_ui_prgdlgbar)
(princ)
)

zhystar · 发表于 2019-1-14 07:47:18

谢谢楼主分享知识

coverne · 发表于 2019-1-14 09:36:28

感谢感谢，试试看

测完收工 · 发表于 2020-10-14 07:55:21

谢谢楼主分享知识

pmq · 发表于 2024-1-18 16:47:40

用 .net 怎么做这种进度条

pmq · 发表于 2024-1-18 17:15:07

<CommandMethod("CADProgressBar")>
      Public Sub CADProgressBar()
         Dim progressmaxvalue As Integer = 100
         Dim progressMeter As ProgressMeter = New ProgressMeter()
         progressMeter.Start("正在计算，请稍候...")
         progressMeter.SetLimit(progressmaxvalue)

         For i As Integer = 0 To progressmaxvalue
            System.Threading.Thread.Sleep(5)
            progressMeter.MeterProgress()
         Next

         progressMeter.[Stop]()
      End Sub

账号		自动登录	找回密码
密码			立即注册

[发布] API提供四种“防假死”（状态栏、命令行、标题行、对话框）进度条

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。