| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: 3D-Fläche in Polylinie (3853 mal gelesen)
|
Peter Tropf Mitglied Konstrukteur
Beiträge: 246 Registriert: 28.06.2003 Windows 7, Inventor 2016
|
erstellt am: 22. Mai. 2006 14:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, habe eine Zeichnung mit vielen 3D-Flächen (und anderen Objekten). Kennt jemand ein Lisp-Tool, das die Koordinaten dieser 3D-Flächen ausliest und jeweils eine 3D-Polylinie auf dem aktuellen Layer erstellt? (Die Zeichnung soll per DXF in ein anderes Programm eingelesen werden, das die Flächen nicht verarbeiten kann). ------------------ Gruß Peter (HERDT-Verlag)
[Diese Nachricht wurde von Peter Tropf am 22. Mai. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 22. Mai. 2006 14:11 <-- editieren / zitieren --> Unities abgeben: Nur für Peter Tropf
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM Inventor AutoCAD 2022, AIP 4-2022 Win 10
|
erstellt am: 22. Mai. 2006 14:35 <-- editieren / zitieren --> Unities abgeben: Nur für Peter Tropf
Ich hab da mal was gemacht: Code:
(defun C:F2P (/ ss os) (PROMPT "\n3DFace to 3DPoly - von www.CAD-Huebner.de 05/2006") (if (< (SETQ os (GETVAR "OSMODE")) 16384) (setvar "OSMODE" (+ os 16384)) ) (SETVAR "cmdecho" 0) (PROMPT "\n3D Flächen wählen:") (setq ss (ssget '((0 . "3DFACE")))) (create_3dpolys ss) (setvar "cmdecho" 1) (setvar "osmode" os) (princ) ) (defun create_3dpolys (ss / cnt p1 p2 p3 p4 cnt elist) (IF ss (progn (setq cnt (sslength ss)) (while (>= (SETQ cnt (1- cnt)) 0) (setq elist (ENTGET (SSNAME ss cnt)) p1 (trans (cdr (assoc 10 elist)) 0 1) p2 (trans (cdr (assoc 11 elist)) 0 1) p3 (trans (cdr (assoc 12 elist)) 0 1) p4 (trans (cdr (assoc 13 elist)) 0 1) ) (if (equal p3 p4) (command "_.3dpoly" p1 p2 p3 "_close") (command "_.3dpoly" p1 p2 p3 p4 "_close") ) ) ) ) )
Viel Spass damit.------------------ Mit freundlichem Gruß Udo Hübner [Diese Nachricht wurde von CAD-Huebner am 22. Mai. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter Tropf Mitglied Konstrukteur
Beiträge: 246 Registriert: 28.06.2003
|
erstellt am: 22. Mai. 2006 15:05 <-- editieren / zitieren --> Unities abgeben:
|
captainfritz Mitglied Bauingenieur/Wasserbau
Beiträge: 270 Registriert: 07.05.2004 AutoCAD 2005/2006/2007 Map, AutoTerrain, bbsoft, Geotools, Windows XP
|
erstellt am: 23. Mai. 2006 09:37 <-- editieren / zitieren --> Unities abgeben: Nur für Peter Tropf
Hi, vor kurzem gab es schon die Frage und wurde mit dem Hinweis auf auf face2lin beantwortet. Ich hängs nochmal an. Falls du es auch in die andere Richtung brauchst (z.B. Arcview TIN Flächen umwandeln, einlesen und diese in 3dfaces ändern) kannst du dich ja melden ------------------ mit CADzerischen Grüßen Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |