'Ausblenden von Ebenen und Achsen in einem CATPart bzw. CATProduct'
'Für V5R10SP5 auf PC mit deutscher Ländereinstellung'

'Script erstellt von J.Ganz (jochen.ganz@weinig.de) am 13.08.03'
'Eigentum der Michael Weinig AG'
'Sollte jemand das Script weiterentwickeln, wäre ich dankbar, wenn mir die Weiterentwicklung'
'per Mail zugesendet würde.'
'Das Sript darf als solches weder Verkauft oder Angeboten werden'

Language="VBSCRIPT"

Sub CATMain()

	CATIA.Caption = theCATTitle

	On Error Resume Next
	'Fehlermeldung aussgeschaltet'

	Dim productDocument1 As Document
	Set productDocument1 = CATIA.ActiveDocument

	CATIA.Caption = "Achsensysteme, die sichtbar sind ausblenden"
	Dim selection1 As Selection
	Set selection1 = productDocument1.Selection

		selection1.Search "(.Achsensystem & Sichtbarkeit=sichtbar);Alle"
		Set visPropertySet1 = selection1.VisProperties 
		visPropertySet1.SetShow 1
		selection1.Clear

	CATIA.Caption ="Ebenen, die sichtbar sind  werden ausgeblendet"
	Dim selection2 As Selection
	Set selection2 = productDocument1.Selection

		selection2.Search "(.Ebene & Sichtbarkeit=sichtbar);Alle"
		Set visPropertySet2 = selection2.VisProperties 
		visPropertySet2.SetShow 1
		selection2.Clear


	CATIA.Caption ="Ebenen, die sichtbar sind  werden ausgeblendet"
	Dim selection3 As Selection
	Set selection3 = productDocument1.Selection

		selection2.Search "(.Punkt & Sichtbarkeit=sichtbar);Alle"
		Set visPropertySet3 = selection2.VisProperties 
		visPropertySet3.SetShow 1
		selection2.Clear


	CATIA.Caption ="Ebenen, die sichtbar sind  werden ausgeblendet"
	Dim selection4 As Selection
	Set selection4 = productDocument1.Selection

		selection2.Search "(.Linie & Sichtbarkeit=sichtbar);Alle"
		Set visPropertySet4 = selection2.VisProperties 
		visPropertySet4.SetShow 1
		selection2.Clear


	CATIA.Caption ="Ebenen, die sichtbar sind  werden ausgeblendet"
	Dim selection5 As Selection
	Set selection5 = productDocument1.Selection

		selection2.Search "(.Kurve & Sichtbarkeit=sichtbar);Alle"
		Set visPropertySet5 = selection2.VisProperties 
		visPropertySet5.SetShow 1
		selection2.Clear



	CATIA.Caption = theCATTitle

End Sub