---

Hallo
folgendes Problem:
ich möchte ein komplexes Produkt komplett auflisten. Das Produkt hat Parts und Produkte, sonst ist auf nichts weiter Rücksicht zu nehmen.
Folgendes CATscript steht, bzw. habe ich mir aus dem Forum kopiert:
Sub CatMain()
  Dim ProduktDoc As Product
  Dim Produkt As Product
  Set ProduktDoc = CATIA.ActiveDocument
  Set Produkt = ProduktDoc.Product
  Set Produkte = Produkt.Products
  Produktauslesen (Produkte)
End sub
Sub Produktauslesen (Produkte As Product)
For i =1 to Produkte.count
      If TypeName(Produkte.Item(i).ReferenceProduct.Parent)  = "PartDocument" Then
            DStrom.Write (....)
        ElseIf TypeName(Produkte.Item(i).ReferenceProduct.Parent)  = "ProductDocument" Then
        If Produkte.Item(i).Products.Count > 0 Then
            Produktauslesen (Produkte.Item(i).Products)
        End if
    End if
next
End Sub
Mein Problem ist, es bringt mir nicht das erwartete Ergebnis. Kann mir jemand den nötigen Schubs geben, was hier noch fehlt. Die Rekursivität, durchläuft nicht den gesamten Baum bzw. läuft auf Fehler. Mit der Bitte um Unterstützung. Danke.

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

mfg
Erich

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

---

Servus
sollte funktionieren habs aber nicht getestet

Code:

---

Sub CATMain ()

Produktauslesen(CATIA.ActiveDocument.Product)

End Sub

Sub Produktauslesen (P As Product)

Dim Pdoc as Document
Set Pdoc = P.ReferenceProduct.Parent

If Typename(PDoc) = "PartDocument" Then
            MsgBox("Part")
        Else
            MsgBox("Product")
        End If

Dim PP As Products
Dim i As Integer

Set PP = P.Products

for i = 1 to PP.Count

Produktauslesen(PP.Item(I))

next

End Sub

---

Gruß Andi

[Diese Nachricht wurde von Augustiner am 23. Sep. 2006 editiert.]

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

---

Hallo Andi,

Ich möchte gerne ein Array aus geöffneten Dateien, zwecks Schreiben, mitführen, bekomme aber immer die Fehlermeldung "out of range". Weißt Du hier Rat? Vielen Dank im Voraus.
Die entscheidenden Auszüge aus meinem Code:
-----------------------------------------------------
Option Explicit

Sub CATMain ()

Dim Datastreams() As TextStream
Dim Dateien() As CATBSTR
Dim TDatei () As File
Dim Counter As Integer
Counter = 0

Dim Anzahl As Integer
Anzahl = InputBox ("Anzahl der zu messenden Hierachie-Ebenen eingeben")

'Oeffnen

ReDim Datastreams(Anzahl) As TextStream
ReDim Dateien(Anzahl) As CATBSTR
ReDim TDatei (Anzahl) As File
Dim k As Integer

For k = 0 TO Anzahl

Dateien(k)  = CATIA.FileSelectionBox ("Datei auswählen", "*.txt", CATFileSelectionModeSave)

If Dateien(k) <> "" Then

Set TDatei(k) = CATIA.FileSystem.GetFile (Dateien(k))
Set Datastreams(k) = TDatei(k).OpenAsTextStream ("ForAppending")
End If

Next

MsgBox LBound(Datastreams)
MsgBox UBound(Datastreams)

Produktauslesen CATIA.ActiveDocument.Product , Counter , Datastreams()
'!!! Hier kommt die Fehlermeldung: "Datastreams out of range"

End Sub

Sub Produktauslesen (P As Product , OpenedFiles() As TextStream )

.... Definition des Sub
.....und schließlich rekursiver Aufruf

For i = 1 to PP.Count


Produktauslesen PP.Item(I) ,OpenedFiles()

Next

End Sub
-----------------------------------------------------------------
Lasse ich die Klammern hinter "Datastreams" beim Aufruf weg bekomme ich bei "OpenedFiles()" während des rekursiven Aufrufs die gleiche Fehlermeldung.

------------------
Matthias
-----------------
Catia V5R14
Unix- Workstation

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

---

Hallo, ein ähnliches Problem hatte ich schon.

Schaut mal im Topic

http://ww3.cad.de/foren/ubb/Forum137/HTML/001796.shtml#000027.

Da sollte alles drinstehen was ihr benötigt.

Gruß Timber

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Sorry da hat was mit dem Link nicht geklappt.

MMH

Schaut unter dem Topic

Strukturbaum aus CATIA in VB einlesen.

Da steht alles drin

Gruß Timber

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Hi Timberwolve,

Danke für den Link bzw. Suchtipp. Großes Lob auch an Danny Reinhold ...hätte ich diesen Thread nur mal eher entdeckt. Mein Problem konnte ich aber nun selber lösen. Und zwar liegt es daran, dass ein Array, was an eine Prozedur übergeben werden soll beim deklarieren mit Klammern, beim aufrufen aber ohne Klammern geschrieben werden muss. Leider stand das in dem VB-Buch was ich mir ausgeliehen habe anders drin (ist vielleicht ne Eigenart von CATScript). Grau ist alle Theorie
-------------------------------------------
'Deklarieren
Sub Produktstruktur (P As Product, Datastreams() As Textstream)
......
End Sub
'Aufrufen
Produktstruktur MeinProdukt , Schreibpfade
'Wobei Schreibpfade ein Array ist

------------------
Matthias
-----------------
Catia V5R14
Unix- Workstation

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