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