VBA Drawing ausblenden (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)


	CATIA V5 Grundkurs \| Einsteiger - 5 Std. 15 Min 48

	KISTERS 3DViewStation: Multitalent für Branchen und Nischenmärkte, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: VBA Drawing ausblenden (1070 / mal gelesen)
Azazel1 Mitglied Beiträge: 32 Registriert: 08.09.2014 X5450; 16GB Win 7 SP1 CATIA V5R19 SP9	erstellt am: 04. Aug. 2017 11:53 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, ich versuche aktuell in meinem Drawing einzelne Ansichten aus- & einzublenden. Aktuell bekomme ich nur den Namen der Ansicht herraus. Kann mir hier jemand helfen? Vielen Dank. <html> Sub CATMain() Dim docDrawing As DrawingDocument Dim Selection As Selection Set docDrawing = CATIA.ActiveDocument Dim shSheet As DrawingSheet For Each shSheet In docDrawing.Sheets If Left(shSheet.Name, 3) = "SBR" Then Dim vwView As DrawingView For Each vwView In shSheet.Views If Left(vwView.Name, 1) = "P" Then MsgBox (vwView.Name) End If Next End If Next End Sub </html> Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
bgrittmann Moderator Konstrukteur Beiträge: 12054 Registriert: 30.11.2006 CATIA V5R19	erstellt am: 04. Aug. 2017 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für Azazel1 Servus Die Ansicht selektieren und ausblenden. Siehe zB hier (am Beispiel von Products in einer Baugruppe). Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Randle Mitglied CAD/PLM Consultant Beiträge: 751 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29	erstellt am: 04. Aug. 2017 11:59 <-- editieren / zitieren --> Unities abgeben: Nur für Azazel1 Hallo, hier ungetestet: Code: Sub CATMain() Dim docDrawing As DrawingDocument Dim Selection As Selection Set docDrawing = CATIA.ActiveDocument Set Selection as docDrawing.Selection Dim shSheet As DrawingSheet Selection.Clear For Each shSheet In docDrawing.Sheets If Left(shSheet.Name, 3) = "SBR" Then Dim vwView As DrawingView For Each vwView In shSheet.Views If Left(vwView.Name, 1) = "P" Then Selection.Add vwView Selection.SetShow catVisPropertiesNoShowAttr 'Ausblenden Selection.SetShow catVisPropertiesShowAttr 'Einblenden MsgBox (vwView.Name) End If Next End If Next End Sub Gruß Randle ------------------ Wer für nichts steht, fällt für alles! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)