| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Koordinaten auf 3d Polylinie (1042 mal gelesen)
|
buumi Mitglied Bauzeichner
Beiträge: 34 Registriert: 07.12.2004 AutoCAD 2009 Intel Core 2 Quad Q9400 4 GB RAM Windows XP SP2
|
erstellt am: 07. Aug. 2007 16:44 <-- editieren / zitieren --> Unities abgeben:
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 |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2799 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2022 Bricscad V11-V23 pro Plateia, Canalis Visual Basic
|
erstellt am: 07. Aug. 2007 17:20 <-- editieren / zitieren --> Unities abgeben: Nur für buumi
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 |
Ex-Mitglied | |
Clayton Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 07.02.2004 AMD Athlon 64X2 5600+, 1GB, Nvidia Quadro Pro FX 1100 Inventor Series 10 Mathcad 13
|
erstellt am: 07. Aug. 2007 18:35 <-- editieren / zitieren --> Unities abgeben: Nur für buumi
Zitat: Original erstellt von buumi: Hallo Pro'sIch 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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 08. Aug. 2007 07:24 <-- editieren / zitieren --> Unities abgeben: Nur für buumi
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 |