Help me!!! why the following codes have peoblem?

[jiangfangji]

why following codes cannot finish "Extrude" function?
Help!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Dim bb As New DBObjectCollection
Dim cir As New Circle

cir.Center = p0
cir.Radius = 10
bb.Clear()
bb.Add(cir)


Dim dd1 As New Region
dd1.CreateFromCurves(bb)

Dim cc As New Solid3d
cc.Extrude(dd1, 10, 0)

dd1.Dispose()

[Anonymous]

See my response to your other post.

wrote in message news:4861486@discussion.autodesk.com...
why following codes cannot finish "Extrude" function?
Help!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Dim bb As New DBObjectCollection
Dim cir As New Circle

cir.Center = p0
cir.Radius = 10
bb.Clear()
bb.Add(cir)


Dim dd1 As New Region
dd1.CreateFromCurves(bb)

Dim cc As New Solid3d
cc.Extrude(dd1, 10, 0)

dd1.Dispose()