---

Hallo an alle Mitglieder!

Ich bin Maschinenbaustudentin und arbeite im Rahmen einer Arbeit an Catia-Konstruktionen, die einer FEM Simulation unterzogen werden sollen.
Mein Problem ist, dass in der "Generative Struktural Analysis" bei der Zuweisung der "Eigenschaft der fixierten Verbindung" immer nur eine Bedingung ausgewählt werden kann. (denk ich jedenfalls, hab keine andere Lösung gefunden!) Da mein Product aus vielen Teilen besteht und daher ca. 300 Kontaktbedingungen entstehen, kann ich ja aus zeitlichen Gründen nicht jede Kontaktbedingung einzeln auswählen. Daher meine Idee mit einem Makro. Ich habe schon einige Makroversuche hinter mir, aber nur solche, bei denen alle Elemente ausgewählt werden und dann die eigentliche Operation durchgeführt wird. Bei meinem Problem aber, weiß ich nicht wie man das programmiert, dass man nach "Flächenkontakt*" sucht und den Befehl "Eigenschaft der fixierten Verbindung" auf jede einzelne gefundene Bedingung anwendet.???
Ich bin programmiertechnisch nicht die die versierteste und hoffe auf Eure Hilfe!
Vielleicht kann mir doch jemand helfen, damit ich meine Arbeit nicht vorzeitig beenden muss, denn alle Bedingungen per Hand anzuklicken wäre ein ziemlicher Nachteil des Programms!

Danke für Eure Hilfe
Eileen

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

---

Servus
Willkommen im Forum.
Ich frag mal ganz provokant:
Ist es wirklich sinnvoll 300 Kontaktverbindungen zu verwenden? Oder treibt das nur den Rechenaufwand in die Höhe? Könntest du ggf das Modell vereinfachen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

Sinn der Aufgabe ist es Ansys und Catia zu vergleichen. Das Modell muss ich so als gegeben hinnehmen. Das Modell ist aus vielen einzelnen Profilen erstellt, es zu vereinfachen kostet wieder Zeit. So wäre es doch das sinnvollste die "fixierten Verbindungen" auf die bestehenden Kontaktbedingungen anzuwenden. Den Rechenaufwand würde ich an der Stelle noch nicht mit einkalkulieren. Ich habs schon mal mit knapp 70 Kontaktbedingungen versucht und die Rechenzeit waren knapp 7 Minuten mit gutem Ergebnis.

Viele Grüße
Eileen

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

---

Servus
Also eine Makroaufzeichnung zur Erstellung einer Verbindung sieht viel versprechend aus.
Dieses Makro muss dann noch modifiziert werden, dass
- die Collection aller Bedingungen durchgearbeitet wird
- mit "Type" dabei die Kontaktbedingungen rausfiltern und somit für jede Kontaktbedingung ein Bedingung im FEM erzeugen.
zB (nicht getestet):

Code:

---

Sub CATMain()

Dim analysisDocument1 As AnalysisDocument
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

Dim analysisLinkedDocuments1 As AnalysisLinkedDocuments
Set analysisLinkedDocuments1 = analysisManager1.LinkedDocuments

Dim productDocument1 As ProductDocument
Set productDocument1 = analysisLinkedDocuments1.Item(1)

Dim product1 As Product
Set product1 = productDocument1.Product

Dim constraints1 As Constraints
Set constraints1 = product1.Connections("CATIAConstraints")
Dim constraint1 As Constraint
Dim basicComponents1 As BasicComponents

For i = 1 To constraints1.Count
        If constraints1.Item(i).Type = catCstTypeSurfContact Then
            Set analysisEntity1 = analysisEntities1.Add("SAMFaceFaceContact")
            Set constraint1 = constraints1.Item(i)
            analysisEntity1.AddSupportFromConstraint product1, constraint1
        End If
Next

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd!

Ich danke Dir für Deine schnelle Hilfe, genau das hab ich gebraucht!

Danke Dir, Beste Grüße
Eileen

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