(defun C:listout()
;inspired by Todd Wessendorf of Alexandria, Virginia

;This code exports the coordinates of  entities.
;Line, LwPolyLine, arc, ellipse, circle etc.
;to a txt file.
;For tutorial purpose, the full entity list is dumped on the command line for you to become familiar with - where the coordianets are, the entity type, layer, color etc.

;open a text file to append  exports -you can write full path
  (setq out (open "listout.txt" "a"))
(setq Suzy (ssget))
  (setq Suzilen (sslength Suzy))
  (setq Sneaky 0)
  (while (< Sneaky Suzilen)
    (setq EDNA (ssname Suzy Sneaky))
    (setq EDDY (entget EDNA))
    (print (+ 1 Sneaky))(Princ "\nEDDY ... ")
    (print EDDY)
       
    (princ "\n");new line
    (princ (LIST(dxf 0 EDDY)))
    (princ)       
    ;now out to file
    (princ "\n\"(" out)
    (princ (LIST(dxf 0 EDDY)) out)
    (princ)
    (setq Sneaky (+ 1 Sneaky))
    (SETQ typ (dxf 0 EDDY))
        (cond
           ((= typ "LWPOLYLINE") (exportMpoints EDDY))
           (t (exportPoints EDDY))
       )
  
  );end while
(close out)
  (print "Where did that txt file go?...")
  (print (findfile "MyEntities.txt"))
  (princ)
)
;
(defun dxf (n ed) (cdr (assoc n ed)))
;
(defun exportpoints(EDDY)

  ;to see on command line
  (if (dxf 10 EDDY)(princ (dxf 10 EDDY)))
  (if (dxf 11 EDDY)(princ (dxf 11 EDDY)))
  ;now same thing to append to file
  (if (dxf 10 EDDY)(princ (dxf 10 EDDY) out))
  (if (dxf 11 EDDY)(princ (dxf 11 EDDY) out))
  (princ ")\"" out)
  (princ)
  )
;
(defun exportMpoints(ShortEDDY)
(while (setq ShortEDDY (member (assoc 10 ShortEDDY) ShortEDDY))
    (princ (dxf 10 ShortEDDY))
      ;now append to file
      (princ (dxf 10 ShortEDDY) out)
    (setq ShortEddy (cdr ShortEddy))
)
  (princ ")\"" out)
  (princ)
)
;Homework - see AutoLisp helpfile (type VLIDE on Acad Command line) for
;read, read-line, entmake, entmod
;to write the reverse function that makes entities from coords in txt file.
;debug and correct the following. String lines are to be read as or made lists
;to use in entmake
(defun C:imPoint()
  (setq in (open "MyEntities.txt" "r"))
  (while (setq myEnt (read-line in))
    (princ "\n")
    (princ myEnt)
  ;entmake
  ;entmod
  );
(close in)
  (princ)
)