---

Hallo,
bin neu hier und hab da ein kleines Problem. Ich hab die Suchfkt schon genutzt, aber leider nichts passendes gefunden & hoffe Ihr könnt mir weiterhelfen...

Ich schreibe ein Makro mittels VBA für Catia v5, das ein Produkt aus einzelnen Produkten erstellt, welche aus einer Excel-Tabelle ausgelesen werden. Er schnappt sich auch die richtigen Produkte, welche immer die selben sind(ein Magnet z.Bsp).
Ich hole mir also 4 mal den Magneten.
Danach möchte ich die Produkte verschieben mittels Transformationsmatrix. Anschließend benutze ich SetComponents , wobei es zu folgendem Fehler kommt: "Das Verfahren SetComponents ist fehlgeschlagen". In Catia sehe ich dann die Magnete ineinander, ohne jede offset-verschiebung...ich schick mal den code:

Sub CATMain()

        filename = "C:\Catia\HESR.csv"
        trennzeichen = ";"
        Set filesys = CATIA.FileSystem
        Set file = filesys.GetFile(filename)
        Set textstream = file.OpenAsTextStream("ForReading")

' Produkt neu anlegen **********

        Set documents1 = CATIA.Documents
        Set productDocument1 = documents1.Add("Product")
        Set product1 = productDocument1.Product
        product1.PartNumber = "HESR-Zusammenbau"
        Set productDocument1 = CATIA.ActiveDocument

        Dim Transformation(12)
        Dim Teile(20)

' Jetzt werden die Daten gelesen. Dazu wird eine Do-While Schleife verwendet.
For i = 0 To 3

        line = textstream.ReadLine
        values = Split(line, trennzeichen)
       
     
'Hier hole ich mir die Teile aus der Excel-Tabelle
        Teile(i) = values(0)

Next
        Set products1 = product1.Products
        products1.AddComponentsFromFiles Teile, "All"

Transformation(0) = 0
Transformation(1) = 1
Transformation(2) = 0
Transformation(3) = 1
Transformation(4) = 0
Transformation(5) = 0
Transformation(6) = 0
Transformation(7) = 0
Transformation(8) = 1
Transformation(9) = 5
Transformation(10) = 7
Transformation(11) = 9

    product1.Products.Item(1).Position.SetComponents Transformation
     
        textstream.Close

End Sub

 

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

---

Hallo Onikage,
ändere folgende Zeile:

Dim Transformation(12) --> Dim Transformation(11)

Das Array ist um eins zu groß, das mag CATIA gar nicht...

Könnte sein, dass du danach noch einen "Function/Interrface...restricted...supported"-Fehler bekommst, dann probier folgendes:

Dim ThePos 'As Position (as Variant)
Set ThePos = TheProduct.Position
ThePos.SetComponents (Transformation)

Gruß
CAMiCADse

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