---

Ich habe das Problem das ich Catia V4 *.model Datein per Kopieren und spezial Einfügen -> Speichern in V5 *.part umwandeln muss. Nun wollte ich ein Makro dafür schreiben.

Ablauf:
Makieren des Masters der *.model (laut "Eigenschaften" Name="CAT_1000_1")
kopieren des Selektierten Objects
Spezial Einfügen in neuem .CATPart
Speichern

Soviel zur Theorie ....

Mein Code sieht wie folgt aus:

Code:

---

Set document1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = document1.Selection

selection1.Clear

Dim v4MasterModel1 As CATBaseDispatch
Set v4MasterModel1 = document1.GetItem("CAT_1000_1")

selection1.Add v4MasterModel1

selection1.Copy

Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Add("Part")

Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("Part1")

Dim part1 As Part
Set part1 = partDocument1.Part

part1.Update

Set partDocument1 = CATIA.ActiveDocument

partDocument1.SaveAs "name.CATPart"

---

Ist per Makro aufzeichnung im CATIA V5 R15 entstanden ... leider streikt er schon bei:

Code:

---

Set v4MasterModel1 = document1.GetItem("CAT_1000_1")

---

Mit der Fehlermeldung:

Zitat:

---

Das Verfahren GetItem ist fehlgeschlagen.

---

hat jemand ne Idee woran das liegen könnte?

------------------
..:: Life is a bitch - but life goes on ::..

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

---

Ich habe eine teilantwort hier gefunden. Leider bedarf es dabei noch einer Selektion und genau diese brauch ich noch automatisiert ... So das man das Makro starten kann und das zum speichern fertige CATPart hat (soll später noch mit vorherigem Laden und abschließenden Speichern verfeinert werden...^^)

------------------
..:: Life is a bitch - but life goes on ::..

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

---

Problem gelöst ... fals jemand die Lösung interessiert ...

Code:

---

Dim InputObjectType(0)
selection1.Clear
InputObjectType(0) = "V4MasterModel"
selection1.Search "Name=CAT_1000_1"
status = selection1.SelectElement3(InputObjectType, "Körper auswählen (für Abbruch: Esc drücken)", True, CATMultiSelTriggWhenSelPerf, False)
selection1.Copy

---

durch die selection1.Search wird ihm ne Nutzer Selektion "vorgespielt" und er kopiert ohne Probleme ... die selection1.Search muss nur vor dem SelectElement gemacht werden!

------------------
..:: Life is a bitch - but life goes on ::..

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