Home > AutoCAD-AutoDesk > Exportar coordenadas de CAD a txt

Exportar coordenadas de CAD a txt

Asumamos que deseamos exportar puntos de formato CAD, a una lista separada por comas como para cargar a una estación total y hacer un replanteo en sitio.  Anteriormente habíamos visto como importarlos desde excel o txt con AutoCAD y con Microstation, ahora veamos como exportarlos.

Hay diferentes formas de hacerlo, tal como contar las vacas, puedes contar las patas y dividirlas entre cuatro o puedes contar las vacas nada más.  Veamos algunas formas:

1. Haciéndolo con Microstation (dgn a txt)

En el ejemplo, tengo una parcela que tiene cinco vértices, y necesito exportar las coordenadas a un archivo txt.

Para esto, he puesto los puntos en un grosor que sean visibles.  Recordemos que los grosores de linea en Microstation son dinámicos, de modo que se notan de inmediato.

dgn a txt

Primer paso: Activar la herramienta de exportación de coordenadas (si no está activa),  para esto seleccionamos

tools
tool boxes
activamos el último comando (xyz)
luego cerramos el panel y debería haberse activado de esta forma

xyz dgn

Segundo paso: Seleccionar los puntos que queremos exportar, luego seleccionamos el comando «export coordinates», que es la flecha hacia arriba y llenamos las condiciones:exportar coordenadas

-Destino del archivo
-Nombre del archivo
-Orden de las coordenadas
-Unidades primarias
-Decimales
-Separador
-Vista
-Prefijo/sufijo
-Número inicial

El panel te permite elegir las opciones, si solo los dibujos seleccionados (single), los dibujos dentro de un cerco (fence) o todos el archivo (all)

El resultado final es un archivo .txt que puedes abrir desde excel.

En mi caso le he asignado número, marcando el checkbox que está a la derecha

En caso que el archivo ya exista se despliega una ventana que pregunta si quieres reemplazar o agregar (add or append).

txt coordenadasPara identificar cuales son los puntos, microstation te dibuja números en cada punto, con el color, tipo de línea y tamaño de texto que tengas activo.

2. Haciéndolo con AutoCAD

Antes de conocer CivilCAD (Softdesk) usábamos una aplicación DOS que está por allí todavía llamada dxf2csv.  Puedes probarla si te gusta torturarte con la nostalgia, 🙂 también hay algunas aplicaciones «no gratis«, y estoy seguro que debe existir alguna gratis pero en este caso veremos como se hace con Softdesk8, es similar en CivilCAD.

Para que los puntos se hagan visibles, les he cambiado el formato con format/format point/ point style.  Para que para que el grosor de las líneas sea visible hay que activar «Lts», usando un valor menor de 1 hasta que veamos la diferencia.

dwg to txt

Primer paso: Abrir un proyecto o crear uno nuevo

AEC
Softdesk programs (guardar archivo primera vez)
Create project
Asignarle nombre al proyecto, luego ok
Elegimos el número en que empieza la numeración
Lueto ok, luego ok
elegimos «cogo», luego ok

Segundo paso: Ingresar los puntos a las base de datos: para esto, hay diferentes formas, en este caso lo haremos de forma automática: Points / set points / automatic, luego seleccionamos cada línea del polígono.
La señal que fueron ingresados es hacer points / set points / list avaible points.  Debería mostrar +6, lo que significa que ya hay 5 puntos ingresados a la base de datos.

Tercer paso: Exportar los puntos.
Para exportar los puntos hacemos:

-points / import-export points / export points to file
-Seleccionamos el formato de exportación, en este caso PNE (point, northing, easting)
-Elegimos la carpeta destino del archivo y escribimos el nombre
-En la barra de comando elegimos las opciones de exportación (por selección, por rango… en este caso usamos todos, all)
-Listo, se ha ido el archivo, en este caso separado por expacios pero igual se puede abrir con excel

txt autocad

En caso que los puntos se escriban en tamaños demasiado grandes, hay que cambiar las unidades métricas pues por default vienen las inglesa (AEC/setup drawing/unit angles/elegir métric)

En esta ocasión los puntos no tenían elevación, ese tema lo veremos en otro post, cuando hablemos de curvas de nivel.

Toleren mi insistencia, alguien conoce una macro para atocad que sea más simple y gratuita?

Alguien lo hace de otra forma?

