Jump to content
Koalbee

Tabulating Pile co-ordinates lisp

Recommended Posts

Koalbee

Does anyone have a lisp routine or script fr this please

 

Thanks in advance guys 8)

Share this post


Link to post
Share on other sites
BIGAL

More info please do you want tables, lines of text (in a box ?), co-ords in blocks etc P N E Z ? copy to excel ?

Share this post


Link to post
Share on other sites
Koalbee

Northings and Eastings in a table would be good

and maybe the ability to copy to Excel too.

 

Thanks

Share this post


Link to post
Share on other sites
eldon

If you do a search for "Point Manager", you will find a very useful lisp by Lee Mac which will do a lot of what you need :D

Share this post


Link to post
Share on other sites
Koalbee

Hi Eldon.

 

Found it, but it doesn't quite do the tabulation within Autocad.

Or maybe, I just can't manage it

 

Thanks

 

Koal

Share this post


Link to post
Share on other sites
eldon

I didn't think that it gave a table, but it did output a coordinate file.

 

Try searching for "Table of Coordinates" in the forum. You should be able to find what you are looking for.

Share this post


Link to post
Share on other sites
BIGAL

heres an old example of xyz in a box

 

                    ;SETOUTBOX.LSP
                   ; program to draw setout details as a co-ord list
                   ; 29/9/04 by alan houston
(setvar "menuecho" 0)
(setvar "SNAPMODE" 0)
(SETQ OLDSNAP (GETVAR "OSMODE"))
(setvar "OSMODE" 0)
(defun xyz ()
 (setq ans "")
 (setq char_found "")
 (while (/= char_found ",")
   (setq char_found (substr new_line x 1))
   (setq x (+ x 1))
   (setq ans (strcat ans char_found))
 )                    ;end while
)                    ;end defun 
(setq setsc (/ (getreal "\nEnter Dwg scale 1: ") 1000.0))
(setq stpt (getpoint "\nPick top left point for details "))
(setq xyzfiles (getfiled "\nENTER CO-ORD File name  " "" "" 4))
(setq fopen (open xyzfiles "R"))
(command "zoom" "E")
(command "zoom" "c" stpt (* setsc 100.0))
(setq pt1 stpt)
(setq txtht (* 2.5 setsc))  ; 2.5mm HIGH LETTERING
(setq num 1)
(setq llen (* 84.0 setsc))
(setq ydiff (* 4.5 setsc))  ; 4.5mm line spacing
(setq stptx (car stpt))
(setq stpty (cadr stpt))

(setq txtpt (list (+ stptx (* 42.0 setsc)) (+ stpty (* 2.0 setsc))))
(command "text" "BC" txtpt txtht "" "xxxxx")

(setq txtpt (list (+ stptx (* 42.0 setsc)) (+ stpty (* 7.0 setsc))))
(command "text" "BC" txtpt txtht "" "%%uSETOUT DETAIL")
(setq pt2 (polar stpt 0.0 llen))
(command "line" stpt pt2 "")        ;draw horizontal line
(setq pt1 (polar stpt 4.7124 (* 5.75 setsc)))
(setq txtpt (polar pt1 0.0 (* 9.0 setsc)))
(command "text" "BC" txtpt (* 3.5 setsc) "" "POINT")
(setq txtpt (polar pt1 0.0 (* 34.0 setsc)))
(command "text" "BC" txtpt (* 3.5 setsc) "" "EASTING")
(setq txtpt (polar pt1 0.0 (* 67.0 setsc)))
(command "text" "BC" txtpt (* 3.5 setsc) "" " NORTHING ")
(setq pt1 (polar stpt 4.7124 (* 8.0 setsc)))
(setq pt2 (polar pt1 0.0 llen))
(command "line" pt1 pt2 "")        ;draw horizontal line
(setq pt1 (polar pt1 4.7124 (* 1.0 setsc)))
(setq pt2 (polar pt1 0.0 llen))
(command "line" pt1 pt2 "")        ;draw horizontal line below above
(setq pt1 (polar pt1 4.7124 (* 1.0 setsc)))
(setq pt2 (polar pt1 0.0 llen))
(command "line" pt1 pt2 "")        ;draw horizontal line below above

(setq pt3 pt1)                ; sets pt to last line position
;(setq pt5 (polar pt3 1.5708 (* 1.0 setsc)))      ; 1 mm above line
(setq pt5 pt3)                ; 0.5 mm above line
(SETQ XX 1)
(while (setq new_line (read-line fopen))
(PRINC XX)
 (setq x 1)
 (setq y 5)
 (xyz)
 (setq ptno ans)            ;pull ptno out
 (xyz)
 (setq easting ans)
 (xyz)
 (setq northing ans)

 (setq pt3 (polar pt3 4.7124 ydiff))
 (setq pt4 (polar pt3 0.0 llen))
 (command "line" pt3 pt4 "")
 (setq pt5 (polar pt5 4.7124 ydiff))
 (setq pt6 (polar pt5 0.0 (* 8.0 setsc)))
 (setq pt7 (polar pt5 0.0 (* 28.0 setsc)))
 (setq pt8 (polar pt5 0.0 (* 58.0 setsc)))
 (command "text" "BL" pt6 txtht "" ptno)
 (command "text" "BL" pt7 txtht "" EASTING)
 (command "text" "BL" pt8 txtht "" NORTHING)
(SETQ XX (+ XX 1))
)                    ; end while
(command "line" stpt pt3 "")
(setq pt3 (polar pt3 0.0 (* 18.0 setsc)))
(setq stpt (polar stpt 0.0 (* 18.0 setsc)))
(command "line" stpt pt3 "")
(setq pt3 (polar pt3 0.0 (* 33.0 setsc)))
(setq stpt (polar stpt 0.0 (* 33.0 setsc)))
(command "line" stpt pt3 "")
(setq pt3 (polar pt3 0.0 (* 33.0 setsc)))
(setq stpt (polar stpt 0.0 (* 33.0 setsc)))
(command "line" stpt pt3 "")
(princ setsc )
(setq pt1  nil
     pt2  nil
     pt3  nil
     pt4  nil
     pt5  nil
     pt6  nil
     pt7  nil
     pt8  nil
     stpt nil
     ans  nil
     SETSC NIL
)
(SETVAR "OSMODE" OLDSNAP)
(princ)

Share this post


Link to post
Share on other sites
Lee Mac
Found it, but it doesn't quite do the tabulation within Autocad.

Or maybe, I just can't manage it

 

I might consider adding that ability to a future version perhaps :)

Share this post


Link to post
Share on other sites

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.   Paste as plain text instead

  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...