Lisp: coordinates of points to excel sheet (+point number)

Hello,

As a rocky acad 2009 (civil) user the Lisp command is new to me and a big challenge.

My job asks me to find the coordinates of points. The image has like 200 points, and I know more images like this are coming. Sofar I managed to match the picture with the drawing (correlate - match) and rotate the drawing (dview twist) so I can read the numbers of the points without getting a headache.

Now I have to look up the coordinates of each point. Of course I can go with the cursor the the point, write down the XY coordinates on a paper, scan it in and send it to the office. Pretty much of a job! There must be a easier way. Is Lisp a solution?

That would be: right click on the point, have the possibillity to fill in the point number; and the XYcoordinates, with the point number, are written to an excel sheet.

I googled a bit but as far I could find people use the other way around only: excel coordinates to a drawing.

Who knows a Lisp what can do this, or can someone help me out how to write a lisp like this?

Thanks,

Jan

the points are in a DWG right?

I'd use Data Extraction for this (under Tools). Explore it a bit, I think it's pretty self-explanatory but if any troubles, please come back.

The problem I see is how to match the coordinates with the points. Do the Points have some kind of identification number attached to them, or are they just points?

I have a lisp which prints out coordinates as MText of points that I have, I have to select all the points though. hmm....might have one that prints all coordinates of all points in one go, if your're interested?

From the Civil 3D menu...

Points > Import/Export Points > Export Points

If the points are plain autocad points and not Civil 3D points you'll need to convert them first.

Points > Utilities > Convert from Autocad Points

>janwillem89 Try it

If something will be not clear, I shall try to comment later.

In the text in the basic comment in Russian. It is possible to take advantage Online translator: http://www.online-translator.com/Default.aspx?prmtlang=en

Export of coordinates of the specified points, the chosen objects: points, blocks, polylines, splines in a text file or Excel.

Text file — txt, or csv.

A rounding off of coordinates according to current adjustments of a command _UNITS (LUPREC system variable)

3 commands Are certain

COOR - export of coordinates

COORN-export of coordinates with numbering. Numbers of points are drawn by the text on the current layer, the current style, current height (TEXTSIZE)

COORT-export of coordinates with numbering where number considers the text nearest to a point

New version see post #12

coorN.zip

Could anyone please add a command to draw each POINT as well when using COORN. Thanks you

...And making numbers can be like 5, 10, 15...

Thanks

>...

3 commands Are certain

COOR - export of coordinates

COORN-export of coordinates with numbering. Numbers of points are drawn by the text on the current layer, the current style, current height (TEXTSIZE)

COORT-export of coordinates with numbering where number considers the text nearest to a point

Thank to command COORN, I can make a file of coordinates. After changing Z value, I am finding a LISP to draw lines/Pline back in CAD with points & ID marks beside.

Any help is greatly appreciated.

Could anyone please add a command to draw each POINT as well when using COORN. Thanks you

...And making numbers can be like 5, 10, 15...

Thanks

Try it. Add new command CoorNP-Coordinates + Numbers + Points. Draw points with current value of PDMODE and PDSIZE.

Add to command CoorN and CoorNP Increment of number

New version see post #12

coorN.zip

Try it. Add new command CoorNP-Coordinates + Numbers + Points. Draw points with current value of PDMODE and PDSIZE.

Add to command CoorN and CoorNP Increment of number

Thank a lot, VVA.

Can you please reset Numbers at middle & perpendicular to Points/Pline.

Text height can be changed as well.

Cheers, PP.

CoorNP.zip

VVA your awesome! that works a bloody treat!

Try it. Add new command CoorNP-Coordinates + Numbers + Points. Draw points with current value of PDMODE and PDSIZE.

Add to command CoorN and CoorNP Increment of number

The command coorNP is great except I can not get the program to write to Excel ! I get the following error.

Save coordinates to [Text file/Excel/Not save] : E

; error: ActiveX Server returned the error: unknown name: UseSystemSeparators

Command:

Did I miss a setting? Save to user select file location does not appear line in save as Text.

can you help me? How to save to Excel?

stevesfr

what version MS OFFICE do you use ? (I did not test with Office 2007)

In any case I have a little changed programs. Now it is possible to keep in a text file csv or txt a format.

How to save to Excel?

stevesfr

you use what version MS OFFICE? (I did not test with Office 2007)

In any case I have a little changed programs. Now it is possible to keep in a text file csv or txt a format.

 

If option Excell does not work, try option Text file (csv a format) and to answer "YES" inquiry "Open text file? [Yes/No] :"

 

PS especially it was not tested, mistakes are possible

Mistakes are possible? I think so. New version will not save file as TXT or CSV....??

My mistake. Load new version from #12. Try again

Perfect now, thanks !!!

I try to use it but it gives me a massage "Unknown command "COOR". Press F1 for help." What I done is Just change download file format from attachment.php to attachment.lsp then I go to aut0cad 2008 tools menu > load application > load file > close .would you tell me what to do?

I try to use it but it gives me a massage...

Wow, I wish my LISPs would give me a massage...

"Unknown command "COOR". Press F1 for help." What I done is Just change download file format from attachment.php to attachment.lsp then I go to aut0cad 2008 tools menu > load application > load file > close .would you tell me what to do?

Make sure you have saved the file as .lsp and that the "Save as Type" Box is set to "All Files".

Still now I couldn’t use ECoor.lsp .Would anyone help me on general steps to follow

maybe it will help: How to use the LISP routines in this archive

Hello,

I would like to extract the coordinates of a polyline with an interval of 2 meters between each point. I looked at the COORN code but I'm not really good at programming.

Can someone help me?

Thank you very much.