---

Helo gentleman

Sorry, Not really good with German language. I have a code that suppose to copy and paste in new part (without link).

It works good with solids but geometric sets are not being pasted. Could some help me with. Appreciate you help.

-----

Sub xpart()
'----------------------
'Dim documents1 As Documents
'Set documents1 = CATIA.Documents
Dim partDocument2 As PartDocument
Dim PartDoc1 As Part
On Error Resume Next
Set PartDoc1 = CATIA.ActiveDocument.Part
If Err.Number <> 0 Then
Message = MsgBox("Open Catia file to generate X FILE")
Exit Sub
End If

Set selection1 = CATIA.ActiveDocument.Selection
selection1.SelectElement3 Array("HybridBody", "Body"), "SELECT BODIES & GEO SETS TO PASTE IN NEW FILE", False, CATMultiSelTriggWhenUserValidatesSelection, True
selection1.Copy
Set selection1 = partDocument2.Selection
Dim documents2 As Documents
Set documents2 = CATIA.Documents
Set partDocument2 = CATIA.Documents.Add("Part")
Dim Part2 As Part
Set Part2 = partDocument2.Part
selection1.Add Part2
selection1.PasteSpecial "CATPrtResultWithOutLink"
selection1.Clear
End Sub
----------------

thanks-appvid

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

---

can't see any problems with that code

Code:

---

Sub xpart()
'----------------------
'Dim documents1 As Documents
'Set documents1 = CATIA.Documents
Dim partDocument2 As PartDocument
Dim PartDoc1 As Part
Dim selWork    As INFITF.Selection
Dim objBlubb    As Object
On Error Resume Next
Set PartDoc1 = CATIA.ActiveDocument.Part
If Err.Number <> 0 Then
MsgBox ("Open Catia file to generate X FILE")
Exit Sub
End If

Set selWork = CATIA.ActiveDocument.Selection
Set objBlubb = selWork
Call objBlubb.SelectElement3(Array("HybridBody", "Body"), "SELECT BODIES & GEO SETS TO PASTE IN NEW FILE", False, CATMultiSelTriggWhenUserValidatesSelection, True)
selWork.Copy
Dim documents2 As Documents
Set documents2 = CATIA.Documents
Set partDocument2 = CATIA.Documents.add("Part")
Dim part2 As Part
Set part2 = partDocument2.Part
Set selWork = partDocument2.Selection
selWork.add part2
Call selWork.PasteSpecial("CATPrtResultWithOutLink")
selWork.Clear
End Sub

---

Please fill out your system-information to check for other problems.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Thanks Lila.  your code worked beautifully...appvid

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

---

Ich möchte verschiedene Elemente aus einem Part in verschiedene andere kopieren. Bei den meisten FUnktioniert das auch, nur an einer Stelle (einfügen einer Fill-Fläche) bekommen ich die Fehlermeldung: "Server threw an exception", obwohl ich genau so vorgehe wie bei den anderen Elementen, bei denen es funktioniert. Mein Code sieht vom Prinzip her so aus:

Code:

---

Set part1 = CATIA.ActiveDocument.Part

Set selection = CATIA.ActiveDocument.selection

Set oZuKopieren = Geoset.hybridshapes.item(1)

selection.Clear
selection.Add oZuKopieren
selection.Copy

CATIA.Documents.Open (sdocPart)

Set part1 = CATIA.ActiveDocument.Part

Set selection = CATIA.ActiveDocument.selection

Set KonturSet = InputSet.HybridBodies.Item(1)

selection.Clear
selection.Add KonturSet
selection.PasteSpecial "CATPrtResult"

---

Hat dazu vll jemand eine Idee?

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

---

Servus
Tritt dieser Fehler nur bei einer bestimmten Fill-Fläche auf, oder allgemein bei allen Fill-Flächen?
Hast du die Datei mal mit CATDUA bereinigt (falls dies nur bei einer bestimmten Fläche auftritt)?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Habe gerade festgestellt, dass wenn ich das 2. mal für den Kopiervorgang ein PartDocument öffne, bei den Eigenschaften der Selection im Watch-Fenster mehrmalls "automation error" angezeigt wird. Wie kommt das?
Im Prinzip suche ich einfach nur nach einem bestimmten PartDocument, öffne es und Definiere die Selection über CATIA.ActiveDocument.Selection. Das müsste doch immer möglich sein...

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

---

Der Fehler kommt schon bei

Code:

---

selection.clear

---

bis zum eigentlichen Einfügen komme ich also gar nicht!

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

---

Servus
Schau nach einem Bug aus.
Ab R19SP9 sollte der Fehler behoben sein.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ich habe R19 SP9!

Hab das Makro wie folgt geändert.

erst neues Dokument öffnen.
Dann Ausgangs-Dokument aktivieren und den Copy-Vorgang durchführen.
Dann das bereits geöffnete Dokument wieder aktivieren und Einfügen.

Hat dann auch geklappt vor ein paar Stunden.
Jetzt möchte ich das gleiche nochmal durchführen und es kommt wieder eine Fehlermeldung...

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