| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: 3d Flächen in linien umwandeln (1648 mal gelesen)
|
Dressler Mitglied technischer Angestellter
Beiträge: 301 Registriert: 19.11.2003 Athlon64 3200+ 2 GB DDR2 NVIDIA Geforce 7600 2x21" CRT Acad 2007
|
erstellt am: 21. Feb. 2006 17:13 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe eine Zeichnung die aus 3d Teilen beststand. Dann habe ich den Volumenkörper geprengt, weil ich Einzelteile mit Ansicht und Seitenansicht zum weiterkonstruieren brauchte. Die explodierten Teile habe ich verarbeitet und mit Flatten con cadwiesel platt gemacht.... soweit ist alles in Ordnung, allerdings habe ich nun lauter 3d Flächen die von der Fräse nicht verarbeitet werden können. Kann man 3d Flächen in Linien, oder polylinien umwandeln?
------------------ Gruß Björn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 21. Feb. 2006 17:23 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
Also wenn es ein Volumenkörper war und du deine Zeichnung mit plaetten bearbeitet hast, dann hast du jetzt keine 3D-Flächen drinnen, sondern Regionen (was ganz was anderes ist...). Diese Regionen kannst du mittels eines simplen auflös in "dumme" Linien zerlegen - danach nochmal plaetten ausführen (wenn du die 3D-information nicht haben willst/brauchst). ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dressler Mitglied technischer Angestellter
Beiträge: 301 Registriert: 19.11.2003 Athlon64 3200+ 2 GB DDR2 NVIDIA Geforce 7600 2x21" CRT Acad 2007
|
erstellt am: 21. Feb. 2006 17:33 <-- editieren / zitieren --> Unities abgeben:
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 21. Feb. 2006 19:20 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
Dressler Mitglied technischer Angestellter
Beiträge: 301 Registriert: 19.11.2003 Athlon64 3200+ 2 GB DDR2 NVIDIA Geforce 7600 2x21" CRT Acad 2007
|
erstellt am: 22. Feb. 2006 06:58 <-- editieren / zitieren --> Unities abgeben:
|
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 04. Apr. 2006 12:09 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 04. Apr. 2006 12:27 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 04. Apr. 2006 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
So sieht das ungefähr immer aus: Befehl: face2lin Convert 3dfaces to Plines or Lines? <Lines>: Select sample 3dface: Nicht eindeutige Antwort, bitte präzisieren... ; Fehler: Funktion abgebrochen SEtzen oder SPerren oder STatus? Ungültiger Optionstitel. SEtzen oder SPerren oder STatus? se Namen des zu aktivierenden Layers eingeben oder <Objekt wählen>: Objekt wählen: Layer "0" wurde zum aktuellen Layer gemacht. Option eingeben [?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer ren/ENtsperren/STatus]: m usw.
LG Meraia
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 04. Apr. 2006 12:41 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 04. Apr. 2006 12:56 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
Erstmal danke schön für die Tips. Sowas hab ich ja noch nie gemacht, aber das Ergebnis ist jetzt das hier: Befehl: face2lin Convert 3dfaces to Plines or Lines? <Lines>: Select sample 3dface: Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe. Delete 3dfaces? <Y>: Unbekannter Befehl "ERASE". Drücken Sie F1-Taste für Hilfe. <Auswahlsatz: 207> Unbekannter Befehl "FACE2LIN". Drücken Sie F1-Taste für Hilfe. 6 3dfaces converted Allerdings sind das jetzt immer noch 3D-Flächen, leider.
LG Meraia
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 04. Apr. 2006 13:18 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
Code:
;Tip1691: FACE2LIN.LSP 3D faces to lines (c)2001, Jeff Foster ;OBJECTIVE*** ;The purpose of this routine is to allow the user to select a group ;of 3dfaces on a selected layer and convert them to either lines or ;3dpolylines as directed by the user. All 3d information is preserved. ;3dfaces may be retained or erased. ; ;TO RUN*** ;At the command line, type (load "c:/lispdir/face2lin") ;where c:/ is the drive where FACE2LIN.lsp is contained ;where lispdir/ is the directory where FACE2LIN.lsp is contained (Defun C:FACE2LIN () (PREPROCESS) (PROCESS) (POSTPROCESS) ) (Defun PREPROCESS () (setq c-cmd (getvar "cmdecho") c-lyr (getvar "clayer") ) (setvar "cmdecho" 0) (initget 0 "Pline Lines") (setq p-l (getkword "\nConvert 3dfaces to Plines or Lines? <Lines>: ") ) (if (= p-l nil) (setq p-l "Lines") ) (prompt "\n") (princ) ) (Defun PROCESS () (while (= (setq get3dface (car (entsel "\rSelect sample 3dface: "))) nil ) ) (setq 3d-inf (entget get3dface)) (if (/= (cdr (assoc 0 3d-inf)) "3DFACE") (PROCESS) ) (command "_-layer" "_s" (cdr (assoc 8 3d-inf)) "") (setq ss3d (ssget "X" (list (cons 0 "3DFACE") (cons 8 (cdr (assoc 8 3d-inf)))) ) 2del (ssget "X" (list (cons 0 "3DFACE") (cons 8 (cdr (assoc 8 3d-inf)))) ) cnt 0 ) (while (/= (setq sse3d (ssname ss3d 0)) nil) (setq sse3d-inf (entget sse3d) pt1 (cdr (assoc 10 sse3d-inf)) pt2 (cdr (assoc 11 sse3d-inf)) pt3 (cdr (assoc 12 sse3d-inf)) pt4 (cdr (assoc 13 sse3d-inf)) ) (if (= p-l "Lines") (command "_line") (command "_3dpoly") ) (command pt1 pt2 pt3) (if (= (distance pt3 pt4) 0) (command "_C") (command pt4 "_C") ) (setq cnt (+ cnt 1)) (ssdel sse3d ss3d) ) ) (Defun POSTPROCESS () (initget 0 "Yes No") (setq y-n (getkword "\nDelete 3dfaces? <Y>: ")) (if (or (= y-n nil) (= y-n "Yes")) (command "_erase" 2del "") ) (prompt (strcat "\n" (itoa cnt) " 3dfaces converted")) (setvar "cmdecho" c-cmd) (setvar "clayer" c-lyr) (princ) ) ;;;;(C:FACE2LIN)
In der Hoffnung nun alle englischen Befehle internationalisiert zu haben. ------------------ Grüsse Thomas [Diese Nachricht wurde von tunnelbauer am 05. Apr. 2006 editiert.] [Diese Nachricht wurde von tunnelbauer am 05. Apr. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 05. Apr. 2006 07:47 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 05. Apr. 2006 08:08 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
Hi, wenn du uns (mir) nooch verrätst was jetzt noch nicht funktioniert, dann können wir ja gemeinsam eine Lösung finden (ich kann den Fehler nicht ganz ohne deiner Hilfe finden, da ich mit einem englsichen AutoCAd arbeite unsd somit das Tool bei mir läuft). ------------------ Grüsse Thomas [Diese Nachricht wurde von tunnelbauer am 05. Apr. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 05. Apr. 2006 08:17 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
Ok, also, ich habe deinen Text kopiert und ihn im Visual Lisp Editor eingefügt, also den alten Text ersetzt. Das Ergebnis ist: Befehl: _appload Tip1691.lsp erfolgreich geladen. Befehl: Befehl: Befehl: face2lin
Convert 3dfaces to Plines or Lines? <Lines>: Select sample 3dface: Nicht eindeutige Antwort, bitte präzisieren... ; Fehler: Funktion abgebrochen SEtzen oder SPerren oder STatus? Ungültiger Optionstitel. SEtzen oder SPerren oder STatus? se Namen des zu aktivierenden Layers eingeben oder <Objekt wählen>: Objekt wählen: Layer "0" wurde zum aktuellen Layer gemacht. Option eingeben [?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer ren/ENtsperren/STatus]: Also fast wieder so wie vorher. LG Meraia Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 05. Apr. 2006 08:26 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 05. Apr. 2006 08:27 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 05. Apr. 2006 08:44 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
Sorry, tut sich nichts. Befehl: face2lin Convert 3dfaces to Plines or Lines? <Lines>: Select sample 3dface: Nicht eindeutige Antwort, bitte präzisieren... ; Fehler: Funktion abgebrochen SEtzen oder SPerren oder STatus? Ungültiger Optionstitel. SEtzen oder SPerren oder STatus? se Namen des zu aktivierenden Layers eingeben oder <Objekt wählen>: Objekt wählen: Layer "0" wurde zum aktuellen Layer gemacht. Option eingeben [?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer ren/ENtsperren/STatus]: m Namen für neuen Layer eingeben (wird aktueller Layer) <0>: Option eingeben [?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer ren/ENtsperren/STatus]: ? Aufzulistende(n) Layernamen eingeben <*>: Layername Status Farbe Linientyp Linienstärke ------------------ ----------- ------------- ------------ ------------ "0" ein -P 7 (weiß) "CONTINUOUS" Standard Aktueller Layer: "0" Option eingeben [?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer ren/ENtsperren/STatus]: *Abbruch* LG Meraia Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meraia Mitglied technische Zeichnerin
Beiträge: 12 Registriert: 04.11.2004
|
erstellt am: 05. Apr. 2006 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für Dressler
|