---

Hallo,

Ich bin bei uns in der Firma als Programmierer tätig, hab aber keinen blassen schimmer von Catia.

Ich wollte bei uns nun aber einen Vorgang automatisieren bei dem immer wieder Daten aus Catia Projekten nachgezeichnet werden.

Ich habe nun von meinen Kollegen einen Laptop mit Catia und ein Beispielprojekt bekommen.

Wir haben da einen Zeichnung (Catprodukt) in welcherer mehrere CatParts verwendet sind.

Ich versuche nun in VBA die Zeichnung zu durchlaufen und die X/Y/Z Coordinaten und die Größe der CatParts auszulesen (mehr brauch Ich am Anfang mal noch nicht)

Das durchlaufen bekomme Ich hin (den zugriff auf die Parts) aber wie bekomme Ich von einem Part seine Koordinate?

Hier mal mein Code:

Dim partDocument1 As PartDocument
Set doc = CATIA.Documents
Set partDocument1 = doc.Item("blablabla.CATPart")

wie bekomme Ich nun von dem partDocument1 die Position?

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

---

Servus
Willkommen im Forum.
Als Einstieg empfehle ich dir zunächst allgemeine Literatur zu VBA oder VB 6.0 m mal de Grundlagen kennen zu lernen (sollten genügend Tutorials im Netz zu finden sein).
CATIA spezifisch gibt es meines Wissen zwei Bücher: "CATIA V5 Makroprogrammierung mit Visual Basic Script - R. Ziethen" und "Kochbuch - CATIA V5 automatisieren: Vom Powercopy bis zur C#-Programmierung - Jens Hansen"
Zusätzlich noch die Doku der API (V5Automation.chm) im Installationsverzeichnis.
Zum Thema "Größe von Teilen": such mal nach Bounding Box
Was meinst du mit Koordinaten von Parts? Etwa die Eigenschaft "Position" vom Product-Object (siehe Doku=

Gruß
Bernd

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

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

---

VBA oder VB6 kann ich das ist nicht das Problem... Eher das Objektmodel von Catia...

Aber das mit der Hilfedatei hat auch schon mal geholfen....

Hab nun folgendes Script:

Sub CATMain()

Dim doc As ProductDocument

Set doc = CATIA.ActiveDocument

getAllSubProducts doc.Product

End Sub

Sub getAllSubProducts(ByRef p As Product)

Dim posA(11)

Dim prd As Product

For n = 1 To p.Products.Count
   
    Set prd = p.Products.Item(n)

    getAllSubProducts prd

    Set pos = prd.Position

    pos.GetComponents posA

    Debug.Print prd.Name
    Debug.Print "x1:" + Str(posA(0)) + "  x2:" + Str(posA(1)) + "  x3:" + Str(posA(2)) + "  y1:" + Str(posA(3)) + "  y2:" + Str(posA(4)) + " y3:" + Str(posA(5)) + "  z1:" + Str(posA(6)) + "  z2:" + Str(posA(7)) + "  z3:" + Str(posA(8)) + "   o1:" + Str(posA(9)) + "  o2:" + Str(posA(10)) + "  o3:" + Str(posA(11))

Next n

End Sub

Weis noch nicht ganz ob das genau die Infos sind die Ich brauch, aber damit komm Ich mal weiter...

[Diese Nachricht wurde von jogibear9988 am 22. Sep. 2013 editiert.]

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

---

Habs jetzt noch ein bischen erweitert...

Was Ich jetzt wahrscheinlich noch brauche sind die Maße des Objektes, bin mir da abe rnicht ganz sicher, wie und was Ich noch genau brauch oder ob mir die Infos weiterhelfen...

Muß da jetzt erst mal noch mit unseren 3D Zeichnern reden...

Danke für die Hilfe auf jeden Fall...

Sub CATMain()

Dim doc As ProductDocument

Set doc = CATIA.ActiveDocument

Open "c:\test.csv" For Output As #1

Print #1, "Name;Parentname;a;b;fnm;X1;X2;X3;Y1;Y2;Y3;Z1;Z2;Z3;O1;O2;O3"
getAllSubProducts doc.Product

Close #1
End Sub

Sub getAllSubProducts(ByRef p As Product)

Dim posA(11)

Dim prd As Product

For n = 1 To p.Products.Count
   
    Set prd = p.Products.Item(n)

    getAllSubProducts prd

    Set pos = prd.Position

    pos.GetComponents posA

    nm2 = prd.Parent.Parent.Name
    nm3 = prd.PartNumber
    nm4 = prd.Parent.Parent.PartNumber
    fnm = prd.ReferenceProduct.Parent.Name
    Print #1, prd.Name + ";" + nm2 + ";" + nm3 + ";" + nm4 + ";" + fnm + ";" + Trim(Str(posA(0))) + ";" + Trim(Str(posA(1))) + ";" + Trim(Str(posA(2))) + ";" + Trim(Str(posA(3))) + ";" + Trim(Str(posA(4))) + ";" + Trim(Str(posA(5))) + ";" + Trim(Str(posA(6))) + ";" + Trim(Str(posA(7))) + ";" + Trim(Str(posA(8))) + ";" + Trim(Str(posA(9))) + ";" + Trim(Str(posA(10))) + ";" + Trim(Str(posA(11)))
Next n

End Sub

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