---

15-02-_2018_08-28-16.jpg

Kann mir beim User Material erstellen helfen, wo ich den Pfad vom Katalöog finde, im Onlinedoku steht.

Code:

---

MaterialFile = CATIA.FileSystem.ConcatenatePaths(sDocPath, "online\CAAScdAniUseCases\samples\CatalogForAutomation.CATMaterial")
Set oMaterial_document = CATIA.Documents.Open(MaterialFile

---

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

---

Servus

Benötigst du den Katalog aus der Doku, oder den Standardkatalog aus der Installation? Oder hast du eigene Kataloge?
Schau doch mal im Catia-Installationsverzeichnis (intel_a\startup\materials)

Gruß
Bernd

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

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

---

Code:

---

Sub CATMain()

'-----------------------------------------------------------
'Optional: allows to find the sample wherever it's installed
'sDocPath = CATIA.SystemService.Environ("CATDocView")
'If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then
'Err.Raise 9999, , "No Doc Path Defined"
'End If
'-----------------------------------------------------------

'Open the CATAnalysis Document

Dim sDocPath As String
sDocPath = "D:\sw\cv5\B26s03h42\win_b64\startup\materials\German"
Dim sFilePath As String
'sFilePath = CATIA.FileSystem.ConcatenatePaths(sDocPath, "online\CAAScdAniUseCases\samples\Beam.CATAnalysis")
sFilePath = CATIA.FileSystem.ConcatenatePaths(sDocPath, "Catalog.CATMaterial")
Set oAnalysisDocument = CATIA.Documents.Open(sFilePath)

'Retrieve the Analysis Managar and Analysis Model
Set cFamilies_list = oAnalysisDocument.Families

ifamily_no = 5
Set oFirst_family = cFamilies_list.Item(ifamily_no)

Set cMaterials_list = oFirst_family.Materials

imaterial_no = 16

Set oMaterial1 = cMaterials_list.Item(imaterial_no)

imaterial_no = 1
Set oMaterial1 = cMaterials_list.Item(imaterial_no)
Set anlysisMaterial = oMaterial1.CreateAnalysisData("SAMAnisotropicMaterial")

---

das Problem ist es wird in CATIA das Katalog geöffnet, das möchte ich nicht. Ich möchte, dass das Makro einfach nur ein Material im FEM Workbench erstellt. Mit der oberen anzeige kann ich das Material im makro erkennen welches sich suche, nur wie erstelle ich das am besten?

hier gibt es eine Fehlermeldung

Code:

---

Set anlysisMaterial = oMaterial1.CreateAnalysisData("SAMAnisotropicMaterial")

---

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

---

Servus

Hast du das Beispiel aus der Doku mal zum laufen gebracht?
Hast du das Makro auch nachvollziehen können?
Ist in deinem Code oAnalysisDocument nun der Materialkatalog oder das Analysis-Dokument?
Reicht es nicht wenn du mit ApplyMaterialOnUserMaterial das Material übergibst? Warum willst du die Werte vorher nochmal festlegen?
ggf kannst du den Material-Katalog auch mit Read anstatt mit Open ansprechen.

Gruß
Bernd

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

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

---

Zitat:

---

Hast du das Beispiel aus der Doku mal zum laufen gebracht?

---

nicht wirklich, habe teile versucht nachvollzuziehen.

Zitat:

---

Ist in deinem Code oAnalysisDocument nun der Materialkatalog oder das Analysis-Dokument?

---

ich habe das Dokument schon geöffnet, ich möchte nur ein Material zusätzlich erstellen. Anschließend das eigentliche Makro laufen lassen. Und das kriege ich seit heute morgen nicht hin

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

---

Servus

AFARI ist es zumindest im PartDesgin so, dass eine Material darin nicht erzeugt werden kann sondern immer aus Materialdocument übertragen werden muss.
ggf ist das im Analysisdocument auch so.
Und wo willst du nun ein Material zusätzlich erstellen?

Gruß
Bernd

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

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

---

Materialkatalog.PNG

Hallo!

Der Materialkatalog befindet sich hier (siehe Bild)!

Liebe Grüße aus Wien,
Christoph

[Diese Nachricht wurde von C.Samer am 15. Feb. 2018 editiert.]

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