Reverse stacking order

[RickR]

So how can I reverse the stacking order of a large number of objects. My current project has 74 pages imported from PDF. A wish list item for importing a PDF that way, and waiting x years, is not the best answer.

 

Anybody got a neat trick?

[Pat Stanford]

Try this script.

 

Procedure Reverse_Stack_Order;

{© 2017 Pat Stanford pat@coviana.com}
{Licenced under the LGPL}
{Reverses the stacking order of selected objects}
{Brings all selected objects to the top of the stacking order}

{No Warranty Expressed or Implied. Test for suitability}
{before use on live data. Make backup copies.}
{Avoid caffine and alcohol when using.}
{Excessive amounts of carrots may be bad for your health.}

Var	H1,H2,H3 :Handle;
	N1,N2:		Integer;
	
Begin;

	H1:=FSActLayer;
	H2:=LSActLayer;
	H3:=H1;


	If Count(((VSEL))) >1 then
	Begin
	Repeat
		Begin
			H3:=PrevSObj(H2);
			HMoveForward(H2,True);
			H2:=H3;
		End;
	Until H2=H1;
	HMoveForward(H1,True);
	End;
End;

Run(Reverse_Stack_Order);

 

[RickR]

Wonderful, that is just what I wanted and definitely a keeper.

 

Thank you!