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

[复制链接]

huiyi88

1 主题	1 帖子	1 银币

初来乍到

Rank: 1

铜币: 5

发消息

发表于 2010-7-31 21:37:00 | 显示全部楼层 |阅读模式

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

'定义保存面域边界的数组
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

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

使用道具举报