clarence_cad
10-16-2005, 10:18 PM
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!
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
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