---

Hallo zusammen,

ich bin gerade dran ein Makro zu schreiben, um Componenten in einem Product zu ersetzen. Ich lese die Namen der Componenten die ersetzt und die Namen der neuen Componenten aus einem Textfile. Das klappt auch schon, wenn ich nur ein Product habe. Mein Problem ist jetzt nur wenn ich mehrer Producte und Unterproducte habe.

Mein Code sieht bis jetzt so aus:

Language="VBSCRIPT"

Sub CATMain()

Dim Datei As File
Set Datei = Catia.FileSystem.GetFile ("C:\replace.txt")

Dim DStrom As TextStream
Set DStrom = Datei.OpenAsTextStream ("ForReading")
Dim Zeile As CSTBSTR

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product

Do While Not (DStrom.AtEndOfStream)
Zeile = DStrom.ReadLine
If Not (DStrom.AtEndOfStream) Then
Set product2 = products1.Item(Zeile+".1")
Zeile = DStrom.ReadLine
Set Nothing1 = products1.ReplaceComponentproduct2, "C:\"+Zeile, True)
End If
Loop

DStrom.Close

End Sub

Wäre nett, wenn ihr mir helfen könnt.

Vielen Danke
Hasim

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

---

Hi,
mit dieser FKT kannst du den Baum auslesen. Du müsstest es mit dem Textfile koppeln. Also erst Namen finden, diesen in dem Textfile suchen und ersetzen und speichern. Falls su eine Lösung hast lass diese mich wissen.
Jan

------------------

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

---

Function Name(iProduct As Product, j As Integer, dSubString As String) As String

Dim oSubProducts As Product
Dim i As Integer
Dim oLevel as String
 
For i = 1 To iProduct.Products.Count
        Set oSubProducts = iProduct.Products.Item(i)
        oSubProducts.ActivateDefaultShape      'set the node to active
        oSubProducts.ApplyWorkMode DESIGN_MODE 'load the componet into the design mode
   
dSubString = dSubString & chr(9) & oSubProducts.Name

        j = j+1
   
If iProduct.Products.Count > 0 then

  oLevel = Name(oSubProducts, j, dSubString)

End If

Next
   
Name = dSubString
     
End Function

------------------

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

---

Hi,

ich habe jetzt einen anderen Weg gefunden.

ich suche zuerst das Bauteil, das ich erstzen möchte (überall im Produkt)

selection1.Search "Name='"+readString+"*',all"

dann speichere ich den Namen des gedundenen Bauteil unter einer Variablen name ab.

name  = selection1.Item(1).Value.Name

Mit dem nächsten Befehl bekomme ich den Namen des Unterproduktes in dem meine Selektion sich befindet. Der Rest ist hoffentlich verständlich, ich lese halt noch den Namen des neuen Bauteils ein und fürhre dann den ReplaceComponent Befehl aus.

Set Parent_1 = selection1.Item(1).Value.Parent
Set product5 = Parent_1.Item(name)
readString = TextStr.ReadLine
Set Nothing1 = Parent_1.ReplaceComponent (product5, readString, True)

ich hoffe es hilft dir weiter.

Gruß
Hasim

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