18 comentarios

  1. Para eso, requieres CivilCAD o bien Civil3D. Ambos son módulos especializados que trabajan sobre AutoCAD.
    AutoCAD por sí solo no te permite hacer eso.

  2. Gustavo Maquilón

    disculpa por mi iniciación, necesito saber como hago para pasar y/o dibujar cortes o sección en autocad directamente con lectura de altura y distancias ( ancho de vías) cada 20 mt. longitudinales y a la vez me vaya calculando el volumen de los rellenos y excavaciones directamente en autocad

  3. bueno este post esta excelente hay muchas herramientas de apoyo para simplificar los trabajos y también seria bueno apoyarse de civilcad que es muy practico de usar, pero lo importante es conocer el origen de cada concepto

  4. Intenta con esta otra aplicación

    también existe XYZ-DXF que es de lo mejor

  5. francisco javier alanoca

    buenos pasos sigan enseñandonos

  6. Hola kovos, en este post explicamos como hacerlo con Softdesk8. Te comento que no podemos mediante este blog recomendar formas de adquirir software pirateado, en este post mencioné que Vuze funciona para eso, pero es a tu riesgo.

  7. como dibujo las curvas de nivel en Aautocad? como me descargo el softdesk8?

  8. Hola Jorge Luis,

    Primero, en la estación total, exporta los puntos a formato .txt, de preferencia en orden: coordenada x, coordenada y, elevación, descripción.

    luego los abres con Excel, eligiendo el archivo de tipo .txt

    eliges la opción delimitado por comas, para que puedas separar las columnas

    al tenerlos en excel te recomiendo que uses esta herramienta, que exporta de excel a dxf

  9. jorge luis

    necesito los pasos par apoder exportar los puntos de la estacion a excel…Gracias

    Urgente

  10. Bueno Daniel, esta fue la única que pude probar que funciona, es una VBA pero interactua con Excel al vuelo

    http://geoproceso.com/cuadro-de-rumbos-y-distancias-en-excel-interactivo-con-microstation/

  11. DANIEL BARRIOS

    Te lo agradeceria porfavor. Es que es para mi tesis y solo me falta hacer esto para avanzar y culminar. GRACIAS.

  12. Daniel, dejame buscar una vba que usaba hace algún tiempo y subirla para que la pruebes

    dame este dia

  13. no, esa solo te sirve para importar puntos.
    Buscaré una vba y la voy a subir para que la pruebes

  14. DANIEL BARRIOS

    ¿¿¿¿¿COMO HAGO PARA IMPORTAR LAS COORDENADAS DE EXCEL A MICROSTATION Y QUE ME DIBUJE LAS LINEAS; A TRAVES DE LA APLICACION TOOL BOXER>XYZtext>IMPORT COORDINALES???????

    ES DECIR COMO UTILIZO ESTA APLICACION PARA IMPORTAR???

  15. DANIEL BARRIOS

    BUEN DIA, GALVAREZHN

    Gracias, pero mi caso es este:

    Tengo una base de datos en Excel donde tengo las coordenadas origen y coordenadas destinos, y quiero que dibuje las lineas en autocad. «»»PERO»»» Sin copiar y pegar, sino que la operacion sea automatica, es decir, con una macro o algun codigo para crear la interfaz, o quizaz dentro de AUTOCAD o MICROSTATION EXISTA ESA INTERFAZ que importe los datos de excel AUTOCAD o MICROSTATION si es el caso

    que me sugieres galvarezhn
    ??????????? GRACIAS

  16. Hola Daniel, el mismo procedimiento aqui explicado

    http://geoproceso.com/como-importar-puntos-de-excel-a-autocad/

    te funciona, pero en lugar de activar el comando point
    activas el comando line, o pline
    en lugar de colocarte los puntos te va a dibujar una linea

    saludos

  17. DANIEL BARRIOS

    Soy TESISTA y estoy buscando la manera de como puedo dibujar de forma automatizada lineas en AutoCAD desde una base de datos en Excel, es decir teniendo las coordenadas ORIGEN y las coordenadas DESTINOS

    PERO QUE NO ME DIBUJE PUNTOS SINO LINEAS DIRECTAMENTE ES DECIR UN PUNTO ORIGEN Y VARIOS PUNTOS DESTINOS
    GRACIAS

  18. Este lisp puede hacerlo

    (defun c:txt-xyzs()
    (setq a (ssget)
    n (sslength a)
    i 0
    f (open (getstring «\nfilename: «) «w»)
    )
    (repeat n
    (setq name (ssname a i)
    ent (entget name)
    tp (cdr (assoc 0 ent))
    )

    (if (= «TEXT» tp)
    (if (and (= (cdr (assoc 71 ent)) 0) (= (cdr (assoc 72 ent)) 0))
    (progn
    (setq ip (cdr (assoc 10 ent))
    x (rtos (car ip) 2 2)
    y (rtos (cadr ip) 2 2)
    z (rtos (caddr ip) 2 2)
    s (cdr (assoc 1 ent))
    )
    (princ (strcat x «,» y «,» z «,» s «\n») f)
    );left-justified text
    (progn
    (setq ip (cdr (assoc 11 ent))
    x (rtos (car ip) 2 2)
    y (rtos (cadr ip) 2 2)
    z (rtos (caddr ip) 2 2)
    s (cdr (assoc 1 ent))
    )
    (princ (strcat x «,» y «,» z «,» s «\n») f)
    );other than left-justified
    );if
    );if

    (if (= «MTEXT» tp)
    (progn
    (setq ip (cdr (assoc 10 ent))
    x (rtos (car ip) 2 2)
    y (rtos (cadr ip) 2 2)
    z (rtos (caddr ip) 2 2)
    s (cdr (assoc 1 ent))
    )
    (princ (strcat x «,» y «,» z «,» s «\n») f)
    );left-justified text
    );if mtext

    (setq i (1+ i))
    );repeat
    (close f)
    )

Comentar

Su dirección de correo electrónico no será publicada.

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.