---

Hallo Programmiergemeinde,

ich bin auf der Suche nach einem Macro, das ein Produkt mit mehrerern Unterprodukten in einem alle Produkte erkennt und jedes Produkt in ein allcatpart umwandelt und abspeichert.

Hat jemand solch ein Macro ? oder kann mir weiterhelfen ?

Vorab Vielen Dank !!

Gruß

Ambos

------------------
Ambos

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

---

Hallo Amboß,

also wenn ich das richtig verstehe möchtest Du alle Produkte in einem Produkt in allcatparts umwandeln. Das kannst Du mit einer Schleife realisieren, die Parts und Products unterscheidet und dann eben von den Products AllCatParts macht.
Hier mal ein Beispiel für eine Schleife:

Code:

---

Sub CATMain ()

Dim intDocObj
Dim intProdObj
Dim intProdsObj

Set intDocObj = CATIA.ActiveDocument
Set intProdObj = intDocObj.Product
Set intProdsObj = intProdObj.Products

For i = 1 To intProdsObj.Count

If Typename (intProdsObj.Item (i).ReferenceProduct.Parent) = "ProductDocument" Then
'hier der Code für AllCatPart

End If

Next

End Sub

---

Und hier was zu AllCatParts

Gruß
Sven

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