[VBA函数]：画三维管道时通不过编译,各位帮帮忙啊

singlegu

各位高手:
       我用三维多段线,通过圆环拉伸来生成管道,可通不过编译,帮我看看该怎么改.
Sub pipe()
   Dim circle1(0) As AcadEntity
   Dim circle2(0) As AcadEntity
   Dim regionObj1 As Variant
   Dim regionObj2 As Variant
   Dim point1(0 To 11) As Double
   Dim point2(0 To 2) As Double
   Dim radius1 As Double
   Dim radius2 As Double
   Dim line1 As Acad3DPolyline
   Dim solidObj As Acad3DSolid
   point1(0) = 0
   point1(1) = 0
   point1(2) = 0
   point1(3) = 100
   point1(4) = 0
   point1(5) = 0
   point1(6) = 100
   point1(7) = 100
   point1(8) = 0
   point1(9) = 100
   point1(10) = 100
   point1(11) = 100
   
   radius1 = 7
   radius2 = 5
   
   '创建面域
   Set circle1(0) = ThisDrawing.ModelSpace.AddCircle(point1, radius1)
   Set circle2(0) = ThisDrawing.ModelSpace.AddCircle(point1, radius2)
   regionObj1 = ThisDrawing.ModelSpace.AddRegion(circle1)
   regionObj2 = ThisDrawing.ModelSpace.AddRegion(circle2)
   
   '布尔运算
   regionObj1(0).Boolean acSubtraction, regionObj2(0)
   
   '拉伸路径
   Set line1 = ThisDrawing.ModelSpace.Acad3DPolyline(point1)
   Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj1(0), line1)

End Sub

thooper

我上次也遇到这种情况，后来我将由圆成面region改成两个半弧生成region, 就没有问题了。