---

Hey, ich arbeite mit CATIA V5 R19 und habe mich ein wenig in Makros eingearbeitet (catvba). Nun hänge ich jedoch leider daran eine Liste zu erstellen.

Ich habs zuerst mit Collection versucht, jedoch ist es mir zu umständlich immer Werte aus der Collection löschen und wieder erstellen zu müssen um diese zu ändern. Weiters benötige ich eine Liste in einer Liste, was mit Collections scheinbar nicht möglich ist.

Also ich lese mir die Parameter der Parts aus (ich gehe rekursiv durch alle teile). In der oberen Liste sollen die Namen aller Teile stehen und in der unteren Liste (Der Liste in der oberen Liste) die jeweiligen Parameter.

Ich habe keinerlei Probleme die Werte auszulesen, nur die Liste macht mir zu schaffen.

Bsp.:

    Dim myList As List
    myList.Add(itemValue As AnyObject)      'Das in der Klammer ist das was intellisense mir sagt

Bitte helft mir herauszufinden wie man items hinzufügt und ausliest - danke!

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Mit dem Objekt "List" hab ich noch nie gearbeitet.
ggf könntest du einen 2-Dimensonales Array nehmen, in das du den Namen des Parts und einen Array (oder Dictonary) mit den entsprechenden Parametern ablegst.
Wenn du in einer Collection einen einen Parameter ablegst (also nicht den Wert) kannst du auch den Wert nachträglich ändern.
Welche für dich dass richtige "Speicher-Objekt" ist, hängt von deiner Aufbage ab.

Gruß
Bernd

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

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

---

Hallo Escore,

hast Du mal an UDTs gedacht?
Die kannst auch als VB-Record sehen.

Siehe auch hier:

http://ww3.cad.de/foren/ubb/Forum137/HTML/005656.shtml

Hope it helps,
Joe

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

---

Hi, erstmal Danke für eure Antworten! Folgendes Problem: "Compile Error: Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions".

Überhalb vom Sub steht bei mir:

Code:

---

Public Type myType
    strName As String
    intNummer As Integer
End Type

Dim myList
Dim myPart As myType

---

Und dann im Sub:

Code:

---

Redim myList(1) 'Initialize myList as Array
Redim myList(UBound(myList) - LBound(myList) + 1) 'Increase Array Size by 1
myPart.name = "abc"
myList(1) = myPart
Debug.Print myList(1).name

---

Ich hätte gerne alles in einem einzigen Txt File (Kein extra Class File). Was kann ich also machen um mehrere Parts meines Typs in einer Liste zu speichern, welche ich anschließend wieder auslesen kann um Sie nach Excel zu pasten?  Weiters die Frage, zeigt (wenn das mal klappt) nur ein Pointer auf myPart, also verliere ich die Werte in der Liste, wenn ich myPart ändere? Vielen Dank!

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

---

Hey Leute, ich hab's wie's aussieht direkt nach'm posten meiner letzten Antwort geschafft.

Code:

---

Dim myArr() As myType
Redim myArr(1)
myArr(1).name = "abc"
Debug.Print myArr(1).name

---

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