---

Bild.jpg

Hallo Leute,

ich bin neu hier und grüße erstmal alle!

So jetzt zu meinem Problem:

Ich habe einen Process geöffnet, in dem befinden sich jeweils unter ProductList und RessourceList ein CATProduct.
In diesen CATProducts befindet sich jeweils ein CATPart.

also so:

Process
  --> ProductList
        --> CATProduct
              --> CATPart
                    --> Koordinatensystem
  -->RessourceList
        --> CATProduct
              --> CATPart

Im CATPart unter ProductList ist ein Koordinatensystem erzeugt,
welches ich jetzt in das CATPart unter der RessourceList einfügen will. Wenn ich das ganze händisch probiere, ist es kein Problem.
Zuerst doppelklick auf das Part, dann Kopieren des Koordinatensystems, dann Einfügen mit Verknüpfung in dem anderen Part unter der RessourceList.
Versuche ich das ganze per Makro, wird das Koordinatensystem zwar eingefügt, liegt dann jedoch nicht an der richtigen Stelle. Die Sache ist,
dass das kopierte Koordinatensystem ein Ursprungskoordinatensystem ist, also (0,0,0) und beim Einfügen erstellt er auch ein Koordinatensystem im Ursprung (0,0,0) allerdings liegen von außen betrachtet beide Teile so verschoben, dass das Ursprungskoordinatensystem des ersten Parts an einer anderen Stelle liegt, als das Ursprungskoordinatensystem des zweiten Parts. SIEHE BILD

Wie bekomm ich das was händisch funktioniert mit einem Makro hin?

Der Quellcode bisher:

Sub CATMain()

Dim processDocument1 As ProcessDocument
Set processDocument1 = DELMIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = processDocument1.Selection
selection1.Clear

Dim selection2 As Selection
Set selection2 = processDocument1.Selection
selection2.Clear

Dim documents1 As Documents
Set documents1 = DELMIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Tunnel.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Ursprungskoordinatensystem")

selection1.Add axisSystem1
selection1.Copy
selection1.Clear

Dim partDocument2 As PartDocument
Set partDocument2 = documents1.Item("Spanntisch.CATPart")

Dim part2 As Part
Set part2 = partDocument2.Part

Dim axisSystems2 As AxisSystems
Set axisSystems2 = part2.AxisSystems

selection2.Add axisSystem2
selection2.PasteSpecial ("CATPrtResult")
selection2.Clear

part2.Update

End Sub

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

---

Hallo,
ersetze in der Zeile

selection2.PasteSpecial ("CATPrtResult")

CATPrtResult

mit
            "CATPrtResultWithOutLink"

Gruß

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

---

Danke ogard1,

aber leider funktioniert das nicht. Auch wenn ich händisch "Einfügen ohne Verknüpfung" mache,
ruft das genau das Problem hervor, dass es wieder so aussieht wie auf dem Bild.

Wenn ich händisch "Einfügen mit Verknüpfung" mache, passiert genau das was ich will, deshalb denke ich mal,
dass "CATPrtResult" schon richtig ist. Das eigentliche problem liegt anscheinend eher daran, dass
das Makro die Lagebeziehungen zwischen beiden Parts nicht erfasst. Nur hab ich keine Ahnung wie ich
das dem Makro begreiflich machen soll...

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

---

Hallo blockbuster,

ich kenne mich zwar nicht mit DELMIA aus, doch Dein Problem scheint die Art und Weise des Kopierens zu sein. Du kopierst das Achsensystem nicht im Kontext des "Process" sondern separat. Dies führt auch interaktiv zum gleichen Ergebnis! Nur der Weg ist interaktiv anders als Du ihn ausführst. Interaktiv hättest Du das "Tunnel.CATPart" separat geöffnet und das Achsensystem kopiert. Anschließend fügst Du es im separat geöffnetem "Spanntisch.CATPart" ein.
Wenn Du es also wie interaktiv getestet per Makro machen willst, musst Du das Kopieren im Kontext des "Process" erledigen. Aus meiner Sicht musst Du Dich vom "Process" zum "Tunnel.CATPart" herunterhangeln, das Achsensystem kopieren, Dich vom "Process" zum "Spanntisch.CATPart" herunterhangeln und das Achsensystem einfügen.
Soweit die Theorie. Ob und wie das praktisch geht, musst Du allerdings selbst testen!

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Hallo,

naja wenn es mit "as Result wirh Link" geht udn ohne nicht, dann würde ich jetzt ds Koordinatensystem "as Result with Link" einfügen und anschließend isolieren. Das führt doch dann zum gewünschten Ergebniss.

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hallo,

@ Lusilnie: Also es is ist in so fern richtig was du sagst, dass ich interaktiv das Koordinatensystem im geöffneten "Tunnel.CATPart" kopiere, aber das Einfügen funktioniert nur wie gewünscht, wenn ich nicht im geöffneten "Spanntisch.CATPart" bin, sondern das Fenster des Process aktiv ist. Hab ich auch schon versucht so zu schreiben, also das Processfenster vorm Einfügen zu aktivieren, aber auch da fügt er es ein, ohne die Lagebeziehung von Tisch und Tunnel zu berücksichtigen.

@ denyo: Ich weiß grad nicht, was du mit isolieren meinst??? Wär nett, wenn du das erörtern würdest 

Anscheinend hatte bisher noch keiner so ein verdammtes Problem... Was läuft nur falsch mit mir 

Übrigens : Danke für die vielen Antworten! Macht bitte weiter, vll komm ich ja dann mal drauf...

Grüße!

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