Registro de archivos trabajados a Excell

Ver el tema anterior Ver el tema siguiente Ir abajo

Registro de archivos trabajados a Excell

Mensaje por Arq. de la Rosa el Miér Oct 11, 2017 7:28 pm

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

Arq. de la Rosa

Mensajes : 3
Fecha de inscripción : 24/02/2017

Ver perfil de usuario

Volver arriba Ir abajo

Re: Registro de archivos trabajados a Excell

Mensaje por nolo el Jue Oct 12, 2017 7:27 pm

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

nolo

Mensajes : 131
Fecha de inscripción : 17/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Registro de archivos trabajados a Excell

Mensaje por Arq. de la Rosa el Jue Oct 12, 2017 8:55 pm

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)

Arq. de la Rosa

Mensajes : 3
Fecha de inscripción : 24/02/2017

Ver perfil de usuario

Volver arriba Ir abajo

Re: Registro de archivos trabajados a Excell

Mensaje por nolo el Vie Oct 13, 2017 12:22 pm

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

nolo

Mensajes : 131
Fecha de inscripción : 17/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Registro de archivos trabajados a Excell

Mensaje por Arq. de la Rosa Hoy a las 2:39 am

Hola Nolo

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


Saludos

Arq. de la Rosa

Mensajes : 3
Fecha de inscripción : 24/02/2017

Ver perfil de usuario

Volver arriba Ir abajo

Re: Registro de archivos trabajados a Excell

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.