Registro de archivos trabajados a Excell

Buen dia Compañeros

Vengo en su ayuda con un detalle que tengo entre manos, me explico,
Tengo una rutina que me genera un archivo TXT donde llevo el registro de archivos que trabajo
al llamarlo dentro del dibujo solo le agrego una descripción de que estoy realizando con él

Lo que quisiera poder realizar es que en vez de realizarlo en un archivo TXT me lo genere en un Excell

Gracias de antemano

el archivo TXT que se genera consta de tres datos:

Fecha                            Ruta                                                                      Comentario
20171011.113138      S:\02_CONAGUA\DELIMITACION DE CNA\CNA.dwg      NOTA: se reviso existenia de ste archivo

este es el archivo lisp que genera el TXT:

(defun input ()
  (setq time (rtos (getvar "CDATE") 2 6) ;DIAS JULIANOS
      hr (substr time 10 2)                 ;HORAS.
      m  (substr time 12 2)                 ;MINUTOS.
  )
  (setq date (rtos (getvar "CDATE") 2 6)   ;DIAS JULIANOS
PARC (substr date 3 4)
)

 (setq dwg   (STRCAT (GETVAR "DWGPREFIX")(getvar "dwgname"))
   )

   (setq NTS
     (strcat "NOTA: "(getstring 20 "\nNotas: "))
   )
)

(defun writing ()
  (vl-load-com)

(setq mem1 (open (strcat"C:/DLR/" PARC " RUTAS (ARCHIVO PERSONAL).txt") "a")
     txt  (strcat date "   " dwg "   "nts)
)

(WRITE-LINE txt mem1)

 
 
)

(defun C:RUTAP ()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (input)
  (writing)
  (prin1)
)

Estimado de la Rosa, poco te he seguido pero algo he visto de tus rutinas y me parece que tu mismo conoces la respuesta de otros casos, solo que andas un poco oxidado.
Para pasar a excel solo hay que hacer un txt con la extensión .csv (command separate values o algo así) y separar los datos que quieras por celdas con una coma o un ; así que

Código:

(defun writing ()
(setq mem1 (open (strcat"C:/DLR/" PARC " RUTAS (ARCHIVO PERSONAL).csv") "a")
    txt  (strcat date " ,  " dwg " ,  "nts)
)
(WRITE-LINE txt mem1)
(close mem1)  ;; esto faltaba
 )

No lo he probado pero espero no confundirme ....
Un saludo

Hola NOLO

Te agradezco tu comentario, ( y si estoy algo oxidado ja ja ja)
la verdad archivos .CSV si los he utilizado, de hecho si cambias a .XLS te crea el archivo excell pero pasa toda la linea (de los tres datos) en una solo celda.
Mi pregunta va en poder saber la forma de trasladar estos datos directamente de AUTOcad a excell para que quede cada uno de los tres datos en cada celda.
en la columna "A"  hora
en la columna "B" ruta y nombre del archivo
en la columna "C" comentario

Saludos

(gracias por el close mem1, se me había pasado)

Vale, ya lo he probado y por lo que veo lo que te pasa es que tienes el excel castellano y no el sajón, por lo que el separador debe ser el ; y no la coma

Código:

(defun writing ()
(setq mem1 (open (strcat"C:/DLR/" PARC " RUTAS (ARCHIVO PERSONAL).csv") "a")
     txt  (strcat date " ; " dwg " ; "nts)
)
(WRITE-LINE txt mem1)
  (close mem1)
)

Con eso ya se separan por celdas del ancho defecto que tengas, pero no mantienen el formato cuando reparas el ancho y lo vuelves a guardar

Un solución puede ser utilizar la dll excellisp de Bieres http://bierescad.com/#download
Y la otra es hacerse una rutina completa utilizando las funciones (vlax-create-object "Excel.Application") que no termino de dominar pero puede que alguien mas de este foro si lo haga.

Un saludo

Hola Nolo

Gracias por tu tiempo y explicación
estudiare tus consejos para aplicarlos


Saludos