---

Hallo Zusammen,

Ich versuche die im Hintergrund geöffneten Fenster zusammen zu adden für ein Vergleich.

Dim FensterZahl As Integer
Dim n As Integer

FensterZahl = CATIA.windows.Count
n = FensterZahl - 1

Dim windows As windows
Set windows = CATIA.windows

windows.Item(n + 1).Activate

Dim A As ProductDocument
Set A = CATIA.ActiveDocument

For i = 1 To n

windows.Item(i).Activate

Set B = CATIA.ActiveDocument

Set A = B.Add().Product

Next

Ich bin noch ein Anfänger und das ist mein erster Versuch! Könnt Ihr mir bitte helfen wo ich Fehler mache? 

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

---

Servus

Willkommen im Forum. Bitte Systeminfo ausfüllen.
Ich nehme an dass bei dir das im letzten Fenster ein CATProduct geöffnet ist. Um darin ein Einzeltteil/Baugruppe einzufügen gibt es die Methoden AddComponent und AddComponentsFromFiles. (siehe auch Doku)
In den restlichen Fenstern sind dann Einzelteile/Baugruppe die dort eingefügt werden sollen?
Also im Groben sollte folgendes gehen (ungetestet):

Code:

---

Dim FensterZahl As Integer
Dim n As Integer

FensterZahl = CATIA.windows.Count
n = FensterZahl - 1

Dim windows As windows
Set windows = CATIA.windows

windows.Item(n + 1).Activate

Dim oRootDocument As ProductDocument
Set oRootDocument = CATIA.ActiveDocument

For i = 1 To n

   windows.Item(i).Activate

   Set oDocument = CATIA.ActiveDocument
   If TypeName(oDocument) = "PartDocument" or TypeName(oDocument) = "ProductDocument" then
      Set oChildProduct = oDocument.Product
      oRootDocument.Product.Products.AddComponent oChildProduct
   end if

Next

---

Gruß
Bernd

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

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

---

Servus Bernd,

Vielen Dank für die schnelle Antwort.

Im letzten Fenster ist ein CATProduct geöffnet. In den restlichen Fenster kann sowohl ein Product als auch ein Part geöffnet sein.

wenn man das Fenster aktiviert

"windows.Item(i).Activate"

und danach

den Befehl

"Set oDocument = CATIA.ActiveDocument" gibt,

Wird automatisch die Geometrie im Fenster auf oDocument gespeichert?

oder muss man es zuerst selektieren?

Vielen Dank

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

---

Servus

Du musst nichts selektieren.
Hast du meinen Code schon mal probiert?

Gruß
Bernd

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

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

---

Vielen Dank Bernd,

Dein Code funktioniert einwandfrei, Ich glaube ich habe vorher mit "For-Next" einen Fehler gemacht.( Ich bin halt noch ein Anfänger)

Ich schicke  mal den ganzen code hier, Falls jemand es braucht.

Sub CATMain()

'Erstellung eines CADProduktes

Dim ADoc As Document

Set ADoc = CATIA.Documents.Add("Product")

'Umbenennen

Dim BV As ProductDocument
Set BV = CATIA.ActiveDocument

Dim Product1 As Product
Set Product1 = BV.Product

Product1.PartNumber = "BauteilVergleich"

'Fenster Zahl n ohne das Fenster "BauteilVergleich"

Dim FensterZahl As Integer
Dim n As Integer
FensterZahl = CATIA.windows.Count
n = FensterZahl - 1

Dim windows As windows
Set windows = CATIA.windows

windows.Item(n + 1).Activate

Dim oRootDocument As ProductDocument
Set oRootDocument = CATIA.ActiveDocument

'Zusammengügen von geöffneten Fenster

For i = 1 To n

  windows.Item(i).Activate

  Set oDocument = CATIA.ActiveDocument
  If TypeName(oDocument) = "PartDocument" Or TypeName(oDocument) = "ProductDocument" Then
      Set oChildProduct = oDocument.Product
      oRootDocument.Product.Products.AddComponent oChildProduct
  End If

Next
End Sub

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

---

Servus

Zur Info: ADoc, BV und oRootDocument sind das gleiche Dokument.
Somit könntest du den Code etwas vereinfachen/übersichtlicher machen.

Gruß
Bernd

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

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

---

es war sehr hilfreich, Ich bedanke mich Bernd

Ich füge den vereinfachten Code ein.

Sub CATMain()

'Erstellung eines CADProduktes

Dim oRootDocument As Document

Set oRootDocument = CATIA.Documents.Add("Product")

'Umbennenug

Dim Product1 As Product
Set Product1 = oRootDocument.Product

Product1.PartNumber = "BauteilVergleich"

'Fenster Zahl n ohne das Fenster "BauteilVergleich"

Dim FensterZahl As Integer
Dim n As Integer
FensterZahl = CATIA.windows.Count
n = FensterZahl - 1

Dim windows As windows
Set windows = CATIA.windows

windows.Item(n + 1).Activate

Set oRootDocument = CATIA.ActiveDocument

'Zusammengügen von geöffneten Fenster

For i = 1 To n

  windows.Item(i).Activate

  Set oDocument = CATIA.ActiveDocument
  If TypeName(oDocument) = "PartDocument" Or TypeName(oDocument) = "ProductDocument" Then
      Set oChildProduct = oDocument.Product
      oRootDocument.Product.Products.AddComponent oChildProduct
  End If

Next
End Sub

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