画三棱锥----大家看看错误在哪里

zzz8662

三棱锥型的创建法：

　　1）生成多段线(Addpolyline)；

　　2）产生区域(AddRegion)后通过挤压(AddExtrudedSolid） 程序如下：
Sub CreatePyramid()
Dim polyObj As AcadPolyline
Dim point(0 To 11) As Double
point(0) = 0: point(1) = 0: point(2) = 0
point(3) = 255: point(4) = 0: point(5) = 0
point(6) = 128: point(7) = 221.7025: point(8) = 0
point(9) = 0: point(10) = 0: point(11) = 0
Set polyObj = ThisDrawing.ModelSpace.AddPolyline(point) ' 生成三角形
Dim regionObj As Variant
Set regionObj = ThisDrawing.ModelSpace.AddRegion(polyObj) ‘创造面域
Dim height As Double
Dim taperAngle As Double
height = 255: taperAngle = 0
Dim solidObj As Acad3DSolid
Set solidObj = ThisDrawing.ModelSpace.AddExtrudeSolid(regionObj,height,taperAngle)’拉伸成三棱锥
End Sub 运行时会产生错误： 方法‘AddRegion' 作用于对象’IacadModelspace‘时失效 我在ACAD2002环境下运行。请大家帮忙找错误，谢谢了！

雪山飞狐_lzh

AddRegion方法的参数是实体数组

zzz8662

谢谢，能解释一下吗？

雪山飞狐_lzh

AddRegion方法的参数是实体数组,返回值是也是是实体数组

Signature

RetVal = object.AddRegion(ObjectList)

Object

MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_modelspace_collection.htm" target="_blank" >ModelSpace Collection, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_paperspace_collection.htm" target="_blank" >PaperSpace Collection, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_block_object.htm" target="_blank" >Block
The object or objects this method applies to.

ObjectList

Array of Objects
The array of objects forming the closed coplanar face to be made into a region. This array may contain the following object types: MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_line_object.htm" target="_blank" >Line, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_arc_object.htm" target="_blank" >Arc, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_circle_object.htm" target="_blank" >Circle, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_ellipse_object.htm" target="_blank" >Elliptical Arc, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_lightweightpolyline_object.htm" target="_blank" >LightweightPolyline, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_spline_object.htm" target="_blank" >Spline.

RetVal

Variant
This method outputs an array of the newly created MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_region_object.htm" target="_blank" >Region objects.

zzz8662

xiexie