---

Hi,

ich habe folgendes Makro geschrieben:

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "Name:*Motor' '1' 'komplett*;Alle"
Set visPropertySet1 = selection1.VisProperties
If ??? Then
MsgBox "Komponenten sind sichtbar"
Else
MsgBox "Komponenten sind nicht sichtbar"
End If

End Sub

---

Nun will ich die Überprüfen, ob die Bauteile sichtbar sind oder nicht. Wie muss dabei die If Abfrage aussehen?

Danke für Hilfe!

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

---

Hallo Stingray9,

    Dim ShowState As CatVisPropertyShow
    Dim CommonShowState As CatVisPropertyStatus

    CommonShowState = visPropertySet1.GetShow(ShowState)

    If ShowState = 0 And CommonShowState = 0 Then
        MsgBox "Komponenten sind sichtbar"
    ElseIf ShowState = 1 And CommonShowState = 0 Then
        MsgBox "Komponenten sind nicht sichtbar"
    Else
        MsgBox "Einige Komponenten sind sichtbar und einige unsichtbar"
    End If

Gruss
Steffen

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