Array: Doesn't Support Property or Method

[lardman363]

I have an array containing objects (surfaces) and a second array equal to the first. The size of the first array is redimmed(wipes out the contents), then the second array, fills the first array.

aObjects = aTemp
ReDim aObjects(aObjects-1)
For I = 0 to ubound (aObjects)
aObjects(I) = aTemp(I)
Next

But when it gets to aObjects(I) = aTemp(I), I get "object does not support property or method" on aObjects. What would cause this?

Any help would be appreciated.

 

[itsmyjob]

I usually use SET to assign object

The follwing code works for me

Dim aTemp(2)  As Variant
Dim a As Parameters

Dim aObjects

Set a = CATIA.ActiveDocument.Part.Parameters

Set aTemp(0) = a.Item(1)
Set aTemp(1) = a.Item(2)
Set aTemp(2) = a.Item(3)
aObjects = aTemp

Eric N.
indocti discant et ament meminisse periti ​

 

[lardman363]

Thanks Eric, I'll give it a try.