Dim version, makroname

Sub CATMain()
         version = "1.0"
         makroname = "Ausblenden Axis, Planes, Points & Assy-Constraints "
              
           On Error Resume Next
              
           Set activedoc = CATIA.ActiveDocument
             If Err.Number <> 0 Then
                 MsgBox "Es ist kein Dokument geöffnet", 16, makroname + " " + version
               Exit Sub
            End If
              
               'Auslesen der Dokumentart ------
             If (Right(activedoc.Name, 7) <> "CATPart" And Right(activedoc.Name, 10) <> "CATProduct") Then
                MsgBox "Aktives Dokument ist kein Bauteil oder Baugruppe", 16, makroname + " " + version
                Exit Sub
            End If

              '### Haupteil des Makros #################################
              'V5 wird direkt durch 'CATIA' angesprochen
              'z.B. CATIA.ActiveDocument
              '- - - - - - - - - - - - - - -
            Set productDocument1 = CATIA.ActiveDocument

            Set selection1 = productDocument1.Selection        

			selection1.clear   'Selektionsliset gelöscht
 
			select case msgbox("Möchten Sie alle Constraints und Wireframegeometrie ausblenden [yes] oder einblenden [no]?", vbyesnocancel, "Anzeige")

			case vbyes    

				selection1.Search "((((((((CATStFreeStyleSearch.AxisSystem + CATPrtSearch.AxisSystem)+ CATGmoSearch.AxisSystem) +  CATPrtSearch.Plane) + CATStFreeStyleSearch.Point)  + CATPrtSearch.Point) + CATStFreeStyleSearch.Line) + CATPrtSearch.Line)  + CATProductSearch.MfConstraint),all"

           		selection1.VisProperties.SetShow catVisPropertyNoShowAttr
			
				selection1.clear

			case vbno
   
				selection1.Search "((((((((CATStFreeStyleSearch.AxisSystem + CATPrtSearch.AxisSystem)+ CATGmoSearch.AxisSystem) +  CATPrtSearch.Plane) + CATStFreeStyleSearch.Point)  + CATPrtSearch.Point) + CATStFreeStyleSearch.Line) + CATPrtSearch.Line)  + CATProductSearch.MfConstraint),all"

           		selection1.VisProperties.SetShow catVisPropertyShowAttr
			
				selection1.clear 

			end select
              '### Haupteil-Ende ######################################

              '+++ Ausgabe der Fehler ++++++++++++++++++++++++++++
             iErr = Err.Number
            If (iErr <> 0) Then
            MsgBox (Err.Description)
            Exit Sub
            End If
              '+++ Fehler-Ende ++++++++++++++++++++++++++++++++++

              '--- Abschlussmeldung an Anwender --------------------------
           MsgBox "Makro ist beendet ", 64, makroname & " " & version
              '------------------------------------------------------------------------------

    End Sub