| |
| 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: C3D 2008 nach Microstation V8 (1144 mal gelesen)
|
PetGrue Mitglied Dipl.-Ing. Str.planung
Beiträge: 54 Registriert: 05.07.2007 C3D 2008 SP2 Win XP Pro SP3 Notebook Acer TravelMate 6592 Intel Core Duo 2 GHz, 2GB RAM
|
erstellt am: 05. Jul. 2007 14:03 <-- editieren / zitieren --> Unities abgeben:
Ich möchte DGM's aus C3D nach Microstation exportieren. Leider scheint das letzte, nicht mehr mit Ursprungs-Befehl auflösbare Element eine "3D-Fläche" zu sein, die Microstation nicht interpretieren kann. Was könnte man tun? thx, PG. P.S: Kennt ACAD 2000 auch schon 3D-Flächen? 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 AEC-Collection Plateia, Canalis Visual Basic
|
erstellt am: 05. Jul. 2007 20:36 <-- editieren / zitieren --> Unities abgeben: Nur für PetGrue
Hallo PG, diesmal darf ich wohl als erster herzlich willkommen im Forum schreiben. Zu Deiner Frage: Ich sehe nur die Möglichkeit: Die 3D-Flächen in Regionen (Befehl region) umwandeln. Zu beachten ist die Systemvariable DELOBJ: 0 = ursprüngliche Objekte werden nicht gelöscht 1 = ursprüngliche Objekte werden gelöscht Diese Regionen können mit Ursprung aufgelöst werden. Du erhältst dann ein Netz aus lauter einzelnen Linien mit den entsprechenden Z-Werten. Danach müßte noch eine Zeichnungsbereinigung (mapclean) durchgeführt werden, da die Linien doppelt vorhanden sind. Vielleicht hilft`s weiter. Grüße, Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 Map/Civil 3D 2005-2025, aktuelle SPs.
|
erstellt am: 05. Jul. 2007 21:02 <-- editieren / zitieren --> Unities abgeben: Nur für PetGrue
Zitat: Original erstellt von PetGrue: ... P.S: Kennt ACAD 2000 auch schon 3D-Flächen?
3D Flächen gibt es mindestens seit AutoCAD 9 (das ist jetzt ca. 20 Jahre her). ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 Map/Civil 3D 2005-2025, aktuelle SPs.
|
erstellt am: 05. Jul. 2007 21:06 <-- editieren / zitieren --> Unities abgeben: Nur für PetGrue
Und um 3D-Flächen in Linien umzuwandeln hab ich hier noch ein Lisp-Tool ausgegraben: Code: ; aus Discussion Groups Index > AutoCAD Groups > Visual LISP, AutoLISP and General Customization Issues > explode 3dface ; Reply From: Jürg Menzi ; Date: Jun/12/04 - 16:56 (; CEST) ; angepasst und erweitert von Udo Hübner 12.12.05 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (VL-LOAD-COM)(DEFUN MeExplode3DFace (Obj / AcaDoc CurSpc PntCnt PntLst TmpObj) (SETQ AcaDoc (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)) CurSpc (IF (OR (= (GETVAR "TILEMODE") 1) (> (GETVAR "CVPORT") 1) ) (VLA-GET-MODELSPACE AcaDoc) (VLA-GET-PAPERSPACE AcaDoc) ) PntCnt 0 PntLst (MeTripleUp (VLAX-GET Obj "Coordinates")) PntLst (IF (EQUAL (CADDR PntLst) (CADDDR PntLst) 1E-8) ;3 edges (APPEND (REVERSE (CDR (REVERSE PntLst))) (LIST (CAR PntLst)) ) (APPEND PntLst (LIST (CAR PntLst))) ) ) (REPEAT (1- (LENGTH PntLst)) (SETQ TmpObj (VLAX-INVOKE CurSpc "AddLine" (NTH PntCnt PntLst) (NTH (SETQ PntCnt (1+ PntCnt)) PntLst) ) ) (VLA-PUT-COLOR TmpObj (VLA-GET-COLOR Obj)) (VLA-PUT-LAYER TmpObj (VLA-GET-LAYER Obj)) (VLA-PUT-LINETYPE TmpObj (VLA-GET-LINETYPE Obj)) (VLA-PUT-LINETYPESCALE TmpObj (VLA-GET-LINETYPESCALE Obj)) (VLA-PUT-LINEWEIGHT TmpObj (VLA-GET-LINEWEIGHT Obj)) (VLA-PUT-VISIBLE TmpObj (VLA-GET-VISIBLE Obj)) ) (VLA-DELETE Obj) (PRINC) ) ; ; -- Function MeTripleUp ; Converts a list to a triple point list. ; Arguments [Type]: ; Lst = List to convert, eg. '(1 2 3 4 5 6) [LIST] ; Return [Type]: ; > Converted list '((1 2 3) (4 5 6)) [LIST] ; Notes: ; Credits to Ken Alexander ; (DEFUN MeTripleUp (Lst / RetLst TmpLst) (IF (SETQ TmpLst Lst) (WHILE (SETQ RetLst (CONS (MAPCAR '(LAMBDA (l) (NTH l TmpLst)) '(0 1 2)) RetLst ) TmpLst (CDDDR TmpLst) ) ) ) (REVERSE RetLst) ) ;; Use: ;; (MeExplode3DFace (VLAX-ENAME->VLA-OBJECT (CAR (ENTSEL)))) (DEFUN C:EX3DFLÄCHE () (PROMPT "\n3DFlächen in Ursprung zerlegen:") (IF (SETQ aw (SSGET (LIST (CONS 0 "3DFACE")))) (PROGN (SETQ anz (SSLENGTH aw)) (WHILE (>= (SETQ anz (1- anz)) 0) (MeExplode3DFace (VLAX-ENAME->VLA-OBJECT (SSNAME aw anz))) ) ) ) ) (PROMPT "nBefehl EX3DFLÄCHE steht zur Verfügung.") (PRINC)
------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PetGrue Mitglied Dipl.-Ing. Str.planung
Beiträge: 54 Registriert: 05.07.2007 C3D 2008 SP2 Win XP Pro SP3 Notebook Acer TravelMate 6592 Intel Core Duo 2 GHz, 2GB RAM
|
erstellt am: 06. Jul. 2007 07:13 <-- editieren / zitieren --> Unities abgeben:
Schönen Dank für die Begrüßung und die schnellen Reaktionen. Eigentlich bin ich kein ACAD-Mensch, deshalb kommen Euch vielleicht einige Fragen ein bisschen simpel vor (z.B. nach den 3D-Flächen). Aber manche Sachen findet man eben nicht so leicht allein 'raus. Jedenfalls der Umweg über die Umwandlung in Regionen funktioniert gut und ist ja auch nicht allzu kompliziert. Das Lisp werde ich beizeiten auch 'mal testen. PG. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |