---

Hallo Catia-Gemeinde,

ich habe ein kleines anliegen.

ich benötige ein kleines Skript. Ich habe versucht im CATIA VB zu programmieren und bin gescheitert. Eventuell kann mir jemand das kleine Skript schreiben?

ich habe eine Baugruppe mit einzelnen Parts. In den Parts habe ich immer ein "Gemetrisches Set" mit dem Namen "Basisinformationen" oder mit dem Namenanfang "PktM...". ich möchte gerne mit einem klick alle "Gemetrisches Set" mit diesen Namen ins "NoShow" stellen. Dies soll im Produkt und im Part-Design funktionieren.

ich das mit einem Skrips möglich.

Danke im Voraus.

Gruß Stefan

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

---

Servus
Wie weit bist du gekommen?
mit Makrorekorder und grobes Ausmisten des Codes kommt bei mir dieses raus:

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Object
Set selection1 = productDocument1.Selection

selection1.Search "(CATPrtSearch.OpenBodyFeature.Name=Basisinformationen + CATPrtSearch.OpenBodyFeature.Name=PktM*),all"

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

visPropertySet1.SetShow 1

selection1.Clear

End Sub

---

Gruß
Bernd

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

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

---

Hallo Bernd,

zu meiner Schande muss ich gestehen, das ich es nicht probiert habe. Ich tu mich etwas schwer mit der Programmierung im Catia. Es ist noch anders als im Excel. javascript:InsertSMI(' %20');

Dein Skript funktioniert im Assembly Design. Ist es möglich das im Part-Design ebenfalls laufen zu lassen?

Stefan.

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

---

Servus
Bei mir läuft der Code auch im Part.
(wie sieht dein Code aus, wie lautet die Fehlermeldung, ...)

Gruß
Bernd

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

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

---

Hallo Bernd,

wenn ich ein Part aktiv habe, werden die anderen Parts im Produkt ins NoShow gestellt.

Stefan

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

---

Servus
Ach du meinst nur im aktiven Part im Baugruppenkontext gesucht wird? IMHO geht das nicht.
Alternative: Part im Bau selektieren und Makro umschreiben dass nur in der Selektion gesucht wird (im Suchstring "all" durch "sel" ersetzen)

Gruß
Bernd

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

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

---

Hallo,

super, so hatte ich mir das gedacht.

Ich habe jetzt zwei Icons. Ein blendet mit die Sachen ein und das andere aus.

Danke javascript:InsertSMI(' %20');

Stefan

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