[求助]由面域拉伸生成实体的疑问？

mjtppf

想用以下代码拉伸生成实体，结果什么也没有得到，也没有报错？请大家看看！

'构造选择集
    Dim gear As AcadSelectionSet
    On Error Resume Next
    If Not IsNull(AcadApp.ActiveDocument.SelectionSets.Item("gear_set")) Then
        Set gear = AcadApp.ActiveDocument.SelectionSets.Add("gear_set")
    End If
   
    gear.Select acSelectionSetAll
       
    '复制选择集里的对象
    Dim ents(11) As AcadEntity
    For i = 0 To gear.Count - 1
        Set ents(i) = gear.Item(i).Copy
    Next i
      
    '定义面域
    Dim reg As Variant
    Set reg = AcadApp.ActiveDocument.ModelSpace.AddRegion(ents)
                   
    '拉伸实体
    Dim height As Double
    Dim taperAngle As Double
    height = 8
    taperAngle = 0
       
    Dim rack As Acad3DSolid
    Set rack = AcadApp.ActiveDocument.ModelSpace.AddExtrudedSolid(reg, height, taperAngle)

mjtppf

是不是定义面域部分就出错了？

面域的属性和方法都不能通过reg对象引用啊？

是怎么回事？

另外，我看到帮助文件里类似的例子在使用AddExtrudedSolid方法是第一个参数写成了数组形式，即写成：

Set rack = AcadApp.ActiveDocument.ModelSpace.AddExtrudedSolid(reg(0), height, taperAngle)

帮助中的实体可以拉伸生成，我的却不行，为什么？

帮助中的例子如下：

Sub Example_AddExtrudedSolid()
    ' This example extrudes a solid from a region.
    ' The region is created from an arc and a line.
    
    Dim curves(0 To 1) As AcadEntity

    ' Define the arc
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    Dim startAngle As Double
    Dim endAngle As Double
    centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#
    radius = 2#
    startAngle = 0
    endAngle = 3.141592
    Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)
    
    ' Define the line
    Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).startPoint, curves(0).endPoint)
        
    ' Create the region
    Dim regionObj As Variant
    regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
    
    ' Define the extrusion
    Dim height As Double
    Dim taperAngle As Double
    height = 3
    taperAngle = 0
    
    ' Create the solid
    Dim solidObj As Acad3DSolid
    Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj(0), height, taperAngle)
               
End Sub