---

Hallo zusammen,

wir müssen im aktiven Part den Hauptkörper kopieren und als Ergebnis (also ohne Historie) in ein neues Teil einfügen (wird manuell dann Körper.2).
Was ist an dem Makro falsch, denn es erstellt zwar ein neues Teil, fügt aber nichts ein...?

Sub Hauptkoerper_kopieren()
Set Document1 = CATIA.ActiveDocument
Set part1 = Document1.Part
Set body1 = part1.Bodies.Item(1)
Set selektion1 = CATIA.ActiveDocument.Selection
selektion1.Clear
selektion1.Add body1
selektion1.Copy
'Document.Close
Set Document2 = CATIA.Documents.Add("Part")
Document2.Activate
MsgBox selektion1.Count
MsgBox selektion1.Item(1).Value.Name
Set part2 = Document2.Part
Set selektion2 = Document2.Selection
selektion2.Add body1
MsgBox selektion2.Count
MsgBox selektion2.Item(1).Value.Name
Set bodies2 = part2.Bodies
Set body2 = bodies2.Item(1)
part2.InWorkObject = body2
selektion2.PasteSpecial ("CATPrtResult")
part2.Update
End Sub

Vielen Dank für Eure Antworten...

Gruß
Spezi

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

---

Hallo,

ich habe die Erfahrung gemacht, das ausschlaggebend ist, welches Fenster aktiv ist. Also das Fenster, in welchem das Neue (bzw. das Part, in welches der Körper zugefügt werden soll) als aktiv setzten.
So funktioniert es bei mir (R12)

Set BodyToCopy = MyPart.Bodies.Item(“Name”)
 
Set MySelection = oDoc.Selection
MySelection.Clear
MySelection.Add (BodyToCopy)
MySelection.Copy
           

Set NewPart = CATIA.Documents.Add("Part")
NewPart.Product.Partnumber = PartDocName
NewPart.SaveAs (DocName & ".CATPart")
               
Set MyWindow = CATIA.Windows
MyWindow.Arrange catArrangeTiledHorizontal

Set NewWin = MyWindow.Item (PartDocName & ".CATPart")
NewWin.Activate
NewWin.WindowState = catWindowStateMaximized

Set MySelection = CATIA.ActiveDocument.Selection
MySelection.Add (NewPart.product)
MySelection.PasteSpecial "CATPrtResult"

Gruss

Toralftom

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

---

copy_body.txt

Hallo Torspezialist,
also das Problem bei Dir ist dass Du erst einen body in die selection2 stellst und dann auf die Selection einfügen willst (Body auf Body???). Das kann so nicht.. also irgendwas anderes selektieren in deinem zweiten Part zb. das part selbst (hab ich so gemacht kannst aber auch anders machen.)
MfG Ronny
@Toralftom: bin mir da nicht sicher, ich denke wenn alles sauber zugeordnet ist (Selections) dann ist egal welches fenster offen oder on top ist.

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