Export point coordinates from Autocad to Excel

Export point coordinates from Autocad to Excel::

This tutorial uses a programming language called Lisp to
be loaded in autocad.

First copy this code to a text file then save it as exportPoint.lsp,



(defun c:ptexp (/ file points c i) ;POints to TeXT
  (setq file (open (getfiled "specify output file" "c:/" "TXT" 1) "w"))
  (setq points (ssget) i 0)
  (repeat (sslength points)
    (if (= "POINT" (cdr (assoc 0 (entget (ssname points i)))))
      (setq c (cdr (assoc 10 (entget (ssname points i))))
     i (1+ i)
      )
    )
    (write-line
      (strcat (rtos (car c)) " ; "
       (rtos (cadr c)) " ; "
       (rtos (caddr c))
      ) file)
  )
  (close file)
  (Princ)
)

Then go to autocad with the points that you want to export.
Type "lsp" without the quotation mark.
This will open a dialog box to locate your saved file from the above.
Load the file and you will see a message "Successfully loaded."
Close the dialog window and you will be back on autocad.
Run a command "ptexp" without the quotation mark then press enter.
This will open a dialog for you to locate and specify the filename where you want to save it.
After that on the autocad, it will say 'select objects'.
Select all the points that you want to export then enter.

Now open Microsof Excel and press open.
Change the filter to text files and open your exported file.
he TEXT IMPORT WIZARD will pop up. Select DELIMITED in the first step, click next and select SEMICOLON as delimiters. Click FINISH and the coordinates are on your screen!