---

hide.JPG

Moin!

Ich versuch grad die im Anhang dargestellten Befehle in ein Makro gemeinschaftlich zu packen.
Folgende Situation:
Ich mach ein AlLCatPart aus meinem Product...und danach will ich alle Lines, Points, Axis Systems, Sketches, Curves ausblenden.
Die Makroaufzeichnung bringt mich allein nicht richtig weiter und meine Programmierungskünste waren auch schon mal besser.
Kann mir jemand weiterhelfen? 

------------------
Dive now, work later...   

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

---

Servus
Versuch mal das ausblenden der Linie usw über die Suchfunktion zu realisieren (dies lässt sich über die Makroaufzeichnung erfassen).
ggf würde es auch reichen die GeoSets auszublenden

Gruß
Bernd

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

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

---

Hallo,

ich habe das mit Hilfe der Suchfunktion gelöst (Rekorder dabei laufen gelassen.) , und somit dieses Makro erweitert.

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Hatte auch gesucht u. nix gefunden..mal sehen, ob es wirkt 

------------------
Dive now, work later...   

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

---

Zitat:

---

Original erstellt von bgrittmann:
Servus
Versuch mal das ausblenden der Linie usw über die Suchfunktion zu realisieren (dies lässt sich über die Makroaufzeichnung erfassen).
ggf würde es auch reichen die GeoSets auszublenden

Gruß
Bernd

---

Genauso hab ich es versucht...klappt aber ned so richtig...

------------------
Dive now, work later...   

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

---

Servus
Wie sieht dein Code zum ausblenden der Geosets aus?

Gruß
Bernd

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

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

---

Big_Hide.CATScript.jpg

keine Ahnung 
Hab mehrere Suchen nacheinander ausgeführt (und das ganze aufgezeichnet) und dann die Elemente ausgeblendet.

------------------
Dive now, work later...   

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

---

Servus
Anbei ein Beispiel (CATScript) zum ausblenden aller GeoSets:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATGmoSearch.OpenBodyFeature,all"

Dim selection2 As Selection
Set selection2 = partDocument1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection2.VisProperties

visPropertySet1.SetShow 1

selection2.Clear

End Sub

---

Gruß
Bernd

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

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

---

test.zip

funzt nicht so wie ich es brauch, aber danke.
Ich habe GeoSets, die ich brauche.

Die Befehle aus dem oberen Screenshot sind schon ideal...ich will halt ned 4 oder 5mal das PD-menü durchklicken, sondern 1 Icon, welches 1 Makro ausführt, welches das dann für mich erledigt.

Anbei ein AllCatPart als Muster, wie meine Teile aussehen...  können.

------------------
Dive now, work later...   

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

---

GeoSetsauszublenden.CATScript.txt

Hallo,

anbei der Code um GeoSets auszublenden.

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Danke!
Aber auch dieses Script blendet GeoSets aus, welche eingeblendet bleiben sollen... 

------------------
Dive now, work later...   

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

---

Servus
Wir liefern dir hier nur Beispiele, nicht unbedingt den ganzen Code.
Was willst du alles ausblenden? Wie weit bist du mit deinem Code gekommen?

Gruß
Bernd

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

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

---

Macro1.CATScript.txt

Ich hab oben nen Screenshot angehöngt..
Ich bin auch überhaupt nicht fit im Scripten deshalb stell ich mich evtl. auch a bissl blöd an.

Hier mal ein Script, wie ich es grad aufgenommen habe...aber so funktionierts nur 1x und beim nächsten AllCatPart eben nicht mehr!

Ich will aus meinem Kabelbaum-AllCatPart alle: Punkte, Lines, Curves, Axis Systems, Sketches ausblenden.

------------------
Dive now, work later...     

[Diese Nachricht wurde von ASSD am 18. Jun. 2012 editiert.]

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

---

hide.JPG

Hier nochmal der Screenshot vom PD-Menü mit den entsprechenden Befehlen, die ich zusammenfassen will.

------------------
Dive now, work later...   

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

---

Zeichne mal ein Makro auf, dann gehst du auf suchen, wählst aus was du suchen willst (z.B. "Fläche") und klickst auf "Suchen und auswählen"..

Das Wiederholst du für alle Typen, die du ausblenden willst.. Dann stoppst du die Makroaufzeichnung und suchst im Makro Code nach den entsprechenden Suchstrings..

z.B.

selection1.Search "CATGmoSearch.Sketch,all"

selektiert alle Skizzen..

Die geposteten Lösungen sind im Prinzip korrekt, du musst nur den Suchstring anpassen, sodass er die gewünschten Elemente sucht..

[Diese Nachricht wurde von geekv5 am 18. Jun. 2012 editiert.]

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

---

_2_Achsen_Ebenen_ausblenden_usw.CATScript.txt

Hier ist das Script, was ich OBEN schon mal verlinkt hatte.

Dieses musst du nur noch Erweitern, oder du Schaust mal hier vorbei

edit =  neuer link

https://my.hs-osnabrueck.de/ecs/27732.98.html

ganz unten

------------------
Sei Schlau bleib Dumm !!?!!

[Diese Nachricht wurde von K.Siebert am 18. Jun. 2012 editiert.]

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

---

Die Exe aus dem Link is gut... DANKE!

------------------
Dive now, work later...   

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