Hallo,
anbei mein Code. Ich lasse in dem Code alle Varianten einer DesignTable durchlaufen. Bei bestimmten Konfigurationen wird jeweils ein CGR-File rausgeschrieben. Die Info (Name & Pfad) dazu kommt in den Array, den ich nachher zum einfügen der Daten verwende.
Set root = CATIA.ActiveDocument
Set docs = CATIA.Documents
Set mypart = PN
Set myeinbau = mypart.Parent.Parent
Dim arrayOfVariantOfBSTR1 ()
For each relation in mypart.relations
If instr (relation.name, "Reifenposition") <> 0 then
Set mydt = relation
Exit For
end if
Next
For each para in mypart.parameters
If instr (para.name, "Achsbezeichnung") <> 0 then
Set myachse = para
Exit For
end if
Next
zeilen = 0
For index = 1 to mydt.configurationsNB
mydt.configuration = index
mypart.Update
If instr (myachse.value,"VOK_07") <> 0 then
myeinbau.Update
Set savedoc = docs.Item(myeinbau.name & " ___.CATProduct")
savedoc.ExportData "D:\tmp\" & index & ".cgr", "cgr"
Redim Preserve arrayOfVariantOfBSTR1 (0,zeilen)
arrayOfVariantOfBSTR1 (0,zeilen) = "D:\tmp\" & index & ".cgr"
zeilen = zeilen +1
end if
Next
Set newdoc = docs.Add("Product")
Set newprod = newdoc.Product
Set newprods = newprod.Products
newprods.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
Hab den Code mit dem von DanielFr. verglichen, und kann irgendwie keine wesentlichen Unterschiede feststellen.
Vielleicht fällt euch ja was auf.
Viele Grüsse
Criollo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP