Barra de progreso

[Anonymous]

He creado una regla que como abre muchos documentos tarde bastante en terina de ejecutar y me gustaría incluir una barra de progreso que me indicara en que fase de ejecución de la regla se encuentra. ¿Es posible?

[WCrihfield]

Sí. Este es un vínculo a un código de ejemplo para crear una barra de progreso.

https://help.autodesk.com/view/INVNTOR/2021/ENU/?guid=GUID-EB857B0E-B7FF-4CE0-8C04-020CB6702AE0 

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.

If you have time, please... Vote For My IDEAS 💡and Explore My CONTRIBUTIONS

Inventor 2020 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum

[WCrihfield]

El vínculo que proporcioné en esa última publicación mostró una muestra de un código VBA que usa un ProgressBar.
Este es un ejemplo rápido de código de iLogic que crea un ProgressBar para mostrar el progreso de la apertura de cada documento dentro de un directorio.

Si va a intentar ejecutar todo este código (no solo la parte ProgressBar), tendrá que especificar un directorio diferente en la primera línea. La segunda línea intenta obtener los nombres de archivo de cada archivo de pieza dentro del directorio especificado (buscando solo los archivos con extensiones de archivo ".ipt"). A continuación, crea una variable para un documento, para su uso más adelante en el bucle. A continuación, crea un Inventor.ProgressBar (no un System.Windows.Forms.ProgressBar) y establece el número de nombres recuperados como el número de pasos dentro de él. A continuación, especifica un mensaje para el ProgressBar para mostrar cuando se inicia por primera vez (es posible que ni siquiera vea esto, porque mi ir demasiado rápido). A continuación, comienza a recorrer todos los documentos y abrir cada uno. Al hacerlo, también está actualizando el mensaje que se muestra y obligando a la barra de progreso a actualizarse cada vez. Luego, cuando se hace, el mensaje también se actualiza. A continuación, se cierra la barra de progreso.

Dim oDirPath As String = "S:\Engineering\CAD\PART NUMBERS\A - ALUMINUM\"
Dim oFileNames() As String = System.IO.Directory.GetFiles(oDirPath, "*.ipt",IO.SearchOption.TopDirectoryOnly)
Dim oDoc As Document
Dim oPBar As Inventor.ProgressBar = ThisApplication.CreateProgressBar(False, oFileNames.Length - 1, "Progress Bar Sample", True)
oPBar.Message = "Opening Documents..."
For i As Integer = 0 To oFileNames.Length - 1
	oDoc = ThisApplication.Documents.Open(oFileNames(i),False)
	oPBar.Message = "Opening Document " & i & " of " & oSteps
	oPBar.UpdateProgress
	'do what you want with the document here
	'then
	'oDoc.Save
	oDoc.Close() 'or oDoc.ReleaseReference
Next
oPBar.Message = "All Done."
oPBar.Close
ThisApplication.Documents.CloseAll(True)

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.