| | |
 | 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 (3841 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:
|
| | Ingenieur / Anlagenplaner (w/m/d) Fördertechnik | | Als führendes europäisches Beratungs-, Planungs- und Projektmanagementunternehmen bietet Drees & Sommer Lösungen für erfolgreiche Gebäude, renditestarke Portfolios, leistungsfähige Infrastruktur und lebenswerte Städte. In interdisziplinären Teams unterstützen unsere über 5.100 Mitarbeiterinnen und Mitarbeiter an 59 internationalen Standorten Auftraggeber unterschiedlichster Branchen. Bei uns gestalten Sie Ihren individuellen Karriereweg aktiv mit.... | | Anzeige ansehen | Maschinenbau |
|
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 |
Foren auf CAD.de (alle Foren)
| 
- 
