Topic: Got Arrays?

[Fatty]

Dear Matt,
another way is to use Type
something like (not tested, may some mistakes)

Code: [Select]

Option Explicit

Type FileInfoRecord
a As String
b As String
c As String
End Type


Sub FillArrayWithRecords()
    Dim ListViewRow As FileInfoRecord
    ReDim ListViewRows(5) As FileInfoRecord
Dim i, k
For i = 0 To 5
ListViewRow.a = "T-0" & CStr(i + 1)
ListViewRow.b = "Technology " & CStr(i + 1)
ListViewRow.c = "000400-" & CStr(i + 1) & ".dwg"
ListViewRows(i) = ListViewRow
Next
MsgBox "Last row is: " & vbCr & _
ListViewRows(i).a & vbCr & _
ListViewRows(i).b & vbCr & _
ListViewRows(i).c
i = UBound(ListViewRows)
ReDim Preserve ListViewRows(i + 5)
For k = i + 1 To i + 5
ListViewRow.a = "T-0" & CStr(k)
ListViewRow.b = "Technology " & CStr(k)
ListViewRow.c = "000400-" & CStr(k) & ".dwg"
ListViewRows(i) = ListViewRow
Next
MsgBox "Now Last row is: " & vbCr & _
ListViewRows(k).a & vbCr & _
ListViewRows(k).b & vbCr & _
ListViewRows(k).c

End Sub
Regards,

~'J'~

[rogue]

ARRRGH!  I was just going to submit some UDT (User-Defined-Type) code, but was beaten to the punch. However, to build on that code, you can nest the TYPES, and have arrays within them  ... (warning - code typed on the fly)

Type Layout
   LayoutName as String
   ParentDoc as AcadDocument
End type

Type DwgInfo
    PathSpec as String
    LayoutCount as Long
    Layouts() as Layout
End Type

Dim DocCount as long
Dim DocArray(DocCount) as DwgInfo


; ... and you can access the properties like such...

  Dim I as Long, J as Long

  For I=0 to Ubound(DocArray)
     Debug.print "Document:";DocCount(I).PathSpec
       For J=0 to LayoutCount
          Debug.print,,"Layout Name:";DocCount(I).Layouts(J).LayoutName
      Next J
  Next I

... of course, you'd have to check for/set empty arrays

 

[Tuoni]

Matt: where did you get to on this?  Just curious   

[Guest]

Matt: where did you get to on this?  Just curious   

Not very far.   

[Tuoni]

Matt: where did you get to on this?  Just curious   

Not very far.   

  Time constraints or still struggling with the code?

[Guest]

Matt: where did you get to on this?  Just curious   

Not very far.   

  Time constraints or still struggling with the code?

Yes.   

[Tuoni]

Matt: where did you get to on this?  Just curious   

Not very far.   

  Time constraints or still struggling with the code?

Yes.   

Good answer

[Keith™]

Matt, I generally use arrays to hold my arrays rather than collections (speed issues as previously noted) but it is because I generally don't have to handle specific items.

If you create a master array, you can call it that if you like, to keep them straight, then each of your subordinate arrays can be added dynamically and the array can grow as needed.

Although I have to admit I like the dwgInfo class ...

I guess my confusion is why you would want to store the drawing information when you could just as easily get the info from the drawing.

[Guest]

Matt, I generally use arrays to hold my arrays rather than collections (speed issues as previously noted) but it is because I generally don't have to handle specific items.

If you create a master array, you can call it that if you like, to keep them straight, then each of your subordinate arrays can be added dynamically and the array can grow as needed.

Although I have to admit I like the dwgInfo class ...

I guess my confusion is why you would want to store the drawing information when you could just as easily get the info from the drawing.

I can't get the info from the drawings because the drawings don't exist yet.  Basically what the program will do is create each of the drawings listed in the File Name column and create the layout tab(s) listed in the Sheet No column.  So for the details sheet (0004000-T-DETL.dwg) there would be four layout tabs within that drawing (TC-501 to TC-504).  So what I'm envisioning is an array (or array of arrays) that will hold (1) the values in the File Name column - no duplicates and (2) the values in the Sheet No column that are associated with the values in the File Name column.  Make sense?  I'm thinking this will speed things up since I would be able to loop through the arrays and (1) open the newly created file (the value in the File Name column) and then (2) create the layout tabs associated with that file from the array.

I could simply loop through the values of the listview but that would mean opening the details drawing four times and adding a layout tab each time.

Do you understand what I'm getting at now?  I hope I explained that clearly - of course, I know what I'm talking about (in my head).  Sometimes I have problems conveying the information in a clear manner.   

[Keith™]

Ah .. very clear now .. You could use a treeview to organize each layout in under each drawing.

[Guest]

Ah .. very clear now .. You could use a treeview to organize each layout in under each drawing.

Hmmm.....  might not be a bad idea.  Although... I'm already THIS far along - I don't really feel like re-writing a whole bunch of stuff.  Still... it's a good idea.

[Keith™]

been there done that ...

[Tuoni]

This any good?

[Guest]

This any good?

I'm trying to piece this together (bear with me)...   

So you've got this code (which I think I'm starting to understand now).

Code: [Select]

    Dim dwg As DwgInfo
    Dim i As Integer
    Dim j As Integer

    Set colDwg = New Collection
   
    For i = 1 To lvTech.ListItems.Count
        'Check if the filename has already been made
        If dwgInfoExists(lvTech.ListItems(i).ListSubItems(3)) = True Then
            'Add this layout to the DwgInfo
            colDwg.Item(dwgInfoIndex(lvTech.ListItems(i).ListSubItems(3))).add (lvTech.ListItems(i).ListSubItems(1))
        Else
            'Make a new one
            Set dwg = New DwgInfo
            dwg.Title = lvTech.ListItems(i).ListSubItems(2)
            dwg.fileName = lvTech.ListItems(i).ListSubItems(3)
           
            dwg.add (lvTech.ListItems(i).ListSubItems(1))
                   
            colDwg.add dwg
        End If
    Next i
The part that's throwing me for a loop (no pun intended - hehehe) is iterating through the info to show what belongs where.

I've got this (so far)...

Code: [Select]

    Dim x As Integer
    Dim y As Integer
   
    For x = 1 To colDwg.Count
        For y = 1 To dwg.Count
            Debug.Print dwg.Item(y)
        Next y
    Next x
If I understand this correctly, I need to loop through 'colDwg' and then within that loop, loop through the 'dwg' info to determine the layout names that are associated with the file names, right?

And so when I run this I get a bunch of the same thing printed at the immediate window.  What am I missing (besides the obvious probably)?  :ugly:

[Tuoni]

<snip>

The part that's throwing me for a loop (no pun intended - hehehe) is iterating through the info to show what belongs where.

I've got this (so far)...

Code: [Select]

    Dim x As Integer
    Dim y As Integer
   
    For x = 1 To colDwg.Count
        For y = 1 To dwg.Count
            Debug.Print dwg.Item(y)
        Next y
    Next x
If I understand this correctly, I need to loop through 'colDwg' and then within that loop, loop through the 'dwg' info to determine the layout names that are associated with the file names, right?

And so when I run this I get a bunch of the same thing printed at the immediate window.  What am I missing (besides the obvious probably)?  :ugly:

You're not reassigning "dwg" at any point in the loop - therefore dwg still refers to the last object you pushed into the collection (assuming, of course, you're running it in the button's sub)