Geofumadas Coordenadas Google Earth, Rutinas lisp, Curvas de nivel, bloques autocad, curso arcgis
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.
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
Segundo paso: Seleccionar los puntos que queremos exportar, luego seleccionamos el comando «export coordinates», que es la flecha hacia arriba y llenamos las condiciones:
-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).
Para 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.
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
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?
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.
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
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
Intenta con esta otra aplicación
también existe XYZ-DXF que es de lo mejor
buenos pasos sigan enseñandonos
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.
como dibujo las curvas de nivel en Aautocad? como me descargo el softdesk8?
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
necesito los pasos par apoder exportar los puntos de la estacion a excel…Gracias
Urgente
Bueno Daniel, esta fue la única que pude probar que funciona, es una VBA pero interactua con Excel al vuelo
https://geoingenieria.org/cuadro-de-rumbos-y-distancias-en-excel-interactivo-con-microstation/
Te lo agradeceria porfavor. Es que es para mi tesis y solo me falta hacer esto para avanzar y culminar. GRACIAS.
Daniel, dejame buscar una vba que usaba hace algún tiempo y subirla para que la pruebes
dame este dia
no, esa solo te sirve para importar puntos.
Buscaré una vba y la voy a subir para que la pruebes
¿¿¿¿¿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???
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
Hola Daniel, el mismo procedimiento aqui explicado
https://geoingenieria.org/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
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
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)
)