Foro de Arquitectura, Diseño y Construcción


    buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Comparte

    l_ad_gonz
    Primeros mensajes
    Primeros mensajes

    Cantidad de envíos : 7
    Edad : 39
    Localización : Catamarca de Argentina
    Empleo /Ocio : Arquitecto
    Fecha de inscripción : 17/02/2009

    buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por l_ad_gonz el Dom Mar 01, 2009 5:23 pm

    Buenos dias a todos en el foro.

    Estoy buscando una rutina lisp adecuada para autocad 2008/9, que pueda leer un archivo de coordenadas de texto (*.txt) y me dibuje dichos puntos en espacio modelo y otra lisp que seleccionando una line o pline del mspace, pase sus coordenadas a un archivo de texto *.txt.

    Gracias de antemano. bounce


    Última edición por l_ad_gonz el Dom Mar 01, 2009 5:25 pm, editado 1 vez (Razón : correccion.)

    prexem
    Administrador
    Administrador

    Cantidad de envíos : 25
    Edad : 51
    Localización : Tucumán - Argentina.
    Empleo /Ocio : Arquitecto Cadista.
    Fecha de inscripción : 10/01/2009

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por prexem el Lun Abr 13, 2009 4:29 pm

    Te posteo una rutina que puede leer archivos de texto *.txt o *.doc con listas de coordenadas como esta:
    122,122,0
    111,111,0
    345,376,0
    656,7876.98,0
    1728.2,32.333,287.98
    El archivo puede estar en la raíz de "C:/" o se lo busca según pida la rutina.


    _________________
    *EL BLOG DE PREXEM: www.prexem.blogspot.com

    Verdad es ver el objeto, Realidad es el objeto, Libertad es conocer el objeto........

    prexem
    Administrador
    Administrador

    Cantidad de envíos : 25
    Edad : 51
    Localización : Tucumán - Argentina.
    Empleo /Ocio : Arquitecto Cadista.
    Fecha de inscripción : 10/01/2009

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por prexem el Lun Abr 13, 2009 4:32 pm

    ;;;Comando "lee-coords" by PREXEM 2009
    ;;;www.prexem.blogspot.com
    ;;;www.arquitecturas.grafbb.com
    ;;;el comando lee coordenadas de puntos de un archivo de texto y hace puntos y una polyline que los une
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


    _________________
    *EL BLOG DE PREXEM: www.prexem.blogspot.com

    Verdad es ver el objeto, Realidad es el objeto, Libertad es conocer el objeto........

    prexem
    Administrador
    Administrador

    Cantidad de envíos : 25
    Edad : 51
    Localización : Tucumán - Argentina.
    Empleo /Ocio : Arquitecto Cadista.
    Fecha de inscripción : 10/01/2009

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por prexem el Lun Abr 13, 2009 4:32 pm

    Código:

    (defun c:lee-coords (/
                         osmant
                 pickant
                 arch
                 lin
                 lista
                 )
      (setq osmant (getvar "osmode"))
      (setvar "osmode" 0)
      (setq pickant (getvar "pickbox"))
      (setvar "pickbox" 0)
      (setq arch (getfiled "*Seleccione archivo de texto*" "c:\\" "txt;doc" 8))
      (setq arch (open arch "r"))
      (while (setq lin (read-line arch))
       (command "_.point" lin)
       (setq lista (cons (getvar "lastpoint") lista))
       )
      (close arch)
      (princ lista)
         (command "_.pline")
      (apply 'command (reverse lista))
      (command "")
      (setvar "osmode" osmant)
      (setvar "pickbox" pickant)
       (princ)
      )


    _________________
    *EL BLOG DE PREXEM: www.prexem.blogspot.com

    Verdad es ver el objeto, Realidad es el objeto, Libertad es conocer el objeto........

    prexem
    Administrador
    Administrador

    Cantidad de envíos : 25
    Edad : 51
    Localización : Tucumán - Argentina.
    Empleo /Ocio : Arquitecto Cadista.
    Fecha de inscripción : 10/01/2009

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por prexem el Lun Abr 13, 2009 4:33 pm

    Cualquier duda preguntar, cuando encuentre la rutina que hace lo inverso la posteo, lo de pasar coordenadas de una polyline a un archivo de texto.  


    _________________
    *EL BLOG DE PREXEM: www.prexem.blogspot.com

    Verdad es ver el objeto, Realidad es el objeto, Libertad es conocer el objeto........

    prexem
    Administrador
    Administrador

    Cantidad de envíos : 25
    Edad : 51
    Localización : Tucumán - Argentina.
    Empleo /Ocio : Arquitecto Cadista.
    Fecha de inscripción : 10/01/2009

    coordenadas de una pline a un archivo de texto

    Mensaje por prexem el Miér Abr 15, 2009 7:35 pm

    Comando "cp2t" lee coordenadas de una polyline indicada en pantalla y pasa sus coordenadas a un archivo de texto, legible por la rutina anterior, link de descarga:
    http://www.badongo.com/file/14477967


    Última edición por prexem el Miér Abr 15, 2009 8:05 pm, editado 1 vez (Razón : aumentar)


    _________________
    *EL BLOG DE PREXEM: www.prexem.blogspot.com

    Verdad es ver el objeto, Realidad es el objeto, Libertad es conocer el objeto........

    prexem
    Administrador
    Administrador

    Cantidad de envíos : 25
    Edad : 51
    Localización : Tucumán - Argentina.
    Empleo /Ocio : Arquitecto Cadista.
    Fecha de inscripción : 10/01/2009

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por prexem el Sáb Abr 18, 2009 10:31 am

    Aqui el codigo de la rutina cp2t:
    Código:
     
    ;;;rutina "cp2t" pasa las coordenadas de una polyline indicada a un archivo de texto
    ;;;by PREXEM 2009
    ;;;www.prexem.blogspot.com
    ;;;www.arquitecturas.grafbb.com
    (defun coordspline2txt (/ errant *error* archiv e
    vla-e v cantlist cont xlist
    ylist linea
    )
    (vl-load-com)
    (defun errcp2t (m) (prompt "\n*fin del comando*"))
    (setq errant *error*
    *error* errcp2t
    )
    (setq archiv (open (getfiled "*Seleccione archivo de texto*"
    "c:\\"
    "txt;doc"
    8
    )
    "a"
    )
    )
    (setq e
    (car
    (entsel
    "\nseleccione una polyline:"
    )
    )
    )
    (if
    (or
    (equal (cdr (assoc 0 (entget e))) "POLYLINE")
    (equal (cdr (assoc 0 (entget e))) "LWPOLYLINE")
    )
    (progn
    (setq vla-e (vlax-ename->vla-object e)
    v (vlax-get vla-e 'coordinates)
    )
    (princ v)
    (setq cantlist (length v))
    (setq cont 0)
    (repeat cantlist
    (setq xlist (nth cont v))
    (setq ylist (nth (1+ cont) v))
    (setq linea (strcat (rtos xlist 2 2) "," (rtos ylist 2 2)))
    (princ linea archiv)
    (princ "\n" archiv)
    (setq cont (+ 2 cont))
    )
    ;;repeat
    )
    ;;progn
    (princ "\n*Ese objeto no es una polyline*")
    )
    ;;if
    (close archiv)
    (setq *error* errant)
    )
    (defun c:cp2t () (coordspline2txt) (princ))
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         


    Última edición por prexem el Sáb Abr 18, 2009 10:33 am, editado 1 vez (Razón : ...........)


    _________________
    *EL BLOG DE PREXEM: www.prexem.blogspot.com

    Verdad es ver el objeto, Realidad es el objeto, Libertad es conocer el objeto........

    l_ad_gonz
    Primeros mensajes
    Primeros mensajes

    Cantidad de envíos : 7
    Edad : 39
    Localización : Catamarca de Argentina
    Empleo /Ocio : Arquitecto
    Fecha de inscripción : 17/02/2009

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por l_ad_gonz el Sáb Abr 18, 2009 4:05 pm

    Las probé a las 2 rutinas, muy buenas, son lo que buscaba, gracias. Very Happy

    Contenido patrocinado

    Re: buscando rutina que lea un *.txt de coordenadas y haga dibujo.

    Mensaje por Contenido patrocinado Hoy a las 10:55 pm


      Fecha y hora actual: Vie Dic 09, 2016 10:55 pm