autocad VBA problem, union after polar array Options

[clarence_cad]

i want to union a big cylinder with no. of small cylinder,since the small cylinder is create by polar array, the small cylinders after polar array are "variant" not are "acad3dsolid", so the union command is not work ...so what can i do??Thanks!



[VBA] Public Sub crownplane()

Dim bigcylinder As Acad3DSolid
Dim smallcylinder As Acad3DSolid
Dim crowncen(0 To 2) As Double

crowncen(0) = 0: crowncen(1) = 0: crowncen(2) = 0

Set bigcylinder = ThisDrawing.ModelSpace.AddCylinder(crowncen, crownradius, crownheight * 1.2)
Set smallcylinder = ThisDrawing.ModelSpace.AddCylinder(crowncen, teethradius, crownheight)


Dim noofcylinder As Integer
Dim angletofill As Double
Dim polarSmallcylinder As Variant

noofcylinder = 4
angletofill = 6.28

polarSmallcylinder = smallcylinder.ArrayPolar(noofcylinder, angletofill, crowncen)


bigcylinder.Boolean acUnion, polarSmallcylinder

End Sub
[/VBA]