Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
Digitise autocad points 2
- Thread starter ashjun
- Start date
-
1
- #2
Try this lisp routine:
(princ "\nType PTF to start")
(defun c
tf ()
(setq Outfilename (getfiled "File Name for point data" "" "dat" 5))
(setq f1 (open Outfilename "w"))
(princ "\nSelect points to write to file: ")
(while
(setq PickPoint (getpoint "\nNext point: "))
(setq xval (rtos (car PickPoint) 2 4)
yval (rtos (cadr PickPoint) 2 4)
zval (rtos (caddr PickPoint) 2 4)
PtString (strcat xval "," yval "," zval)
)
(write-line PtString f1)
);while
(close f1)
(princ)
)
(princ "\nType PTF to start")
(defun c
tf ()(setq Outfilename (getfiled "File Name for point data" "" "dat" 5))
(setq f1 (open Outfilename "w"))
(princ "\nSelect points to write to file: ")
(while
(setq PickPoint (getpoint "\nNext point: "))
(setq xval (rtos (car PickPoint) 2 4)
yval (rtos (cadr PickPoint) 2 4)
zval (rtos (caddr PickPoint) 2 4)
PtString (strcat xval "," yval "," zval)
)
(write-line PtString f1)
);while
(close f1)
(princ)
)
- Thread starter
- #3
-
1
- #4
More options:
You could copy and paste from the F2 text window .
You could try "LIST"ing the points and then copy and paste.
You could do a DXFOUT for those points and then read the DXF file.
To use CarlB's lisp routine, copy and paste it into Notepad, then save it as "PTF.lsp" to your C:\ folder (quote marks are needed). Now in Autocad, load it from the Tools menu or type (Load"C:/PTF). Now type PTF and see what happens.
You could copy and paste from the F2 text window .
You could try "LIST"ing the points and then copy and paste.
You could do a DXFOUT for those points and then read the DXF file.
To use CarlB's lisp routine, copy and paste it into Notepad, then save it as "PTF.lsp" to your C:\ folder (quote marks are needed). Now in Autocad, load it from the Tools menu or type (Load"C:/PTF). Now type PTF and see what happens.
- Thread starter
- #5
ashjun -
I learned from doing, AutoCAD's built-in help, old AutoCAD manuals that had extended sections on LISP but mostly from looking at other people's code (Cadalyst, Cadence, www) and code that came with AutoCAD. A lot of "Oh - THAT'S how they do that"!!! I also had problems that prompted me to experiment and learn. LISP is a lot like BASIC and I grew up with BASIC so it was an easy transition. I find DIESEL useful for some things, LISP for others, VBA for more complicated stuff and VB6 for the hard stuff. There's gotta be lots of books out there, any one with a list of the commands and their syntax with a few examples and a good index is all you really need. Read one of the CAD magazines, download the LISP stuff and see what it does.
Have fun !!!
I learned from doing, AutoCAD's built-in help, old AutoCAD manuals that had extended sections on LISP but mostly from looking at other people's code (Cadalyst, Cadence, www) and code that came with AutoCAD. A lot of "Oh - THAT'S how they do that"!!! I also had problems that prompted me to experiment and learn. LISP is a lot like BASIC and I grew up with BASIC so it was an easy transition. I find DIESEL useful for some things, LISP for others, VBA for more complicated stuff and VB6 for the hard stuff. There's gotta be lots of books out there, any one with a list of the commands and their syntax with a few examples and a good index is all you really need. Read one of the CAD magazines, download the LISP stuff and see what it does.
Have fun !!!
- Status
Similar threads
- Locked
- Question
