Jump to content

Hello Community!

This Thursday, October 21st, from 6 pm to 7 pm EDT, we will be performing an update on the Vectorworks Community Board. During this time, the site will be unavailable.

Data Export


RLKHydro

Recommended Posts

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

Link to comment

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}

Link to comment
  • 4 weeks later...

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

Link to comment
  • Vectorworks, Inc Employee

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}

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...