| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| |
 | KISTERS 3DViewStation: 3D-Visualisierung für After Sales, Service und Ersatzteile, eine Pressemitteilung
|
Autor
|
Thema: Absolutes Ebenensystem isolieren (1032 mal gelesen)
|
Herbert Leichtfuss Mitglied
 
 Beiträge: 287 Registriert: 09.01.2001 CASIO FX-50
|
erstellt am: 27. Feb. 2004 15:41 <-- editieren / zitieren --> Unities abgeben:         
Moin, wie kann es sein, dass ich ein Part bekommen habe, in dem die drei Hauptebenen isoliert sind? Wer macht denn sowas? Und vorallem wie und warum? Noch ein schönes Wochenende. Ciao Herbert... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Herbert Leichtfuss Mitglied
 
 Beiträge: 287 Registriert: 09.01.2001 CASIO FX-50
|
erstellt am: 01. Mrz. 2004 16:02 <-- editieren / zitieren --> Unities abgeben:         
|
Ex-Mitglied
|
erstellt am: 04. Mrz. 2004 09:56 <-- editieren / zitieren -->
kannst du das rätsel endlich auflösen?? gruss smf |
Herbert Leichtfuss Mitglied
 
 Beiträge: 287 Registriert: 09.01.2001 CASIO FX-50
|
erstellt am: 04. Mrz. 2004 21:34 <-- editieren / zitieren --> Unities abgeben:         
|
Steffen Hohmann Mitglied
 
 Beiträge: 446 Registriert: 06.03.2002
|
erstellt am: 08. Mrz. 2004 16:35 <-- editieren / zitieren --> Unities abgeben:          Nur für Herbert Leichtfuss
Hallo, und wer glaubt, Hauptebenen lassen sich nicht löschen, der irrt!! Einfach dieses Makro ausführen und weg sind sie. Sub CATMain() Dim oDoc As PartDocument Set oDoc = CATIA.ActiveDocument Dim oHybridFact As HybridShapeFactory Set oHybridFact = oDoc.Part.HybridShapeFactory 'Referenzen auf Hauptebenen setzen und löschen Dim oRef As Reference Set oRef = oDoc.Part.CreateReferenceFromObject(oDoc.Part.OriginElements.PlaneXY) oHybridFact.DeleteObjectForDatum oRef Set oRef = oDoc.Part.CreateReferenceFromObject(oDoc.Part.OriginElements.PlaneYZ) oHybridFact.DeleteObjectForDatum oRef Set oRef = oDoc.Part.CreateReferenceFromObject(oDoc.Part.OriginElements.PlaneZX) oHybridFact.DeleteObjectForDatum oRef 'Und weil es soviel Spaß macht, auch noch den Hauptkörper Set oRef = oDoc.Part.CreateReferenceFromObject(oDoc.Part.MainBody) oHybridFact.DeleteObjectForDatum oRef End Sub BITTE nicht auf Teile anwenden, die ihr noch braucht. Ist dieses Teil einmal in diesem Zustand gespeichert, ist es unbrauchbar. Und ich bin nicht Schuld, wenn es jetzt überall auf dieser Welt CATParts ohne Hauptebenen und Hauptkörper gibt, schließlich muß jeder wissen, was er macht und gezwungen wurde keiner.
Gruss Steffen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Herbert Leichtfuss Mitglied
 
 Beiträge: 287 Registriert: 09.01.2001 CASIO FX-50
|
erstellt am: 10. Mrz. 2004 11:08 <-- editieren / zitieren --> Unities abgeben:         
|
Steffen Hohmann Mitglied
 
 Beiträge: 446 Registriert: 06.03.2002
|
erstellt am: 10. Mrz. 2004 11:16 <-- editieren / zitieren --> Unities abgeben:          Nur für Herbert Leichtfuss
|
bloedefeld Mitglied Dipl.- Ing.

 Beiträge: 94 Registriert: 13.08.2002
|
erstellt am: 16. Mrz. 2004 14:03 <-- editieren / zitieren --> Unities abgeben:          Nur für Herbert Leichtfuss
|
Steffen Hohmann Mitglied
 
 Beiträge: 446 Registriert: 06.03.2002
|
erstellt am: 21. Jul. 2004 14:43 <-- editieren / zitieren --> Unities abgeben:          Nur für Herbert Leichtfuss
|