RLKHydro Posted July 30, 2001 Share Posted July 30, 2001 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 Quote Link to comment
Marc Pitman Posted July 31, 2001 Share Posted July 31, 2001 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} Quote Link to comment
RLKHydro Posted August 29, 2001 Author Share Posted August 29, 2001 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 Quote Link to comment
Guest Frank Brault Posted September 5, 2001 Share Posted September 5, 2001 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} Quote Link to comment
Recommended Posts
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.