---

Hallo,

gibt es eine möglichkeit alles auf einmal zu selektieren um dann alles einblenden zu können? Mit selection.search habe ich es versucht, da aber die Option "Do not activate default shapes on open" aktiviert ist, werden nur die Produkte und ein paar andere Sachen gefunden, jedoch nicht die ganze Geometrie. Ein MyProduct.ActivateDefaultShape, ändert leider nichts daran. Erst wenn manuell das Product aktiviert wird.
Weiß vllt. jmd. wo mein Fehler ist? Vielen Dank für eure Hilfe!

Grüße Tobi

Ps: Habe den Code mal angefügt!

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Set MyProduct = productDocument1.Product
MyProduct.ActivateDefaultShape
MyProduct.ApplyWorkMode DESIGN_MODE

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "Visibility=Invisible,all"
Set VisPropertySet = selection1.VisProperties
VisPropertySet.SetShow 0

End Sub

---

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

---

Hallo,

vielleicht klappt es ja so:

Code:

---

selection1.Search "Type=*,all"

---

Wobei ich nicht glaube, dass das etwas an deinem Problem ändert, kannst du vielleicht ein paar Sachen angeben, was nicht gefunden wird?

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

---

aktivesProduct.jpg search_aktiv2.jpg search_inaktiv2.jpg

Erst einaml danke für deine antwort! ne das ändert nichts, habe das mit dem invisibility nur drin damit ich nur den sachen selektiere die im NoShow sind. der sucht quasi gar nicht in dem Part oder wenns mehrere sind in den Parts. Habe mal ein screenshot von den ergebnissen gemacht die sind unter vba die gleichen! Wie zu sehen ist werden beim inaktiven Product keine Geometrie usw. gefunden (letztes Bild)...

Gruß Tobi

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

---

Habe eine Lösung gefunden, der Befehl muss für alle Bauteile einzelnd ausgeführt werden, habe dafür eine rekursive Schleife gemacht. Dann sind die Bauteile auch alle aktiviert und bei der search-Furnktion wird alles gefunden!

Gruß Tobi

Code:

---

Call allePartAktivieren(MyProduct)

Sub allePartsAktivieren(Product1)
For Each Product In Product1.Products
    If Not Product Is Nothing Then
    Call allePartsAktivieren(Product)
    Product.ActivateDefaultShape
    End If
Next
End Sub

---

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