Option Explicit
' COPYRIGTH DASSAULT SYSTEMES 2000

' ***********************************************************************
'   Purpose:      Create structure foundation
'   Assumtions:   
'   Author: 
'   Languages:    VBScript
'   Locales:      English 
'   CATIA Level:  V5R7 
' ***********************************************************************

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

    Dim products As Products
    Set products = rootProduct.Products

    Dim component As Product
    Set component = products.AddNewProduct("Foundation")

    Set strFactory = component.GetTechnologicalObject("StructureObjectFactory")

    ' Creating a foundation assembly

    Dim foundation As StrFoundation 
    Set foundation = strFactory.ExtendProductAsFoundation("")

    ' Retreiving the created foundation assembly

    Dim foundations As StrFoundations
    Set foundations = rootProduct.GetTechnologicalObject("StructureFoundations")		
	
    Set foundation = foundations.Item(1)

End Sub