---

Hallo,

ich möchte per Makro CGR-Dateien in ein Product einfügen.
Die Liste der CGR-Dateien schreibe ich vorher in einen Array.

Mit dem Befehl

newprods.AddComponentFromFiles arrayofVariantOfBSTR1,"All"

möchte ich die Dateien einfügen.
Das zugehörige Produkt habe ich per Makro neu in CATIA anlegen lassen.

Es kommt zwar keine Fehlermeldung, aber die Dateien werden leider nicht eingefügt.

Hat dazu jemand eine Idee. 

Viele Grüsse aus dem sonnigen Süden.

Criollo

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

---

Servus
Hast du im Array den kompletten Pfad oder nur den Dateinamen eingelesen? Gemäß Doku vermute ich, dass es der komplette Pfad sein sollte

Gruß
Bernd

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

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

---

Hallo  ,

also der Fehler ist ohne Codeschnipsel für niemanden nachzuvollziehen. Das folgende Script funktioniert. Vielleicht vergleichst du mal und findest den Fehler 

Code:

---

Sub CATMain()

    '***DEKLARATIONEN
    Dim intRootProdDocObj As Object 'ProductDocument
    Dim intIGESList(0)
    Dim intProdObj As Object 'As Product
   
    '***DATEINAMEN ÜBERGEBEN
    intIGESList(0) = "C:\Documents and Settings\Administrator\Desktop\IGES TEST.igs"
   
    '***INSTANZIERUNHG
    Set intRootProdDocObj = CATIA.Documents.Add("Product")
    intRootProdDocObj.Product.Products.AddComponentsFromFiles intIGESList, "All"

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

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

---

Servus

Laut Doku darf der Array nur eindimensional sein.

Gruß
Bernd

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

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

---

Hallo  ,

ich gebe Bernd recht. Die Methode will ein eindimensionales Array. Ich verstehe hier so und so deinen Ansatz mit dem zweidimensionalen Array nicht ganz. Anbei mal meine Beispiel. Das Teil speichert aus jeder Konfiguration einer DesignTable ein *.cgr, erstellen danach ein neues Produkt und fügt diesem alle erstellten *.cgr hinzu.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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