"Tony Tanzillo" wrote in message
news:FD9A081A2529364538EA727484839CB8@in.WebX.maYIadrTaRb...
> Adam - You don't use CopyObjects() here, you convert the
> collections into arrays and you store them instead of the
> collections themselves, so that each time need to copy
> one of the collections to another document using CopyObjects(),
> you just pass the array as the first argument to CopyObjects().
>
> However for this to work, you have to keep each of the
> source documents open while you iterate over the target
> documents.
>
> Using the CollToVariant() function I posted, and trying
> to eliminate some redundancy:
>
> Dim Files(0 To 3) As String
> Dim DocArray(0 To 3) As AxDbDocument
> Dim arrCase(0 To 3) As Variant
>
> Public Sub Init() ' call this once at load time
> Files(0) = "xspsetups.dwg"
> Files(1) = "1psetups.dwg"
> Files(2) = "20psetups.dwg"
> Files(3) = "50psetups.dwg"
> End Sub
>
> Private Sub cmdGo_Click()
> Dim i As Integer
> For i = LBound(Files) To UBound(Files)
> Set DocArray(i) = GetInterfaceObject("ObjectDBX.AxDbDocument")
> DocArray(i).Open "j:/1049/cad/submit/blocks/" & Files(i)
> arrCase(i) = CollToVariant(DocArray(i).PlotConfigurations)
> Next i
So, each elements in arrCase will be a variant, containing another array.
Each element in the sub-arrays will be a PlotConfiguration. That's the part
I think I understand, so hopefully I'm right so far.
Question: Does retrieving the PCs via DocArray(i).PlotConfigurations store a
reference to the element of DocArray that was used? IOW, is it only
necessary to explicitly reference DocArray elements here, or do I need to
somehow point to the source document explicitly later, when I will be adding
the referenced PC's to another drawing?
> ' After you're done, clean up and release the AxDbDocuments
>
> For i = LBound(DocArray) to UBound(DocArray)
> Set DocArray(i) = Nothing
> Next i
>
> End Sub
>
> Later, when you copy the plot configurations to the
> destination document (this is not tested and just
> gives you a general idea of how to do this using the
> array of arrays of plotconfigurations):
>
> ' Index is a reference to one of the elements in arrCase
>
> Public Function CopyPCs(Index As Integer, Dest As AxDbDocument) As Variant
> Dim PC As AcadPlotConfiguration
> Dim PCArray As Variant
> PCArray = arrCase(Index)
> PC = PCArray(0)
> Dim PCs As AcadPlotConfigurations
> Set PCs = Dest.PlotConfigurations
> While PCs.Count > 0
> PCs(i).Delete
> WEnd
> Dim SourceDoc As Object ' Do NOT use AcadDocument here!!!
> Set SourceDoc = PC.Document
> CopyPCs = SourceDoc.CopyObjects(PCArray, TargetDoc.PlotConfigurations)
> End Function
I ask the previous question because I don't see DocArray in this function.
Is it enough to retrieve the info (actually, I guess we're just retrieving a
reference) using the ObjectDBX reference, and store it in a variable? Then,
you can just use the variable to get it again, as long as the OjectDBX
document reference is still open and unchanged?
I'm sorry about my vocabulary, I'm not a trained professional. I'm just
trying to understand what is going on.
Thanks,
Adam
