' Makro:        Geo_Sets_erzeugen
' Version:      1.3
' UIL:          English (User Interface Language)
' Autor:        Christian Obholzer
' E-Mail:       ch.obholzer@aon.at
' Erstellt:     24.02.2010
' Zweck:        Es werden die Geometrischen Sets Hilfsgeometrie, Ebenen, Skizzen, Splines und Flaechenoperationen erstellt
'-----------------------------------------------------------------------------------
' Änderungen:   03.03.2010, Christian Obholzer
'               Dokumentenabfrage bezüglich geöffnetes und falsches Dokument hinzugefügt
'               07.04.2010, Christian Obholzer
'               UIL (User Interface Language) hinzugefügt
'               30.04.2010, Christian Obholzer
'               CATScript in catvba umgeschrieben
'-----------------------------------------------------------------------------------

Option Explicit
Sub CATMain()


    Dim GeoSet As HybridBody
    Dim Bodies As HybridBodies
    Dim Dokument As Windows
    Dim Doc As Document
    Dim Typ As String
    Dim Box

    Set Dokument = CATIA.Windows
    If Dokument.Count = 0 Then
        Box = MsgBox("Es ist kein Dokument geöffnet." + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet.", vbOKOnly + vbCritical, "Kein Dokument offen")
        Exit Sub
    End If

    Set Doc = CATIA.ActiveDocument
    Typ = TypeName(Doc)
    If Typ <> "PartDocument" Then
        Box = MsgBox("Dieses Dokument ist kein Part." + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet.", vbOKOnly + vbCritical, "Falscher Dokumententyp")
        Exit Sub
    End If
    
    Set Bodies = CATIA.ActiveDocument.Part.HybridBodies
    Set GeoSet = Bodies.Add
    GeoSet.Name = "Hilfsgeometrie"

    Set Bodies = GeoSet.HybridBodies
    Set GeoSet = Bodies.Add
    GeoSet.Name = "Ebenen"

    Set GeoSet = Bodies.Add
    GeoSet.Name = "Skizzen"

    Set GeoSet = Bodies.Add
    GeoSet.Name = "Splines"
    
    Set GeoSet = Bodies.Add
    GeoSet.Name = "Flaechenoperationen"

CATIA.StatusBar = ("Geo_Sets_erzeugen.catvba, Version 1.3")

End Sub