|
|
|
|
Legend
|
The SddProduct object, and the SDD Design unit, 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 SddProductObj As SddProduct
Set SddProductObj = SelectionObj.FindObject("CATIASddProduct")
Dim sfdpart As Part
Set sfdpart = SddProductObj.CreateDesignUnit
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.