Code:
Dim analysisDocument1_prop As AnalysisDocument
Set analysisDocument1_prop = CATIA.ActiveDocumentDim analysisManager1_prop As AnalysisManager
Set analysisManager1_prop = analysisDocument1_prop.Analysis
Dim analysisModels1_prop As AnalysisModels
Set analysisModels1_prop = analysisManager1_prop.AnalysisModels
'
Dim analysisModel1_prop As AnalysisModel
Set analysisModel1_prop = analysisModels1_prop.Item(1)
'
Dim analysisSets1_prop As AnalysisSets
Set analysisSets1_prop = analysisModel1_prop.AnalysisSets
Dim analysisSet1_prop As AnalysisSet
Set analysisSet1_prop = analysisSets1_prop.ItemByType("PropertySet")
Dim analysisEntities1_prop As AnalysisEntities
Set analysisEntities1_prop = analysisSet1_prop.AnalysisEntities
Dim analysisEntity1_prop As AnalysisEntity
Set analysisEntity1_prop = analysisEntities1_prop.Add("SAMSeamWeldConnect") 'Material einfügen
analysisEntities1_prop.Remove 1
Dim analysisSets2_prop As AnalysisSets
Set analysisSets2_prop = analysisManager1.AnalysisSets
Dim analysisSet2_prop As AnalysisSet
Set analysisSet2_prop = analysisSets2_prop.ItemByType("ConnectionDesignManager")
Dim analysisSets3 As AnalysisSets
Set analysisSets3 = analysisSet2_prop.AnalysisSets
Dim neu_erstellte As Integer
neu_erstellte = analysisSet2_prop.AnalysisSets.Count
Dim analysisSet3 As AnalysisSet
Set analysisSet3 = analysisSets3.Item((neu_erstellte), catAnalysisSetSearchAll) '' ANPASSEN
Dim analysisEntities2 As AnalysisEntities
Set analysisEntities2 = analysisSet3.AnalysisEntities
Dim analysisEntity2 As AnalysisEntity
Set analysisEntity2 = analysisEntities2.Item(1)
Dim reference1 As Reference
Set reference1 = analysisManager1_prop.CreateReferenceFromObject(analysisEntity2)
Dim reference2 As Reference
Set reference2 = analysisManager1_prop.CreateReferenceFromObject(analysisEntity2)
analysisEntity1_prop.AddSupportFromReference reference1, reference2
Dim basicComponents5 As BasicComponents
Set basicComponents5 = analysisEntity1_prop.BasicComponents
Dim basicComponent5 As BasicComponent
Set basicComponent5 = basicComponents5.GetItem("SAMCustoSeamWeld.1")
basicComponent5.SetValue "Values", 0, 0, 0, "Shell"
Dim analysisSet4_prop As AnalysisSet
Set analysisSet4_prop = analysisSets1_prop.ItemByType("MaterialSet")
Dim analysisEntities3_prop As AnalysisEntities
Set analysisEntities3_prop = analysisSet4_prop.AnalysisEntities
Dim analysisEntity3_prop As AnalysisEntity
Set analysisEntity3_prop = analysisEntities3_prop.Item("Schweissnaht")
Dim reference3 As Reference
Set reference3 = analysisManager1_prop.CreateReferenceFromObject(analysisEntity3_prop)
Dim analysisEntities4 As AnalysisEntities
Set analysisEntities4_prop = basicComponent5.Entities
Dim analysisEntity4 As AnalysisEntity
Set analysisEntity4_prop = analysisEntities4_prop.GetItem("Shell")
Dim basicComponents6 As BasicComponents
Set basicComponents6 = analysisEntity4_prop.BasicComponents
Dim basicComponent6 As BasicComponent
Set basicComponent6 = basicComponents6.GetItem("SAMAnalysisMaterialPtr.1")
basicComponent6.SetReference "ConnectorList", 0, 0, 0, reference3
basicComponent6.SetValue "UserMatChecked", 0, 0, 0, True
Dim basicComponent7 As BasicComponent
Set basicComponent7 = basicComponents6.GetItem("SAMThickness")
basicComponent7.SetValue "", 0, 0, 0, "1,5mm"
Dim basicComponent8 As BasicComponent
Set basicComponent8 = basicComponents6.GetItem("SAMSurfaceOffset")
basicComponent8.SetValue "", 0, 0, 0, "0mm"