|
|
|
|
Legend
|
The SfdProduct object, and the SFD Function System, are retrieved and created as follows.
Dim NewProdDoc As ProductDocument
Set NewProdDoc = CATIA.Documents.Add("Product")
Dim RootPrd As Product
Set RootPrd = NewProdDoc.Product
Dim SelectionObj As Selection
Set SelectionObj = NewProdDoc.Selection
SelectionObj.Add RootPrd
Dim SfdProductObj As SfdProduct
Set SfdProductObj = SelectionObj.FindObject("CATIASfdProduct")
Dim sfdpart As Part
Set sfdpart = SfdProductObj.CreateFunctionalSystem
The three factory objects SfmFactory, SfmFunctionFactory, SfmOperationFactory are retrieved from the Part object thanks to the GetCustomerFactory method, as follows.
Dim oSfmFact As SfmFactory
Set oSfmFact = CATIA.ActiveDocument.Part.GetCustomerFactory("SfmFactory")
Dim oSfmFunctionFact As SfmFunctionFactory
Set oSfmFunctionFact = CATIA.ActiveDocument.Part.GetCustomerFactory("SfmFunctionFactory")
Dim oSfmOperationFact As SfmOperationFactory
Set oSfmOperationFact = CATIA.ActiveDocument.Part.GetCustomerFactory("SfmOperationFactory")
Copyright © 1994-2011, Dassault Systèmes. All rights reserved.