---

Hallo zusammen,

ich möchte ein Macro erstellen, dass mir aus einer Selektion von ausgeblendeten Elementen nur bestimmte Elemente einblendet. Die selektierten Elemente (z.B. Joins) befinden sich alle in einem Geometrical Set.

Mit

Sub CATMain()

    Dim MySelection As Selection
    Set MySelection = CATIA.ActiveDocument.Selection
    MySelection.VisProperties.SetShow catVisPropertyShowAttr

End Sub

kann ich alle Elemente einer Selektion einblenden.

Verwende ich

Sub CATMain()

    Dim MySelection As Selection
    Set MySelection = CATIA.ActiveDocument.Selection
    MySelection.Item(10).VisProperties.SetShow catVisPropertyShowAttr

End Sub

so bekomme ich die Fehlermeldung, dass das Objekt die Methode nicht unterstützt.

Wie kann ich mit der Methode SetShow auf ein einzelnes Element einer Selektion zugreifen?

Grüße

Mike

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

---

Servus Mike

Die VisProperties gelten immer für die gesamte Selektion (manuell kannst du auch nur alles was selektiert ist gemeinsam ein/ausblenden).
Somit muss du vor dem aus/einblenden die Selektion entsprechend anpassen.
Eine Ausnahme gibt es: Elemente des Typs Hybridshape kann man über die Methode GSMVisibility ein/ausblenden:

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

dim osel as selection
set osel = partDocument1.selection

dim myReference as Reference
set myReference = osel.item2(2).reference

hybridShapeFactory1.GSMVisibility myReference, 0

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Servus Bernd,

top, danke für den Beitrag. Genau diese Art von Lösung habe ich gesucht!

Grüße

Mike

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