ProgressDlg Calls

[Sam Jones]

Can anyone point me to instruction, examples of how to use the ProgressDlg calls?  The Function Reference is unhelpful.

 

Sam

 

[MullinRJ]

Sam,

   When I get home tonight I'll post an example of a script I wrote. It took me a long time to figure out how to set it up. Hopefully I can remember how I got it running. It is very unintuitive, but it does work.

 

Raymond

[Sam Jones]

Thank you, Obiwan!

[twk]

There is this documentation:

 

http://developer.vectorworks.net/index.php/VS:Progress_Dialog

 

Which still goes over my head..

[MullinRJ]

Hi Sam,

   Here's a script that works to move the progress bar 10 times, but does nothing useful. I split the process into 4 segments representing different portions of the progress bar (10%, 30%, 50% and 10%) each with 10% steps, though a simple process would have one segment of 100% with ten 10% steps. If you have questions, fire back. I'm too tired to go into any more detail right now.

 

Have fun,

Raymond

 

PROCEDURE xxx;
{ Linear script showing how to move the Progress Bar 10 times. }
{ The "WAITs" simulate a longer process taking place. }
{ 2 Nov 2017 - Raymond Mullin }
BEGIN
	ProgressDlgOpen ('Progress Bar Demo', False);
	ProgressDlgSetMeter ('REACTANCE (%):');
	ProgressDlgSetTopMsg ('CAUTION!   HIGH  IMPEDANCE!');
	ProgressDlgSetBotMsg ('RESISTANCE IS REDUNDANT!') ;
	
	ProgressDlgYield (0);		{ start at 0% }
	wait(1);

	ProgressDlgStart(10, 1);	{ first 10% }
	ProgressDlgYield (1);		{ Increment the progress bar }
	wait(1);
	
	ProgressDlgStart(30, 3);	{ next 30% }
	ProgressDlgYield (1);
	wait(1);
	ProgressDlgYield (1);
	wait(1);
	ProgressDlgYield (1);
	wait(1);

	ProgressDlgStart(50, 5);	{ next 50% }
	ProgressDlgYield (1);
	wait(1);
	ProgressDlgYield (1);
	wait(1);
	ProgressDlgYield (1);
	wait(1);
	ProgressDlgYield (1);
	wait(1);
	ProgressDlgYield (1);
	wait(1);

	ProgressDlgSetTopMsg ('THE');
	ProgressDlgSetBotMsg ('END') ;
	
	ProgressDlgStart(10, 1);	{ last 10% }
	ProgressDlgYield (1);
	wait(1);

	{ Next two lines not needed in VW 2017 & earlier }
	ProgressDlgStart(0, 0);		
	ProgressDlgYield (0);
	
	wait(3);			{ Wait, so you can read last screen }

	ProgressDlgEnd;
	ProgressDlgClose;
END;
Run(xxx);

 

[MullinRJ]

Sam,

   Was this of any help to you? Have you tried it yet? No hurry, just curious.

 

Raymond

[Sam Jones]

Yes it was as was the example that twk pointed me to.  However, I was not able to determine how to fit which indices in my process would be fit into the ProgressDlgStart() and ProgressDlgYield().  I'm sure continued experimentation would have yielded an answer, but during the experimentation that I did, I found a solution that did not involve a progress bar, so I moved on.

 

Again many thanks.