---

Hallo,

ich hab da mal wieder ne Frage:

Gibt es eine Möglichkeit eine Komponentenanordnung zu unterdrücken?
Unsichtbar schalten geht ohne Probleme, nur wenn ich statt "visible"
"suppress" eingebe, dann läuft es nicht mehr und ich bekomme eine Fehlermeldung:  Run-time error '438': Object doesn't Support this property or method.

Code:

---

Private Sub unterdrücken()

Dim oDoc As AssemblyComponentDefinition
Set oDoc = ThisApplication.ActiveDocument.ComponentDefinition

Dim oKompanord As OccurrencePattern
Set oKompanord = oDoc.OccurrencePatterns.Item("Komponentenanordnung 11:1")

oKompanord.Visible = True

End Sub

---

Vielleicht weiß ja jemand eine Möglichkeit, dass es sich doch unterdrücken lässt.

Gruß Chris

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

---

Naja, offensichtlich gibt es keine Möglichkeit, eine Komponentenanordnung direkt zu unterdrücken.
Ich habe es mittlerweile so gelöst, dass ich die Elemente in der Anordnung einzeln unterdrücke.
So geht es ohne Probleme.

Gruß Chris

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

---

So sollte es gehen:

Dim oDoc As AssemblyDocument
oDoc = ThisApplication.ActiveDocument

'reference the pattern in the assembly
Dim oPattern As OccurrencePattern
oPattern = oDoc.ComponentDefinition.OccurrencePatterns.Item("Component Pattern 1:1")
'oPattern = oDoc.ComponentDefinition.OccurrencePatterns.Item(1)

'Unterdrücke das 4. Element
Dim oElement As OccurrencePatternElement
oPattern.OccurrencePatternElements.Item(4).Suppressed=True

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

---

Hallo. Ich wollte nur anmerken, dass das Ganze auch kürzer geht:

Code:

---

ThisApplication.ActiveDocument.ComponentDefinition.OccurrencePatterns.Item("Component Pattern 1:1").OccurrencePatternElements.ForEach(Sub(x) x.Suppressed=True)

---

Oder als schöne Funktion:

Code:

---

''' <summary>
''' Unterdrückt die angegebene Komponentengruppe und gibt im Erfolgsfall True zurück.
''' </summary>
''' <param="doc">Dokument, in dem die Komponentengruppe unterdrückt werden soll.</param>
''' <param="name">Name der zu unterdrückenden Komponentengruppe</param>
Public Function SuppressComponentgroup(doc As AssemblyDocument, name$) As Boolean
    If Not doc.ComponentDefinition.OccurrencePatterns.Contains(name) Then Return False
    doc.ComponentDefinition.OccurrencePatterns(name).OccurrencePatternElements.ForEach(Sub(x) x.Suppressed=True)
    Return True
End Function

---

PS: Ungetestet. Falls es sich nicht um IList(Of T) handelt, einfach vorher noch ".ToList" einfügen und weitermachen... 

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