---

Hi!
Ich benötige eine Funktion, die mir alle CATparts innerhalb eines Modells (Produkt) mit Namen heraussucht, so dass ich im Anschluss jedes Part gezielt ansprechen kann... vielen Dank schon mal für die Bemühungen..

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

---

Hallo,
ich würde das mit einer Suchroutine lösen.
Im aktuellen Dokument alle Parts suchen lassen.
In einer rekursiven Schleife über Suchobjekt.Name den Namen des aktuellen Parts rauslesen. Wenn man nachträglich auf die parts zugreifen will, lohnt es sich die Namen in einem Zwischenspeicher zu legen; z.B.

Dim Namen() as String
Dim i as integer
Dim j as integer
i=1
j=0

For 1 to Suchobjekt.count
Set Namen(j) = Suchobjekt.Item(i).Name
i=i+1 'Kann weggelassen werden; mal ausprobieren
j=j+1
next

Vorsicht!! Count funktioniert nicht, wenn sich im Produkt unterprodukte befinden - zumindest bei R10
Zumindest so in der Richtung müsste es funktionieren.

Schöne Grüße

Jens Hansen

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

---

Es geht auch eleganter Catia selbst stellt dies schon bereit. Die suchfuntkin muss man nicht nutzen, wies geht habsch hier schonmal gepostet. gib einfach mal in der Suchfunktion(ja es gibt sie wirklich  !)

"Baugruppen auslesen" ein. dann bekommst nur den einen passenden Thread.

PS: nix für ungut 

------------------
gr33t7 Ronny

[Diese Nachricht wurde von RonnyS am 03. November 2003 editiert.]

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

---

Hi,

versuch mal hiermit!

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

Viel spaß!

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