Sub CATMain()

Dim doc As Document

  Dim StrWorkbench As StrWorkbench
  Dim strFactory As StrObjectFactory

  Set doc = CATIA.ActiveDocument
  Dim rootProduct As Product
  Set rootProduct = doc.Product
   
  Set StrWorkbench = doc.GetWorkbench("StrWorkbench")
    
  Dim strPlates As strPlates
  Set strPlates = rootProduct.GetTechnologicalObject("StructurePlates")

  Dim sketch As Reference
  Set sketch1 = rootProduct.CreateReferenceFromName("Product1/Grid/!Sketch.1")

  '*************************First Cutout**************************************************
  Dim PlateToCut1 As StrPlate
  Set PlateToCut1 = strPlates.Item("Plate_052")

  Dim Selection1 As Selection
  Set Selection1 = CATIA.ActiveDocument.Selection
  Selection1.Add PlateToCut1
  
  Dim Factory1 As StrFeatureFactory
  Set Factory1 = Selection1.FindObject("CATIAStrFeatureFactory")

  Dim dir1 As Reference
  Set dir1 = rootProduct.CreateReferenceFromName("Product1/Grid/!Sketch.3")

  Dim Cutout1 As StrCutoutFeature
  Set Cutout1 = Factory1.AddCutoutWithAfterFormingMode(sketch1, dir1)
 
  '*************************Second  Cutout**************************************************
  Dim PlateToCut2 As StrPlate
  Set PlateToCut2 = strPlates.Item("Plate_053")

  Dim Selection2 As Selection
  Set Selection2 = CATIA.ActiveDocument.Selection
  Selection2.Add PlateToCut2

  Dim Factory2 As StrFeatureFactory
  Set Factory2 = Selection2.FindObject("CATIAStrFeatureFactory")

  Dim Sur1 As Reference
  Set Sur1 = rootProduct.CreateReferenceFromName("Product1/Grid/!Extrude.1")

  Dim Cutout2 As StrCutoutFeature
  Set Cutout2 = Factory2.AddCutoutWithBeforeFormingMode(sketch1, Sur1)

End Sub