Use Progress Meter in VBA AutoCAD

Hello Everyone,

When i was looking for a way to add a ProgressBar control to my program, i came across this thing called "Progress Meter". After few "googlings" it seems to be refering to the blue progress bar that appears at the bottom right of the screen (AutoCAD 2014+) when we use a long command (Saving a File / ScaleListEdit/...).

So i'm asking how could we access to this object via VBA (if it's possible of course).

I also tried to use the "Microsoft ProgressBar Control" but apparently it's not available on 64bits OS.

I know there is the traditional way of making a custome progress bar using a label in a userform and control the length but i just want to know if there any other possibility.

Thanks in advance for your answers ^^

Not VBA, but would something like this help you?
http://through-the-interface.typepad...avascript.html

Kean has a few other posts on various progress bars in his blog over the years too.

Yeah i saw those posts about making a custome Progress Meter, but he's using some foreign languages for me such as VB.NET HTML5...Does it mean that i have reached the wall of VBA where i need other programing languages to climb it? If so i'd like to know if the access to the AutoCAD Progress Meter is possible with Lisp, because that's the next language i'm planning to learn.

Can you use something like this?

Sub progressmeter()
Dim i As Integer
For i = 1 To 100
ThisDrawing.SendCommand "modemacro " & String(i, "|") & vbCr
Next i
ThisDrawing.SendCommand "modemacro ." & vbCr
End Sub

Did you try this code?

Ac2016
In new module:

Code:

---

Option Explicit
Private Declare PtrSafe Function ProgressMeter Lib "accore.dll" Alias "?acedSetStatusBarProgressMeter@@YAHPEB_WHH@Z" _
                (ByVal strCaption As String, ByVal intmin As LongPtr, ByVal intmax As LongPtr) As Boolean
Private Declare PtrSafe Function SetProgBarPos Lib "accore.dll" Alias "?acedSetStatusBarProgressMeterPos@@YAHH@Z" _
                (ByVal intVal As LongPtr) As Boolean
Private Declare PtrSafe Function RestoreStatus Lib "accore.dll" Alias "?acedRestoreStatusBar@@YAXXZ" () As Boolean


Public Function ProgressBarOn(ByVal captionProgressBar As String, ByVal minProgressBar As Long, ByVal maxProgressBar As Long)
 On Error Resume Next
 ProgressMeter StrConv(captionProgressBar, vbUnicode), minProgressBar, maxProgressBar
 Err.Clear
End Function

Public Function ProgressBarOff()
 On Error Resume Next
 RestoreStatus
 Err.Clear
End Function

Public Function ProgressBarRun(ByVal i As Long)
 On Error Resume Next
 SetProgBarPos (i)
 Err.Clear
End Function

Public Sub TestProgressBar()
 Dim i As Long

  ProgressBarOn "Barra de progreso: ", 0, ThisDrawing.ModelSpace.Count * 10
  'ProgressMeter "Barra de progreso: ", 0, ThisDrawing.ModelSpace.Count * 10
  For i = 0 To ThisDrawing.ModelSpace.Count * 10
    i = i + 1
    'ThisDrawing.Utility.Prompt "Numero: " & i

    ProgressBarRun i
    'SetProgBarPos (i)
  Next
  ProgressBarOff
  'RestoreStatus
End Sub

---

Dim ZS As Integer
Dim ZS1P As Integer

Set VL = THISDRAWING.Application.GetInterfaceObject("VL.Application.16")
Set VLF = VL.ActiveDocument.Functions
ss.cont (selection)
ZS = SS.Count

'visible progress in cad
VL.ActiveDocument.Functions.ITEM("acet-ui-progress-init").FUNCALL "Working:", ZS

ZS1P = Int(ZS / 50)
For ZS = 0 To SS.Count - 1
If ZS / ZS1P = Int(ZS / ZS1P) Then VLF.ITEM("acet-ui-progress-safe").FUNCALL (ZS)
NEXT ZS
'close progress
VLF.ITEM("acet-ui-progress-done").FUNCALL