---

Hallo zusammen

Ich habe in einer Assembly (Inventor8) Eine Reihe gemacht mit Komponente Anordnen (Pattern) . Nun möchte ich diese mit VBA Sichtbar und unsichtbar machen. Ich habe es mit folgendem code probiert:

Public Sub setFeatureVisible(oDoc As AssemblyDocument, name As String, isVisible As Boolean)
    Dim oCompDef As Inventor.ComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition
    Dim oDocDef As AssemblyComponentDefinition
    Set oDocDef = oDoc.ComponentDefinition
    Dim patterns as  OccurrencePatterns
    Set patterns = oDocDef.OccurrencePatterns
    If patterns.count <> 0 Then
  Dim subPattern As OccurrencePattern
  For Each subPattern In patterns
  If subPattern.name = name Then
    subPattern.???????????????? 
  End If
  Next
End If  End Sub

Leider gibt es unter subPattern.???????????????? was ein OccurrencePattern objekt ist kein visible attribut.
Aber im inventor kann ich es unsichtbar schalten.
Was muss ich machen?

Vielen dank

Sascha

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

---

Hallo Sascha,

... das .Visible scheint hier vergessen gegangen zu sein, aber probier'S mal damit:

For Each oPatt In oPatterns
   
  For i = 1 To oPatt.OccurrencePatternElements.Count
           
    ' falls Pattern mehrere Elemente Umfasst, müsste hier noch ein Zähler
    '  für oPatt.OccurrencePatternElements(i).Occurrences(nnn) rein
    oPatt.OccurrencePatternElements(i).Occurrences(1).Visible = False
 
  Next i
   
Next oPatt

Setzt zwar nicht das Pattern auf Visible = False, aber dafuer alle Elemente....

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul

Vielen dank für die schnelle Antort . Es funktioniert ...

Gruss sascha

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