Alle Flaechen und Achsenkreuze loeschen/ausblenden ? (Dassault Systemes - PLM Solutions/CATIA V5 Allgemein)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co.

	KISTERS 3DViewStation: Unterstützung für 3D CAD Kollaboration mit Lieferanten, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Alle Flaechen und Achsenkreuze loeschen/ausblenden ? (12943 mal gelesen)
nikolaus10 Mitglied Dipl.Ing. Beiträge: 4 Registriert: 03.05.2005	erstellt am: 16. Mai. 2006 11:01 <-- editieren / zitieren --> Unities abgeben: Hallo Gibt es eine Moeglichkeit durch einen einfachen Befehl/ Makro alle Flaechen und Achsenkreuze auszublenden? Im Partdesign sind es eben pro Bauelement ein Satz. Gibt es eine schnellere Methode als alle einzeln anfassen zu muessen? MFG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
myTea Mitglied Ingenieur Fahrzeugtechnik Beiträge: 1344 Registriert: 22.07.2002 Catia V6 2014	erstellt am: 16. Mai. 2006 11:06 <-- editieren / zitieren --> Unities abgeben: Nur für nikolaus10 Benutz mal die Suche... entweder die Suche hier, oder noch besser gleich die in Catia. Mit der Suche in Catia kannst Du nach allen Achsenkreuzen suchen und die damit selektieren und entweder löschen indem Du "entf" drückst oder ins NoShow stellen. Im Catia: Edit-Search Gruss, Thomas ------------------ www.ibm.com/innovation/de www.supplier-collaboration-center.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
shorty10 Mitglied Konstrukteur, Masch. Bau Beiträge: 16 Registriert: 05.05.2006	erstellt am: 16. Mai. 2006 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für nikolaus10 Achsensysteme ausblenden geht damit: (Im Product) Language="VBSCRIPT" Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = productDocument1.Selection selection1.Search "Typ:Achsensystem;Alle" Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetShow 1 End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
hilbo Mitglied Beiträge: 513 Registriert: 06.01.2005	erstellt am: 16. Mai. 2006 11:11 <-- editieren / zitieren --> Unities abgeben: Nur für nikolaus10 Hallo Nikolaus, im Part Design: Tools / Anzeigen bzw. Verdecken. Hinter dem Pfeil findest Du was Du suchst. Wenn das nicht reicht: Für Product geht dann... Tools / Makro / Makroaufzeichnung starten, dann Bearbeiten / Suchen, im Feld Typ aussuchen was Du suchen willst, und anschließend suchen, auf das Fernglas klicken. Alle gesuchten Elemente werden angezeigt, anschließend Auswählen anklicken und über den Befehl verdecken / anzeigen ausblenden. Makroaufzeichnung beenden nicht vergessen. Gruß hilbo ------------------ Sucht, und Ihr findet! Buddha Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
shorty10 Mitglied Konstrukteur, Masch. Bau Beiträge: 16 Registriert: 05.05.2006	erstellt am: 16. Mai. 2006 11:12 <-- editieren / zitieren --> Unities abgeben: Nur für nikolaus10 Für Ebenen (Falls Du das meintest) tausch einfach Typ:Achsensystem;Alle gegen Typ:Ebenen;Alle aus. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
PSchlebes Mitglied CAD Konstrukteur (Dipl.-Ing.) Beiträge: 50 Registriert: 27.09.2004 PC Typ : DELL Prozessor : Pentium RAM : 6 GB Grafikkarte : NVIDIA Betriebssys.: Windows XP Pro SP3 CAD-System : Catia V5 R17	erstellt am: 16. Mai. 2006 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für nikolaus10 Hallo! Oder Du machst das so: Language="VBSCRIPT" Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = productDocument1.Selection selection1.Search "Typ:Achsensystem;Alle" Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetShow 1 selection1.Search "Typ:Bedingung;Alle" Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetShow 1 selection1.Search "Typ:Ebene;Alle" Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetShow 1 selection1.Search "Typ:Skizze;Alle" Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetShow 1 End Sub Damit kannst Du dann alle störenden Elemente ausblenden. Zum Einblenden musst Du einfach dies "visPropertySet1.SetShow 0" mit einer "0" versehen. ------------------ Mit freundlichen Grüßen, Patrick Schlebes Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)