---

Servus, ich hoffe das jetzt nicht sofort die Blitze auf mich abgeschossen werden aber ich habe mal ne kleine Frage.

Habe auf der inoffiziellen Seite die DLs mal durschucht und die Macros für das Suchen aller Punkte/Linien/Planes gefunden..

Nun habe ich versucht das in V5R14 umzusetzten (ich habs abgeschrieben!!!) aber es lässt sich leider nicht ausführen 

Was könnte das Problem sein? Meine Zeilen brauchen doch keinen ";" am Schluß oder?

Was mach ich wohl falsch?? 2x Dim 2x Set das kann doch nicht viel sein oder???

------------------
What about RTFM ?? 

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

---

Hallo Shaft,

ich hab das mal mit dem Code probiert:

'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

und so klappt das auch. Allerdings habe ich (in "weiser?" Vorraussicht) anstelle von

".Ebene;Alle"

in meiner "English" eingestellten Umgebung

".Plane;all"

eingesetzt. Vielleicht ist dies Dein Fehler?

mfg,
Lusilnie

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