Analysis Solution

...
' To valuate by forcing the unit system:
basicComponent2.SetValue "", 1, 1, 1, "5000.0lbf_ft"

' To take into account the current unit system: 
basicComponent2.SetValue "", 1, 1, 1, 5000.0
...

' To Create an analysis entity:
Dim analysisEntities As AnalysisEntities
Dim ThisAnalysisEntity As AnalysisEntity
Set ThisAnalysisEntity = analysisEntities.Add("Analysis Entity Type")

' To retrieve the parameter "Param": First Retrieve the collection on the Entity
Dim BasicComponents1 As BasicComponents
Set BasicComponents1 = ThisAnalysisEntity.BasicComponents

Dim BasicComponent1 As BasicComponent
Set BasicComponent1 = BasicComponents1.Item("Param")
...

' To valuate a support from a mechanical feature or a Brep element: The product object will manage
' the instance of the Part Document.
' Retrieve the Part from this document
Dim part1 As Part
Set part1 = PartDocument.Part

Dim product1 As Product
Set product1 = PartDocument.Product

' Retrieve the References for Brep's
Dim referenceBound As Reference
Set referenceBound = part1.CreateReferenceFromName("Selection_RSur:(Face:(Brp:(GSMxxx))") // Brep Case

' Retrieve the References for Mechanical Features
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("PartBody")
Dim shapes1 As Shapes 
Set shapes1 = body1.ShapeS
Dim split1 As Split 
Set split1 = shapes1.Item("Split.1")
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(split1)               // Create the reference thanks to the part

ThisAnalysisEntity.AddSupportFromProduct product1, reference1 

...

' To valuate a support from a publication: From the product feature (in a product or part document)

Dim product1 As Product
Set product1 = TheProductDoc.Product
Dim publications1 As Publications
Set publications1 = product1.Publications    // Extract the collection of publications.
Dim publication1 As Publication
Set publication1 = publications1.Item("ClampFace")

ThisAnalysisEntity.AddSupportFromPublication product1, publication1 // product1 is the publisher object.
...

' To valuate a support from an assembly constraints:
Dim product1 As Product
Set product1 = TheProductDoc.Product
Dim constraints1 As Constraints
Set constraints1 = product1.Connections("CATIAConstraints")// Extract the collection of constraints.
Dim constraint1 As Constraint
Set constraint1 = constraints1.Item("Surface contact.2")

ThisAnalysisEntity.AddSupportFromConstraint product1, constraint1 
...

' To valuate a support from another analysis feature: 
' Consider analysisSets2 is the Collection of AnalysisSet returned by AnalysisModel

Dim analysisSet4  As AnalysisSet 
Set analysisSet4 = analysisSets2.ItemByType("PropertySet") // Extract the property set 
Dim analysisEntities1 As AnalysisEntities
Set analysisEntities1 = analysisSet4.AnalysisEntities
Dim analysisEntity1 As AnalysisEntity
Set analysisEntity1= analysisEntities1.Item("MyRigidVirPart")  // Extract the entity to consider as a support 

Set reference2 = analysisManager1.CreateReferenceFromObject(analysisEntity1) // Create the Reference Object
ThisAnalysisEntity.AddSupportFromReference reference2, reference2
...