Option Explicit '// COPYRIGHT DASSAULT SYSTEMES 2000 '****************************************************************************** ' Purpose: This CATScript demonstrates how to create an Item Reservation. ' and change it's visualization to "Flat" mode. ' Assumptions: This assumes that a macro is being executed interactively. ' ' Author : ' Languages : VBScript ' CATIA Level: V5R6 ' Locale : English '****************************************************************************** Sub CATMain() ' On Error Resume Next '---------------------------------------------- 'Create a new product document Dim objProdDoc As ProductDocument Dim objRootProd As Product Set objProdDoc = CATIA.Documents.Add("Product") Set objRootProd = objProdDoc.Product '---------------------------------------------- 'Retrieving Root Product's Relative Axis and Position Information Dim objMove As Move Dim objPosition As Position Set objMove = objRootProd.Move Set objPosition = objRootProd.Position '---------------------------------------------- ' Get ArrangementProduct Dim objArrProd As ArrangementProduct Set objArrProd = objRootProd.GetTechnologicalObject("ArrangementProduct") '---------------------------------------------- ' Create Item Reservation under the Root Product Dim dblItemResPos(11) As Double Dim objItemRes As ArrangementItemReservation objPosition.GetComponents dblItemResPos Set objItemRes = objArrProd.ArrangementItemReservations.AddItemReservation(objMove, dblItemResPos, 200.0, 500.0, 200.0, 500.0, 0.0, 0.0) '---------------------------------------------- ' Change Properties of ArrangementItemReservation objItemRes.VisuMode = CatArrangementItemReservationVisuModeFlat End Sub