Modifying Bulk Stake Objects

[AKieran]

I have created 1000+ stake objects but I have put the Z value as 10x smaller than needed e.g. 60m instead of 600m. Is there any way I can bulk re-value these by a factor of 10?

 

[Pat Stanford]

Best way is probably a script, but I don't have time do write it for you this morning.  Maybe tomorrow if someone else does not beat me to it.

 

 

[michaelk]

Give this a try:

 

(Try on a duplicate file first!!!!! 🤪)

 

PROCEDURE Test;

VAR
	h1 : HANDLE;
	
	
PROCEDURE X10 (h:HANDLE);
VAR
	Z1, Z2,
	xx,yy :REAL;

BEGIN

	Get3DCntr(h,xx,yy,Z1);

	Z2 := (Z1*10)-Z1;
	
	Move3DObj(h,0,0,Z2);
	ResetObject(h);

END;
	
BEGIN

	ForEachObject(X10,((PON='Stake Object')));

END;	



RUN(Test);

 

Stake Height X 10.vwx

[michaelk]

Stake objects are unusual.  They return a ZCOORDINATE in a worksheet but not in VS.

[Pat Stanford]

I think I figured that out also back in 2020.  The following script creates the Stake from a 3D Loci data but the setting of the Z value is a separate step than the Stake creation.  Not tested in 2024, but it compiles.

 

Procedure StakesFrom3DLoci;
{Inserts a symbol at the X/Y/Z location of each 3D loci on the active layer}

{© 2020,2008, Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed unde the GNU Lesser General Public License}

Var		H1,H2:Handle;
		X1,Y1,Z1:Real;
		N1,N2:Integer;


Begin
	H1:=FActLayer;
	While H1 <> nil do
		Begin
			If GetType(H1) = 9 then
				Begin
					GetLocus3D(H1,X1,Y1,Z1);
					Symbol('Your Symbol Name Here',X1,Y1,0);
					H2:=LNewObj;
					Move3DObj(H2,0,0,Z1);
					H1:=NextObj(H1);
				End
			else
				Begin
					H1:=NextObj(H1);
				End;
		End;
End;

Run(StakesFrom3DLoci);

 

[Scott Lebsack]

If the scripts don't work...

You could create a worksheet with the data necessary (match a surveyor's point file) export the data to excel and use a formula in excel to multiply your values, then re-import (Landmark>Survey Input>Import Survey File...)?

 

I'm sorry this is only the basics of a workflow, but it might be somewhere to start?

 

Alternately you can use the Modify>move>Move 3D to move stakes with the same value a given amount. You would need to isolate them in vertical bands for selection to make this work and it could be tedious, but it's something?