Exporta coordenades de CAD a txt
Assumim que desitgem exportar punts de format CAD, a una llista separada per comes com per carregar a una estació total i fer un replantejament en lloc. Anteriorment havíem vist com importar-los des excel o txt amb AutoCAD y amb Microstation, Ara vegem com exportar-los.
Hi ha diferents formes de fer-ho, tal com comptar les vaques, pots comptar les potes i dividir-les entre quatre o pots comptar les vaques res més. Vegem algunes formes:
1. Fent-ho amb Microstation (dgn a txt)
En l'exemple, tinc una parcel·la que té cinc vèrtexs, i necessito exportar les coordenades a un arxiu txt.
Per això, he posat els punts en un gruix que siguin visibles. Recordem que els gruixos de línia en Microstation són dinàmics, de manera que es noten immediatament.
Primer pas: Activa l'eina d'exportació de coordenades (si no està activa), per això vam seleccionar
instruments
tool boxes
activem l'últim comando (xyz)
després tanquem el panell i s'hauria d'haver activat d'aquesta manera
Segon pas: Seleccionar els punts que volem exportar, després seleccionem l'ordre “export coordinates”, que és la fletxa cap amunt i omplim les condicions:
-Destinació de l'arxiu
-Nom de l'arxiu
-Ordre de les coordenades
-Unitats primàries
-Decimales
-Separador
-Vista
-Prefijo / sufix
-Nombre inicial
El panell et permet triar les opcions, si només els dibuixos seleccionats (single), els dibuixos dins d'un cèrcol (fence) o tots l'arxiu (all)
El resultat final és un arxiu .txt que pots obrir des excel.
En el meu cas li he assignat nombre, marcant el checkbox que està a la dreta
En cas que l'arxiu ja existeixi es desplega una finestra que pregunta si vols reemplaçar o afegir (add or append).
Per identificar quins són els punts, MicroStation et dibuixa nombres en cada punt, amb el color, tipus de línia i mida de text que tinguis actiu.
2. Fent-ho amb AutoCAD
Abans de conèixer CivilCAD (Softdesk) fèiem servir una aplicació DOS que està per allà encara trucada dxf2csv. Pots provar-la si t'agrada torturar-te amb la nostàlgia, 🙂 també hi ha algunes aplicacions “no gratis“, i estic segur que n'ha d'existir alguna de gratis però en aquest cas veurem com es fa amb Softdesk8, és similar a CivilCAD.
Perquè els punts es facin visibles, els he canviat el format amb format/format point/point style. Perquè perquè el gruix de les línies sigui visible cal activar “Lts”, usant un valor menor d'1 fins que vegem la diferència.
Primer pas: Obrir un projecte o crear un de nou
AEC
Softdesk programs (guardar arxiu primera vegada)
Create project
Assignar-nom al projecte, després ok
Triem el nombre en què comença la numeració
Lueto ok, després ok
triem “collo”, després ok
Segon pas: Entrada els punts a les base de dades: per això, hi ha diferents maneres, en aquest cas ho farem de forma automàtica: Points / set points / automatic, després vam seleccionar cada línia del polígon.
El senyal que van ser ingressats és fer points / set points / list avaible points. Hauria de mostrar + 6, el que significa que ja hi ha 5 punts ingressats a la base de dades.
Tercer pas: Exportar els punts.
Per exportar els punts fem:
-points / importació i exportació points / export points to file
-Seleccionamos el format d'exportació, en aquest cas PNE (point, northing, Easting)
-Elegimos la carpeta destí de l'arxiu i escrivim el nom
-A la barra de comandament triem les opcions d'exportació (per selecció, per rang ... en aquest cas fem servir tots, all)
Llest, s'ha anat l'arxiu, en aquest cas separat per expacios però igual es pot obrir amb excel
En cas que els punts s'escriguin en mides massa grans, cal canviar les unitats mètriques doncs per default vénen les anglesa (AEC / setup drawing / unit angles / triar Metric)
En aquesta ocasió els punts no tenien elevació, aquest tema el veurem en un altre post, quan parlem de corbes de nivell.
Tolerin la meva insistència, algú coneix una macro per atocad que sigui més simple i gratuïta?
Algú ho fa d'una altra manera?
Per això, requereixes CivilCAD o bé Civil3D. Tots dos són mòduls especialitzats que treballen sobre AutoCAD.
AutoCAD per si sol no et permet fer això.
disculpa per la meva iniciació, necessito saber com faig per passar i / o dibuixar talls o secció en autocad directament amb lectura d'alçada i distàncies (ample de vies) cada 20 mt. longitudinals i alhora em vagi calculant el volum dels farcits i excavacions directament en autocad
bo aquest post aquesta excel·lent hi ha moltes eines de suport per simplificar els treballs i també seria bo recolzar de civilcad que és molt pràctic d'utilitzar, però l'important és conèixer l'origen de cada concepte
intenta amb aquesta altra aplicació
també existeix XYZ-DXF que és del millor
bons passos segueixin ensenyant
Hola kovos, en aquest post expliquem com fer-ho amb Softdesk8. Et comento que no podem mitjançant aquest blog recomanar formes d'adquirir programari piratejat, en aquest post vaig esmentar que Vuze funciona per això, però és al teu risc.
com dibuix les corbes de nivell en Aautocad? com em descàrrec el softdesk8?
Hola Jorge Luis,
Primer, a l'estació total, exporta els punts a format .txt, de preferència en ordre: coordenada x, coordenada i, elevació, vista.
després els obres amb Excel, triant l'arxiu de tipus .txt
tries l'opció delimitat per comes, perquè puguis separar les columnes
a tenir-los en excel et recomano que facis servir aquesta eina, Que exporta d'excel a dxf
necessito els passos parell apoder exportar els punts de l'estació a excel ... Gràcies
Urgent
Bé Daniel, aquesta va ser l'única que vaig poder provar que funciona, és una VBA però interactua amb Excel al vol
http://geofumadas.com/cuadro-de-rumbos-y-distancias-en-excel-interactivo-con-microstation/
T'ho agrairia siusplau. És que és per la meva tesi i només em falta fer això per avançar i culminar. GRÀCIES.
Daniel, dejame buscar una VBA que usava fa algun temps i pujar-la perquè la provis
dóna'm aquest dia
no, aquesta només et serveix per importar punts.
Buscaré 1 VBA i la vaig a pujar perquè la provis
¿¿¿¿¿COM FAIG PER IMPORTAR LES COORDENADES D'EXCEL A MICROSTATION I QUE EM DIBUIXI LES LÍNIES; A TRAVÉS DE L'APLICACION TOOL BOXER> XYZtext> IMPORT COORDINALES ???????
ÉS A DIR COM UTILITZO AQUESTA APLICACIÓ PER A IMPORTAR ???
BON DIA, GALVAREZHN
Gràcies, però el meu cas és aquest:
Tinc una base de dades a Excel on tinc les coordenades origen i coordenades destins, i vull que dibuixi les línies en autocad. “”PERÒ””” Sense copiar i enganxar, sinó que l'operació sigui automàtica, és a dir, amb una macro o algun codi per crear la interfície, o potser dins d'AUTOCAD o MICROSTATION EXISTA AQUESTA INTERFÍCIA que importi les dades d'excel AUTOCAD o MICROSTATION si és el cas
que em suggereixes galvarezhn
??????????? GRÀCIES
Hola Daniel, el mateix procediment aqui explicat
http://geofumadas.com/como-importar-puntos-de-excel-a-autocad/
et funciona, però en lloc d'activar la comanda point
actives la comanda line, o Pline
en lloc de col·locar-te els punts et va a dibuixar una línia
salutacions
Sóc TESISTA i estic buscant la manera de com puc dibuixar de forma automatitzada línies en AutoCAD des d'una base de dades en Excel, és a dir tenint les coordenades ORIGEN i les coordenades DESTINACIONS
PERÒ QUE NO EM DIBUIXI PUNTS SINÓ LÍNIES DIRECTAMENT ÉS A DIR UN PUNT ORIGEN I VARIS PUNTS DESTINACIONS
GRÀCIES
Aquest lisp pot fer-ho
(Defun c: txt-xyzs ()
(Setq a (ssget)
n (sslength a)
i 0
f (open (getstring “\nfilename: “) “w”)
)
(Repeat n
(Setq name (ssname dos inclosos)
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)
i (RTOS (CADR ip) 2 2)
z (RTOS (caddr ip) 2 2)
s (cdr (assoc 1 ent))
)
(princ (strcat x “,” i “,” z “,” s “\n”) f)
); Left-justified text
(progn
(Setq ip (cdr (assoc 11 ent))
x (RTOS (car ip) 2 2)
i (RTOS (CADR ip) 2 2)
z (RTOS (caddr ip) 2 2)
s (cdr (assoc 1 ent))
)
(princ (strcat x “,” i “,” 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)
i (RTOS (CADR ip) 2 2)
z (RTOS (caddr ip) 2 2)
s (cdr (assoc 1 ent))
)
(princ (strcat x “,” i “,” z “,” s “\n”) f)
); Left-justified text
); If mtext
(Setq i (1 + I))
); Repeat
(Close f)
)