Data Export

[RLKHydro]

Help!

I have created a pond design for a client and then created a 3D model from 3D loci which I placed on my contours and gave z values to. At this point we need to go stake this pond on the ground and need data output file of coordinates and elevations. I expect there must be an easy way to do this that I cannot figure out. I also created some 2D x-sections of the pond expecting that perhaps I could retrieve some data from these. Apparently there is no information attached to these either. I have tried to contact tech support 3 times today only to wait on hold for several minutes at my expence and then get cut off. Do you have a 1-800 number I could call so tech support could truely be free? We are supposed to stake this out in just a few days so a quick response would be appreciated.

Valerie McKay

RLK Hydro

[Marc Pitman]

Valerie,

A user provided this vectorscript sometime ago, I wish I could remember his name. It works with 8.5.2, I'm not certain about 9.0.1 and Landmark.

{The script begins below, this is a comment line}

procedure coord;

var

x,y,z:real;

i:integer;

obj:handle;

ofile:string;

begin

obj:=factlayer;

PutFile('Output file', ' ', ofile);

write('X');

tab(1);

write('Y');

tab(1);

writeln('Z');

while obj<>NIL do

begin

i:=GetType(obj);

if (i=9) then begin

GetLocus3D(obj,x,y,z);

write(x);

tab(1);

write(y);

tab(1);

writeln(z);

end;

obj:=nextobj(obj);

end;

close(ofile);

end;

run(coord);

{This comment line ends the script}

[RLKHydro]

Marc,

Thanks so much for your responses every time I am having trouble. Barb has said so many nice things about you I feel like we've met. Hopefully someday we will. I need to try to rewrite this script so that we get pt. no.,y,x,z,desc. instead of x,y,z as that is how it needs to be formatted for download into the total station we should be getting soon! If you have any more suggestions please feel free. I know I'll have more questions.

Thanks again Marc and everyone else who has tried to help.

Val McKay

RLK Hydro

[Guest Frank Brault]

Hi Val,

I modified the script to write 5 fields, with the first ID field and the last desc field creating dummy entries. If you have these field entries associated with the locus points in your drawing, the script can be modified to insert these instead of the static text.

hth,

Frank Brault

Nemetschek N.A.

{The script begins below, this is a comment line}

procedure coord;

var

x,y,z:real;

i:integer;

obj:handle;

ofile:string;

begin

obj:=factlayer;

PutFile('Output file', ' ', ofile);

write('X');

tab(1);

write('Y');

tab(1);

writeln('Z');

while obj<>NIL do

begin

i:=GetType(obj);

if (i=9) then begin

GetLocus3D(obj,x,y,z);

write('<ID>');

tab(1);

write(x);

tab(1);

write(y);

tab(1);

write(z);

tab(1);

writeln('<desc>');

end;

obj:=nextobj(obj);

end;

close(ofile);

end;

run(coord);

{This comment line ends the script}