---

Hallo,

ich hab mir im Makrorecorder ein einfaches Makro aufgenommen.
Es sind 2 Parts geöffnet aus Part2 möchte ich einen Körper mit
Copy/Paste (As specified in Partdocument einfügen). Catia
bricht jedoch mit einer Fehlermeldung ab, weil das Makro in
den Hauptkörper in Part1 einfügen will.
Wie mache ich per Macro die Root-Ebene von Part1 aktiv

Gruss
Michi

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

---

Hallo michi79,

eine (fast) gleiche Diskussion läuft doch gerade schon im Forum, schau mal hier!

mfg,
Lusilnie

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

frei nach größeren Geistern

[Diese Nachricht wurde von Lusilnie am 20. Mrz. 2009 editiert.]

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

---

Hallo Lusilnie,

der Zylinder hat eine positionierte Skizze als Grundlage.
Das kommt in CATIA beim einfügen auch schon eine Fehlermeldung
"Sketch5.You will need to modify the absolute axis definition to solve the problem". Dies Bestätige ich in CATIA mit "close" und ändere anschliessend den Sketch Support. Kann man diese Fehlermeldung bzw. das "Close" im Macro mitabfangen ?

Gruss
Michi

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

---

hallo michi,

du versuchst es mit einem standard paste. dies erzeugt das gleiche objekt in dem neuen part. klar das dies vehlschlägt, weil die umgebung die dein sketch kennt nicht vorhaden ist, und er somit seinen support verliert. vielleicht versuchst du es eher einmal mit paste special.

paste special (as specified part in document)  entspricht dem normalen paste
paste special (as result with link)  erzeugt eine kopie mit link
paste special (as result)  erzeugt eine tote kopie ohne link

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

---

Hallo,

anbei der Code. Das Paste Special habe ich eingefügt, da der
Makrorekorder den Befehl mit der folgenden Fehlermeldung
nicht mitaufgezeichnet hat. Das Makro läuft ohne Fehlermeldung
durch, der Zylinder wird jedoch nicht eingefügt

Gruss
Michi

Sub CATMain()

Dim windows1 As Windows
Set windows1 = CATIA.Windows

Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = windows1.Item("Zylinder.CATPart")

specsAndGeomWindow1.Activate

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Clear

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Zylinder-Koerper")

selection1.Add body1

selection1.Copy

Dim specsAndGeomWindow2 As SpecsAndGeomWindow
Set specsAndGeomWindow2 = windows1.Item("Platte.CATPart")

specsAndGeomWindow2.Activate

Dim partDocument2 As PartDocument
Set partDocument2 = CATIA.ActiveDocument

Dim part2 As Part
Set part2 = partDocument2.Part

Dim selection2 As Selection
Set selection2 = partDocument2.Selection

selection2.Clear

selection2.PasteSpecial "CATPrtCont"

'MsgBox ("Nach einfügen")

part2.Update

End Sub

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