ptwriter

[Dave Baker]

I am a self taught a-cad user.I use the package for opening dwg construction drawings which I then modify by adding such things as offset lines.I also have to co-ordinate these drawings to enable me to retrieve certain point co-ordinates.Iam currently working on a drawing for a soon to start project however I'm experiencing a few problems.I use the lisp programme PT WRITER to retrieve required points but when I open the file the co-ordinates are of a different value as to what are shown on the drawing any help would be appreciated.

[lpseifert]

Make sure you are in Model Space...

Be sure the UCSICON is on and see if you're in the World UCS. If not set the UCS to World and see if the coordinates are correct. If they are not it could be someone has moved/rotated/scaled the drawing. If that is the case you could use the Align command to get it back to the proper coordinate system.

[Dave Baker]

Make sure you are in Model Space...

Be sure the UCSICON is on and see if you're in the World UCS. If not set the UCS to World and see if the coordinates are correct. If they are not it could be someone has moved/rotated/scaled the drawing. If that is the case you could use the Align command to get it back to the proper coordinate system.

 

 

Thanks for fast reply.When I ID each specific point the co-ords are correct,but the pt writer is not recording them as they have been ID'd.I checked if the pt writer worked on a previous drawing and it was fine.

 

 

I then tried pt writing the problem drawing on my friends pc and would you believe works fine.Also is there any way we can alter how co-ords are displayed i.e instead of 200000,can we alter it to 200.000.This would help when transfering data into our setting out instruments.

[eldon]

There are at least three ways of altering mm coordinates to metre coordinates.

 

1. Divide the coordinates in the lisp programme by 0.001.

2. Scale the whole drawing by 0.001.

3. Put the data file into Excel, and divide by 0.001.

[Dave Baker]

There are at least three ways of altering mm coordinates to metre coordinates.

 

1. Divide the coordinates in the lisp programme by 0.001.

2. Scale the whole drawing by 0.001.

3. Put the data file into Excel, and divide by 0.001.

 

 

Sorry to be a pain and probally come across as thick,but how do I divide the co-ords in the lisp file,I appreciate your help as it can literally save us days of manual input of data and also reduce the risk of human error.

[eldon]

I don't know whether the PT WRITER was the lisp posted on this forum, or whether you got it from somwhere else.

 

But you have to be able to read the lisp file as text, not a compiled file. If you have such a file then perhaps you could post it, unless you have the time to learn lisp. You then scan through the file until you get to the instruction to make the coordinates a real number, and slip in a divide by 1000.

 

As an alternative, it is really very simple to scale the whole drawing about the point 0,0 by a factor of 0.001, and then all the coordinates stay the same figures but metre units instead of millimetres.

[Dave Baker]

Thanks for your time, as I said it really is appreciated,I'm about to scale the drawing as you suggested,I have also attached a copy of my PT Writer if you would care to take a look .

ptwriter.lsp

[eldon]

These are the four lines that arrange the data line in the file.

 

(strcat (rtos num) ","

(rtos (cadr (assoc 10 elst))) ","

(rtos (caddr (assoc 10 elst))) ","

(rtos (cadddr (assoc 10 elst)))) file)

 

It appears that your point number is not an integer, but I don't know how much that annoys you. So this is how I would amend your lisp:

 

(strcat (rtos num 2 0) ","

(rtos (/ (cadr (assoc 10 elst)) 1000)) ","

(rtos (/ (caddr (assoc 10 elst)) 1000)) ","

(rtos (/ (cadddr(assoc 10 elst)) 1000))) file)

 

I hope I have got that correct. I expect someone will heap scorn on my head if I have blundered. I have tried to make the point number an integer on the first line, then the next three lines I have divided the Easting, Northing and Level by 1000, before they are turned into a string.

 

I also leave you to actually edit the file, in the hope that you can get used to adapting lisps to work as you want them to

[Dave Baker]

thanks for all your help,it still doesn't work.It's not the fact that it annoys me it's just a pain adding 400 decimal points so that I can convert it into a GSI file in order to transfer it onto my total station.Please don't waste anymore of you time on my account,your help and patience have been very much appreciated.