---

Meldung.JPG

Hallo zusammen,

beim Programmieren bin ich auf ein Problem gestoßen, bei welchen mein eh schon etwas mageren Kenntnisse nicht weiter Wissen.
Hier erst mal das Codesegment:

------------------------------------------------------------------------
Set selection3 = aDoc.Selection
Selection3.Search "(CATKnowledgeSearch.Set of parameters),all"
  if selection3Count2>0 Then
      selection3.Delete
      selection3.Clear
  Else
      if selection3.Count2=0 Then
  End If
End If
------------------------------------------------------------------------

Beim löschen der Parameter gibt mir Catia eine Meldung ob ich die Versteckten Elemente ebenfalls löschen will (siehe Bild). Da wir zu Übersichtlichkeit mit verdeckten Parametern Arbeiten lässt sich das leider nicht verändern.
Das Makro sollte aber ohne Unterbrechung laufen aber bei der Meldung Stoppt dies und man muss die Meldung manuell mit ja bestätigen.
Ist es möglich das ganze zu Programmieren so das dies Automatisch geschieht?

Bin für jeden Tipp wie man das Problem lösen kann dankbar .

Gruß

Cepheus

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

---

Hallo!

Versucht so:

Sub CATMain()

Set aDoc = CATIA.ActiveDocument

Set selection3 = aDoc.Selection
selection3.Search "(CATKnowledgeSearch.Set of parameters),all"
    If selection3.Count > 0 Then
        Set params = selection3.Item(1).Value
        If params.AllParameters.Count > 0 Then
            For i = 1 To params.AllParameters.Count
                Set param = params.AllParameters.Item(i)
                If param.Hidden Then
                    param.Hidden = False
                End If
            Next
        End If
        selection3.Delete
        selection3.Clear
    Else
        If selection3.Count = 0 Then
  End If
End If
End Sub

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

Hallo JuPaV,

das genau das was ich gesucht habe vielen Dank für die Hilfe  .

Gruß

Cepheus

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