---

Hallo Catia-Freunde,

ich möchte mit Hilfe eines Makros alle General Analysis Connection der FEM-Umgebung mit einer Contact Connection versehen. Dazu habe ich mir mit Hilfe des Makro-Rekorders folgendes Makro gebastelt:

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 analysisSets1 As AnalysisSets
Set analysisSets1 = analysisModel1.AnalysisSets

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

Dim analysisEntities1 As AnalysisEntities
Set analysisEntities1 = analysisSet1.AnalysisEntities

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

Dim analysisSets2 As AnalysisSets
Set analysisSets2 = analysisManager1.AnalysisSets

Dim analysisSet2 As AnalysisSet
Set analysisSet2 = analysisSets2.ItemByType("ConnectionDesignManager")

Dim analysisSets3 As AnalysisSets
Set analysisSets3 = analysisSet2.AnalysisSets

for i=1 to analysisSets3.count

Dim analysisSet3 As AnalysisSet
Set analysisSet3 = analysisSets3.Item(i, catAnalysisSetSearchAll)

Dim analysisEntities2 As AnalysisEntities
Set analysisEntities2 = analysisSet3.AnalysisEntities

for y=1 to analysisEntities2.count
Dim analysisEntity2 As AnalysisEntity
Set analysisEntity2 = analysisEntities2.Item(1)

Dim reference1 As Reference
Set reference1 = analysisManager1.CreateReferenceFromObject(analysisEntity2)

Set reference1 = reference1.Parent

Dim bSTR1 As String
bSTR1 = reference1.Name

Dim bSTR2 As String
bSTR2 = reference1.Name

***  analysisEntity1.AddSupportFromProduct Nothing, reference1

Dim basicComponents1 As BasicComponents
Set basicComponents1 = analysisEntity1.BasicComponents

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

basicComponent1.SetValue "Values", 0, 0, 0, 0.000000
next
next

End Sub

Die mit Sternchen versehene Zeile produziert jedoch einen Fehler. Lasse ich die Zeile weg, läuft das Makro, jedoch haben die erzeugten Contact Connection keinen bezug zur jeweiligen General Analysis Connection.
Ich hoffe es weiß jemand einen Rat, wie man die Funktion AddSupportFromProduct richtig anspricht.

Viele Grüße
CatiaV5User

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP