Sub scalaein()

    Dim MyDrawingDoc
    Dim MyDetailDoc
    Dim MyDetView
    Dim DrawingViewGenerativeBehavior1
    Dim MySheet
    Dim Mydetailsheet
    
    Set oDoc = CATIA.ActiveDocument
    Set oSheets = oDoc.Sheets
    Set osheet = oSheets.ActiveSheet
    osheet.PaperSize = 3

    Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet
    Set MyDetView = MySheet.Views.Add("SCALA")
    Set DrawingViewGenerativeBehavior1 = MyDetView.GenerativeBehavior
    DrawingViewGenerativeBehavior1.DefineFrontView 1, 0, 0, 0, 1, 0

    MyDetView.x = 0
    MyDetView.y = 300
    MyDetView.Activate
    MyDetView.Scale2 = 0.02
    
    'CATIA.DisplayFileAlerts = False
    Set MyDetailDoc = CATIA.Documents.Read("CATDLN://KATALOG\DETAILS_RAHMEN_UND_KOEPFE.CATDrawing")
    'CATIA.DisplayFileAlerts = True
    
    
    MyDetailSheetName = "RAHMEN"
    MyDetailSCName = "LAYOUT_TKE_SKALA"

    Set Mydetailsheet = MyDetailDoc.Sheets.Item(MyDetailSheetName)
    
    MsgBox "Detailblattname ist " & MyDetailSheetName
    
    Set MyDetailSC = Mydetailsheet.Views.Item(MyDetailSCName)
    
    MsgBox "Detailname ist " & MyDetailSCName
    
    MyDetView.Components.Add MyDetailSCName, 0, 0
    
    MyDetailDoc.Close

End Sub