vba拉伸成实体，提示输入无效
我想用一个圆，沿着螺旋线为路径拉伸。为什么到拉伸这一句提示“输入无效？”代码如下：'定义保存面域边界的数组
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
是不是接面圆石螺旋线没有垂直的缘故啊？如果是，那么该怎么做？
页:
[1]