---

Hallo Leute,

ich versuche mich seit kurzem in der hohen Kunst der Makro-Programmierung

Im Internet habe ich ein Makro gefunden, dass Wireframe-Geoetrien, Flächen usw über die Catia Suchfunktion ausblendet.
Jetzt hätte ich gerne, dass auch alle Annotations in meiner Product-Struktur ausgeblendet werden. Ich krieg das aber nicht hin. Weiß jemand Rat?

So sieht mein Makro aus:

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set Selection1 = productDocument1.Selection

Selection1.Search "(CATPrtSearch.AxisSystem.Visibility=Visible + (CATPrtSearch.Surface.Visibility=Visible + (CATPrtSearch.Wireframe.Visibility=Visible + CATPrtSearch.Sketch.Visibility=Visible))),all"

Set VisPropSet1 = Selection1.VisProperties

VisPropSet1.SetShow catVisPropertyNoShowAttr

End Sub

Gruß Matze

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

---

Hi Matze,

als erstes schau', ob die gewünschte Op händisch ausführbar ist
Falls ja: Lass den Makro-Rekorder die Schritte aufzeichnen
Falls da was sinnvolles rauskommt, bau den in Deinen Code ein.

zB: Bei der Selektion von Annotations gibt der Makro-Rekorder aus:

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATTPSSearch.CATTPSAllAnnotations,all"

End Sub

---

Tschau,
Joe

PS: Bitte SystemInfo ergänzen.

------------------
Inoffizielle Catia Hilfeseite

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

---

Super. Danke für den Tipp mit dem Recorder. Damit hats funktioniert und das hilft mir auch für alles Weitere.
Gruß Matze

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