---

Hallo Pro's

Ich habe eine Frage bezüglich Koordinatenexport im CAD. Wir haben eine 10 km lange 3D-Polylinie, von der wir alle Meter die Koordinaten XYZ und die Punktebezeichnung in eine Excel Tabelle auslesen müssen.
Muss ich die Atribute einzel auf die Punkte kopieren oder gibt es da eine einfachere Lösung? 

Besten Dank für eure Hilfe! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo Buumi,
mit was arbeitet Ihr? AutoCAD pur? Map? Civil 3D?
Habt ihr schon Punktbezeichnungen vergeben oder sollen die erst erzeugt werden.
Unter Civil wäre ein Ansatz das 3D Polygon über messen mit AutoCAD Punkten zu versehen und diese Punkte dann in Civilpunkte umzuwandeln, damit wird auch automatisch eine Punktnummer vergeben.
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Textpad.jpg 3DPoly.txt 3DPoly.xls.txt

Zitat:

---

Original erstellt von buumi:
Hallo Pro's

Ich habe eine Frage bezüglich Koordinatenexport im CAD. Wir haben eine 10 km lange 3D-Polylinie, von der wir alle Meter die Koordinaten XYZ und die Punktebezeichnung in eine Excel Tabelle auslesen müssen.
Muss ich die Atribute einzel auf die Punkte kopieren oder gibt es da eine einfachere Lösung? 

---

Hi,
Vielleicht kannst Du es wie im Anhang machen. In Autocad gibst Du den Befehl _LOGFILEON ein. Das speichert alles was Du z.B. mit _LIST siehst. Den Speicherort kannst Du in den Optionen finden. Dann _LOGFILEOFF, damit's nicht ueberlaueft. Die Datei in Textpad oeffnen (kann man vom Internet holen) und alles markieren, woran man interessiert ist (wie im Bild). Alle markierten Zeilen in die Zwischenablage (kann man mit Textpad mit einem Befehl machen) und dann in eine neue Textpad Datei speichern (im Anhang). Die kann man dann gleich nach Excel holen (auch im Anhang) und bereinigen.
Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi
1. Du könntest "Messen" verwenden um Punkte auf die 3dPL zu setzen und dann diese gegen Blöcke tauschen (gibt´s glaub ich was im Forum)

2. Mit dem LISP kannst du alle Stützpunkte auslesen

Code:

---

;;;Programm um Koordinaten einer 3d-Polylinie in Datei zu schreiben
;;;Programm mit 3pxyz starten

(defun c:3D_PL_XYZ(/ Otyp dxf Objkt VTP LDAT SCHR VTPX VTPY VTPZ)
(defun dxf (num Obj) (cdr (assoc num Obj)) )                        ;;;ASSCODE-PROGRAMM
(while (/= Otyp "AcDb3dPolyline")                                    ;;;So lange bis 3D-Polylinie gewählt
(setq Objkt (car(entsel ":\n3d-Polylinie Wählen:")))                ;;;Objekt wählen
(setq Otyp (cdr (assoc 100 (reverse (entget Objkt)))))              ;;;Elementtyp prüfen
(if (/= Otyp "AcDb3dPolyline") (alert "Keine 3d-Polylinie!"))        ;;;Info wenn keine 3d-Polylinie
)                                                                    ;;;Endwhile
(setq Objkt (entnext Objkt) VTP T)                                  ;;;1.Unterelement

(setq LDAT (strcat "C://Programme//AutoCAD 2004 VZ//Excel//LS_Acad-Excel_3DPL.txt" );end strcat
);end setq                                      ;;;Name der Koordinatendatei
(setq SCHR (open LDAT "w"))                                          ;;;Datei zum schreiben öffnen
(while (/= VTP nil)                                                  ;;;Bis kein Punkt mehr
(setq VTP (dxf 10 (entget Objkt )))                                  ;;;Punkt ermitteln
(setq Objkt (entnext Objkt))                                        ;;;nächstes Unterelement
(if (/= VTP nil) (setq                                              ;;;Wenn Punkt
    VTPX (rtos (car VTP) 2 5)                          ;;;X-Koordinate
    VTPY (rtos (cadr VTP) 2 5)                        ;;;Y-Koordinate
    VTPZ (rtos (last VTP) 2 5) )                      ;;;Z-Koordinate
)                                                                    ;;;Endif
(if (/= VTP nil)(write-line (strcat VTPX " " VTPY " "  VTPZ) SCHR))  ;;;X,Y,Z im Textformat mit 2Kommas
)                                                                    ;;;Endwhile
(close SCHR)                                                        ;;;Datei wieder schliessen
(alert "Koordinaten Ausgelesen")
(princ)
)

---

------------------
"Warum Einfach es geht auch kompliziert". Wie man Fragen richtig stellt
<----- Bitte Systeminfo eintragen, warum siehst du hier
Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP