vba拉伸成实体，提示输入无效

huiyi88

我想用一个圆，沿着螺旋线为路径拉伸。为什么到拉伸这一句提示“输入无效？”代码如下：

 

'定义保存面域边界的数组

Dim Curves(0 To 0) As AcadCircle

' 创建圆，用作面域的边界

Dim center(0 To 2) As Double
Dim radius As Double

center(0) = 0
center(1) = 0
center(2) = 0
radius = 0.5

Set Curves(0) = AcadApp.ActiveDocument.ModelSpace.AddCircle(center, radius) '圆心和半径

' 创建面域
Dim regionObj As Variant
regionObj = AcadApp.ActiveDocument.ModelSpace.AddRegion(Curves)

'生成三维实体
    Dim solidObj As Acad3DSolid
    Set solidObj = AcadApp.ActiveDocument.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), splineobj)'运行到这里提示“输入无效？”
    
    splineobj.Delete
    regionObj(0).Delete

 

是不是接面圆石螺旋线没有垂直的缘故啊？如果是，那么该怎么做？