---

Hallo,

hoffe es kann mir wer helfen. Habe schon die Suche genutzt aber nichts passendes gefunden.
Habe mir das Makro zum ausblenden aller Ebenen von der Cathilfeseite geladen.
Aber leider funzt es nicht.
Es kommt eine Fehlermeldung: Kompilierungsfehler in MS VB Script, Beschreibung: Anweisungsende erwartet
Anweisung: Dim oDoc As Document;
Arbeite mit V5R12
wer kann mir helfen???

Henni

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

---

Hallo henni,

kann es sein, dass Dein Makro als Makro mit Argumenten im Spezifikationsbaum liegt und das Makro im Textfeld "Sub CATMain()" beginnt?

Wie auch immer: Folgendes Makro gibt es unter catia.cad.de. Wenn Dein CATIA mit englischer Oberfläche läuft, einfach den Suchstring in ",Plane;All" ändern.

'Ausblenden von Ebenen in einem CATPart bzw. CATProduct'
'Für V5R7SP6, V5R8SP2 und V5R8SP5 auf PC mit deutscher Ländereinstellung'

'Script erstellt von M. Gerlich (matthias.gerlich@edag.de) am 28.10.02'
'Eigentum der EDAG Engineering + Design AG'
'Das Sript darf als solches weder Verkauft oder Angeboten werden'

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search ".Ebene;Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

End Sub

Viele Grüße,

Michael Kirsch

------------------

www.em.ag

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

---

Hallo Michael,

Danke erst mal für die Hilfe, aber weiter gebracht hat es mich nicht, das gleiche Resultat, sprich Fehlermeldung.
Habe leider von Makroerstellung/programmierung kein Schimmer.
Dachte fügst mal das fertige Makro ein und dann wird es schon funzen, aber Fehlanzeige.

Henni

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

---

Kein Wunder... probiert mal dieses Skript, funzt 100%:

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection

selection1.Search "(((CATStFreeStyleSearch.Plane + CATPrtSearch.Plane) + CATGmoSearch.Plane) + CATSpdSearch.Plane),all"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

End Sub

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