Mit Unterstützung durch:
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen >
Beiträge: 11Registriert: 18.06.2007
Gruß
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Beiträge: 12114Registriert: 30.11.2006
CATIA V5R19
Versuch es mal hiermit:
Code:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.Selectionselection1.Search "('Assembly Design'.Teil.Sichtbarkeit!=Sichtbar + 'Assembly Design'.Product.Sichtbarkeit!=Sichtbar);Alle"Set visPropertySet = selection1.VisProperties visPropertySet.SetShow 0End Sub
Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocument
Dim selection1 As SelectionSet selection1 = productDocument1.Selection
selection1.Search "('Assembly Design'.Teil.Sichtbarkeit!=Sichtbar + 'Assembly Design'.Product.Sichtbarkeit!=Sichtbar);Alle"Set visPropertySet = selection1.VisProperties visPropertySet.SetShow 0
End Sub
GrußBernd
------------------Warum einfach, wenn es auch kompliziert geht.
Anzeige.:X
Anzeige: (Infos zum Werbeplatz >>)
|
(c)2025 CAD.de | Impressum | Datenschutz