using collection for more than one parameter

i got a set of data. x,y,z coordinate and an identifier text string.

i created a collection

Dim liste_text As New Collection

liste_text.Add nokta(0), yazi 'x coordinate of the text string.

how am i gonna add the nokta(1) and nokta(2) to that collection.

any idea?
thnx.

 

Concantenate them together ->
Dim s As String
s = CStr(1.0) & "|" & CStr(1.0) & "|" & CStr(0.0)
then add to the collection. When you need to use them, split them back
apart.

-- Mike
___________________________
Mike Tuersley
CADalyst's CAD Clinic
Rand IMAGINiT Technologies
___________________________
the trick is to realize that there is no spoon...

 

Hi fischer

You can add a point array to the collection:

liste_text.Add nokta, yazi

Cheers

 

if id like create a list in a loop just like in autolisp - the "list"
command.

do i have to use arrays or collection sets. which one is better for
manipulating. id like to add/remove/call this list item outside the loop.

thnx.

ps : i added the point array but could not call back with

a=liste_text.item (yazi)

 

Dim a, b
b = Array()
for .....
yazi = sset.Item(i).TextString
nokta = sset.Item(i).InsertionPoint 'insertion points of texts selected
from model space
noktax = CStr(nokta(0))
noktay = CStr(nokta(1))
noktaz = CStr(nokta(2))
a = Array(yazi, noktax, noktay, noktaz)
b = join(a)
next ........
debug.print b(n) 'n any number that is between 0 and ubound(b)

i got nothing.

 

Hi fischer

Sample 1:

Code:

Sub Sample1()

Dim Col As New Collection
Dim Pnt(0 To 2) As Double

Pnt(0) = 1#
Pnt(1) = 2#
Pnt(2) = 3#

Col.Add Pnt, "First"

Debug.Print Col.Item("First")(0)
Debug.Print Col.Item("First")(1)
Debug.Print Col.Item("First")(2)

End Sub

Sample 2:

Code:

Sub Sample2()

Dim Col As New Collection
Dim Pnt(0 To 3) As Variant

Pnt(0) = "First"
Pnt(1) = 1#
Pnt(2) = 2#
Pnt(3) = 3#

Col.Add Pnt

Debug.Print Col.Item(1)(0)
Debug.Print Col.Item(1)(1)
Debug.Print Col.Item(1)(2)
Debug.Print Col.Item(1)(3)

End Sub

Cheers

 

got it thnx alot.
muy bueno.
vielen dank.

 

Hi fischer

Welcome...
Je vous enprie...
Gern geschehen...

Cheers...¦-)