Language="VBSCRIPT"

Sub CATMain()

Dim analysisDocument1 As Document
Set analysisDocument1 = CATIA.ActiveDocument

Dim analysisManager1 As AnalysisManager
Set analysisManager1 = analysisDocument1.Analysis

Dim analysisModels1 As AnalysisModels
Set analysisModels1 = analysisManager1.AnalysisModels

Dim analysisModel1 As AnalysisModel
Set analysisModel1 = analysisModels1.Item(1)

Dim analysisCases1 As AnalysisCases
Set analysisCases1 = analysisModel1.AnalysisCases

Dim analysisCase1 As AnalysisCase
Set analysisCase1 = analysisCases1.Item(1)

Dim analysisSets1 As AnalysisSets
Set analysisSets1 = analysisCase1.AnalysisSets

Dim analysisSet1 As AnalysisSet
Set analysisSet1 = analysisSets1.ItemByType("LoadSet")

Dim analysisEntities1 As AnalysisEntities
Set analysisEntities1 = analysisSet1.AnalysisEntities

Dim analysisEntity1 As AnalysisEntity
Set analysisEntity1 = analysisEntities1.Add("SAMPressure")

Dim analysisLinkedDocuments1 As AnalysisLinkedDocuments
Set analysisLinkedDocuments1 = analysisManager1.LinkedDocuments

Dim partDocument1 As Document
Set partDocument1 = analysisLinkedDocuments1.Item(1)

Dim product1 As Product
Set product1 = partDocument1.Product

Dim part1 As Part
Set part1 = partDocument1.Part

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromName("Selection_RSur:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf9:());Pad.1_ResultOUT;Last)")

analysisEntity1.AddSupportFromProduct product1, reference1

Dim basicComponents1 As BasicComponents
Set basicComponents1 = analysisEntity1.BasicComponents

Dim basicComponent1 As CATBaseDispatch
Set basicComponent1 = basicComponents1.GetItem("SAMPressureMag")

basicComponent1.SetValue "", 0, 0, 0, 10.000000

Dim myVal As Double
myVal = analysisEntity1.getValue("SAMPressureMag", "", 0, 0, 0)
' MsgBox "Value of Pressure: " & myVal

Dim myRef As Reference
Set myRef = analysisEntity1.getReference("SAMPressureMag", "", 0, 0, 0)

End Sub