---

Hallo,

ich verzweifel hier langsam an einer solch einfachen Sache.

Ich habe folgende Struktur:

CATProduct
- CATPart 1
- CATPart 2
- CATProdukt (flexibel)
  - CATPart 3
  - CATPart 4

Nun möchte ich eigentlich nur die Eigenschaft "Name" des CATPart 4 ändern, was ich mache mit CATPart.Name = "Test"
Wenn ich die obige Anweisung für das flexible CATProdukt benutze, funktioniert es astrein, wenn ich sie für das CATPart anwende, ignoriert er sie einfach, was ist denn da los?

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

---

Hallo

folgendes grad mit dem Makrorecorder aufgezeichnet

Code:

---

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.Item("Produkt2.CATProduct")

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = products1.Item("Teil4.1")

product2.Name = "neu_Teil4.1"

End Sub

---

will man die Teilenummer ändern wäre das folgender code

Code:

---

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Teil4.CATPart")

Dim product1 As Product
Set product1 = partDocument1.GetItem("Teil4")

product1.PartNumber = "neu_Teil4"

End Sub

---

die baugruppe ist Produkt1 und das was du CATProdukt (flexibel) genannt hast ist hier Produkt2

Das heißt um die Partnummer zu ändern reicht dein Ansatz, einfach das Partdokument unter den CATIA.Documents zu suchen, aus. Der Exemplarname eines Parts oder Produkts wird jedoch im gesamten Produktkontext definiert. So das du das Part nicht einfach mit CATIA.Documents.Item(..) definieren kannst sondern mit sowas wie CATIA.ActiveDocument.Products.Item(..).Products.Item(..).. usw. bis du im Strukturbaum bei deinem bauteil bist. Was natürlich sehr schlecht ist wenn man nicht genau weiß wo sich das teil befindet. Ist dann auch möglich bedarf aber bisschen mehr aufwand. sag bescheid falls es dich interessiert.
gruß

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

---

Hallo,

danke für deine schnelle Antwort. Ich bin natürlich an solch einer Lösung interessiert, aber ich frage mich, warum ich es nicht selbst hinbekomme. Ich habe eine Funktion, welche mir die komplette Struktur auf ein bestimmtes Produkt durchsucht und dieses zurückgibt. Ich habe also ein existierendes Produkt vorliegen und sage dann einfach Produkt.Name = "Test"

Dies funktioniert wie gesagt auch für solche Elemente, die direkt unter dem obersten CATProduct liegen, nicht aber für solche, die unter dem flexiblem Produkt liegen, irgendwie komisch...

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

---

M_Doc_Structure.txt C_Doc_Structure_Object.txt

Wie sieht den die Funktion aus, welche dir die Produktstruktur ermittelt?
Sowas hab ich auch mal geschrieben und im folgenden beispiel benutzt.

Nach dem man die CATMain hier gestartet hat kann man ein Product oder Part auswählen und bekommt dann ein inputfenster wo man den neuen Namen eingeben kann.

Im Anhang befinden sich noch ein Modul "M_Doc_Structure" und eine Klasse "C_Doc_Structure_Object" die du in deinem VBA Projekt brauchst. (M_Doc_Structure wird in Zeile 1 aufgerufen)
Im Prinzip das selbe, was ich in deinem anderen Thema auch schon gepostet hatte -> http://ww3.cad.de/foren/ubb/Forum137/HTML/004657.shtml

Code:

---

Sub CATMain()
   
    Call M_Doc_Structure.CATMain
   
    Dim Selection1
    Set Selection1 = MainProductDoc.Selection
    Selection1.Clear
   
    Dim IOT(0): IOT(0) = "Product"
    Dim strReturn As String
   
    strReturn = Selection1.SelectElement2(IOT, "auswählen.", False)
    If strReturn = "Normal" Then
        Dim SelElement
        Set SelElement = Selection1.Item(1).Value
    Else
        End
    End If
   
    ' Finde Parent Product
    Dim ParentProduct
    For Each fProduct In pProducts
        If fProduct.PartNumber = SelElement.PartNumber Then
            Set ParentProduct = fProduct.Product.Parent.Parent
            Exit For
        End If
    Next
   
    ' Dateinamen finden vom ParentProduct
    Dim ParentProductFileName As String
    For Each fProduct In pProducts
        If fProduct.PartNumber = ParentProduct.PartNumber Then
            ParentProductFileName = fProduct.FileName
            Exit For
        End If
    Next
   
'-----------------------------------------------

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.Item(ParentProductFileName)

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = products1.Item(SelElement.Name)

product2.Name = InputBox("neuen Namen eingeben", , product2.Name)

End Sub

---

[Diese Nachricht wurde von meisterlumpi am 09. Aug. 2011 editiert.]

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