---

Hallo ich versuche automatisch einige (viele) Punkte in ein Netz einzubinden.

Die Doku schweigt sich gerade bei diesem Thema aus, oder ich finde es nicht...
Dies ist was der Makro Rekorder aufgezeichnet hat:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Set analysisDocument1 = CATIA.ActiveDocument

Set analysisManager1 = analysisDocument1.Analysis

Set analysisModels1 = analysisManager1.AnalysisModels

Set analysisModel1 = analysisModels1.Item(1)

Set analysisSets1 = analysisModel1.AnalysisSets

Set analysisMeshManager1 = analysisSets1.ItemByType("MSHMeshSet")

Set analysisMeshParts1 = analysisMeshManager1.AnalysisMeshParts

Set analysisMeshPart1 = analysisMeshParts1.Item("OCTREE Tetrahedron Mesh.1 : Pruefkoerper_V3.1")

Set analysisEntities1 = analysisMeshPart1.AnalysisEntities

Set analysisEntity1 = analysisEntities1.Add("MSHLocalMeshImposedPoints")

Set analysisLinkedDocuments1 = analysisManager1.LinkedDocuments

Set productDocument1 = analysisLinkedDocuments1.Item(1)

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Pruefkoerper_V3.CATPart")

Set part1 = partDocument1.Part

Set analysisMeshLocalSpecification1 = analysisMeshPart1.GetItem("CATIAAnalysisMeshLocalSpecification1058")

Set analysisMeshPart1 = analysisMeshLocalSpecification1.Parent

...

---

Das Problem liegt in der Markierten Zeile: Das Verfahren GetItem ist Fehlgeschlagen

Hatte das Gefühl das die Zahl am Ende variert und quasie beliebig ist.

Habe darum versucht mit einem try-catch-block zu arbeiten und habe den in Frage kommenden Zahlenraum 0-10000 geteste -> hatte keinen Erfolg.

Ich habe in diesem Bereich wenig Erfahrung mit der Programmierung. Wenn mir jemand weiter helfen könnte wäre ich sehr dankbar.

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