---

Hallo! Wir haben eine grosse BG mit vielen UnterBGs. In den UnterBGs haben wir jeweils eine Ansicht erstellt namens "OhneFensterscheiben", die dann alle Fensterscheiben ausgeblendet hat. Nun wollen wir bei allen UnterBGs diese "OhneFensterscheiben" aktivieren, ohne dies bei jeder per RMB->Darstellung->Konstruktionsansichtsdarstellung->Haken bei Assoziativ->OK. Es haben nicht alle UnterBGs diese Ansicht, daher sollte der Code dies einfach ignorieren. Gibt es da einen kleinen iLogic Code für soetwas? Danke

[Diese Nachricht wurde von iogurt am 23. Mai. 2023 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Probier mal, ob das funktioniert. Es werden keine Anordnungen von Baugruppen berüksichtigt.

Code:

---

Sub Main
Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oAssCompDef As AssemblyComponentDefinition = oAssDoc.ComponentDefinition

TraverseOccs(oAssCompDef.Occurrences )
End Sub

Private Sub TraverseOccs(ByVal oOccs As ComponentOccurrences)
Dim oOcc As ComponentOccurrence
For Each oOcc In oOccs
If oOcc.SubOccurrences.Count>0 Then
TraverseOccs(oOcc.SubOccurrences)
End If

Try
If oOcc.DefinitionDocumentType=DocumentTypeEnum.kAssemblyDocumentObject Then
'oOcc.SetDesignViewRepresentation("Standard")
oOcc.SetDesignViewRepresentation("OhneFensterscheiben")
End If
Catch ex As Exception
MsgBox(ex.Message )
End Try
Next

End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmm, retourniert unendlich viele "Unbekannter Fehler (Ausnahme von HRESULT: 0x80004005 (E_FAIL))". Muss dann Inventor per Task Manager abwürgen.

Geht der Code in alle UnterBGs von UnterBGs von UnterBGs.... usw? Ich bräuchte nur die erste Stufe, UnterBGs, die direkt in der OberBG sind.

[Diese Nachricht wurde von iogurt am 23. Mai. 2023 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Hups, vergessen die Meldung im Fehlerfall zu deaktivieren. Die war eigentlich nur zum Testen.
neuer Versuch ohne Rekursion:

Code:

---

Sub Main
Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oAssCompDef As AssemblyComponentDefinition = oAssDoc.ComponentDefinition

Dim oOcc As ComponentOccurrence
For Each oOcc In oAssCompDef.Occurrences
Try
If oOcc.DefinitionDocumentType=DocumentTypeEnum.kAssemblyDocumentObject Then
'Occ.SetDesignViewRepresentation("Standard")
oOcc.SetDesignViewRepresentation("OhneFensterscheiben")
End If
Catch ex As Exception
End Try
Next
End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Ralf, funktioniert super! Wäre es auf einfache Weise noch möglich, den "Assoziativ" Haken zu setzen? Falls nicht, macht nichts 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Ergänz mal die Zeile so:

Code:

---

oOcc.SetDesignViewRepresentation("OhneFensterscheiben",,True)

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Perfekt, funktioniert! Danke Ralf 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP