---

Hallo zusammen,

ich greife mit Visual Basic 2010 auf Catia zu.
Dort sollen alle bei allen Parts die Properties überprüft und gegebenfalls ergänzt werden.

Hier ist bis jetzt meine Code:
        Dim i As Integer
        Dim test As String
        CATIA = GetObject(, "CATIA.Application")

        test = InputBox("Trage hier etwas ein")
        For i = 1 To CATIA.ActiveDocument.Product.Products.Count
                CATIA.ActiveDocument.Product.Products.item(i).DescriptionRef = test
        Next
        documents1 = CATIA.Documents
        productDocument1 = CATIA.ActiveDocument.product
        productDocument1.DescriptionRef = test

Das Funkioniert auch soweit ganz gut. Jetzt möchte ich nach der schleife eine überprüfungen ansetzen, ob der Partname mit "1111" beginnt.
Nur leider funkioniert das nicht so ganz wie ich möchte """Left(CATIA.ActiveDocument.product.name, 4)""""

Meine zweite frage wäre. Meine Schleife durchläuft alle Parts in einer Baugruppe. Beim Öffnen einer Vorrichtung durchläuft die Schleife nur die Baugruppen.
Ich müsste dementsprechend noch eine Ebene tiefer gelangen. Wie wäre das umzusetzen?

Vielen Dank

Gruß

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

---

Das Problem mit Left habe ich nun doch geschafft zu lösen.

        Dim i As Integer
        Dim test As String
        CATIA = GetObject(, "CATIA.Application")

        test = InputBox("Trage hier was ein")
        CATIA.ActiveDocument.product.applyworkmode(DESIGN_MODE)
        For i = 1 To CATIA.ActiveDocument.Product.Products.Count
            If Strings.Left(CATIA.ActiveDocument.Product.Products.item(i).name, 6) = "111111" Then
                CATIA.ActiveDocument.Product.Products.item(i).DescriptionRef = test
            End if     
        Next
        documents1 = CATIA.Documents
        productDocument1 = CATIA.ActiveDocument.product
        productDocument1.DescriptionRef = test

Jetzt besteht nur noch die Frage wie ich diese eine Ebene tiefer gelange.

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

---

Hallo zusammen,

ich habe einen hier in dem Forum einen Code gefunden der anscheinend meinen Wünschen entspricht. Leider müsste ich diesen etwas an Visual Basic anpassen

Code:

---

 
sub ProAuslesen()
  Dim ProduktDoc As ProductDocument
  Dim Produkt As Product

  Set ProduktDoc = CATIA.ActiveDocument
  Set Produkt = ProduktDoc.Product
  CATAusProdukt Produkt
end sub

Function CATAusProdukt(ByVal Produkt As Product)
  Dim produkte As Object
  Set produkte = Produkt.Products
    For i = 1 To produkte.count
      CATAusProdukt (produkte.Item(i))    'rekursive Aufruf
      'hiermit hat man die jeweilige Produktname
        msgbox produkte.Item(i).name  
    Next i
End Function

---

In catvba funkioniert er einwandfrei, jedoch bekomme ich ihn in Visual Basic nicht zum Laufen. Ich wäre dankbar für eure Hilfe.

[Diese Nachricht wurde von Azazel1 am 09. Sep. 2014 editiert.]

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

---

Servus
Welche Fehlermeldung kommt den in Visual Studio?
IMHO musst du noch CATIA ansprechen. Schau dir mal diesen Code an.

Gruß
Bernd

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

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

---

Hallo Bernd,

mein code sieht wie folgt aus

Code:

---

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        CATIA = GetObject(, "CATIA.Application")
        Dim ProduktDoc As ProductDocument
        Dim Produkt As Product

        ProduktDoc = CATIA.ActiveDocument
        Produkt = ProduktDoc.Product <------ an dieser Stelle erscheint die Fehlermeldung "InvalidCastException" wurde nicht behandelt.
        CATAusProdukt(Produkt)
    End Sub
    Private Sub CATAusProdukt(ByVal Produkt As Product)
        CATIA = GetObject(, "CATIA.Application")
        Dim produkte As Object
        produkte = Produkt.Products
        For i = 1 To produkte.count
            CATAusProdukt(produkte.Item(i))    'rekursive Aufruf
            'hiermit hat man die jeweilige Produktname
            MsgBox(produkte.Item(i).name)
        Next i
    End Sub

---

[Diese Nachricht wurde von Azazel1 am 09. Sep. 2014 editiert.]

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

---

Ist denn ein Produkt offen oder nur ein Part?

Versuch mal Produkt als Variant oder mit LateBinding zu initialisieren.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        CATIA = GetObject(, "CATIA.Application")
        Dim ProduktDoc As Object
        Dim Produkt As Object

        ProduktDoc = CATIA.ActiveDocument
        Produkt = ProduktDoc.Product
        CATAusProdukt(Produkt)
    End Sub

    Private Sub CATAusProdukt(ByVal Produkt As Object)
        CATIA = GetObject(, "CATIA.Application")
        Dim produkte As Object
        produkte = Produkt.Products
        For i = 1 To produkte.count
            CATAusProdukt(produkte.Item(i))    'rekursive Aufruf
            'hiermit hat man die jeweilige Produktname
            MsgBox(produkte.Item(i).name)
        Next i
    End Sub

Damit habe ich mein Problem gelöst. Ich habe alle variablen die als product definiert sind durch object ersetzt und siehe das es funktioniert. 

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