[求助]：画三棱锥----大家看看错误在哪里

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环境下运行。请大家帮忙找错误，谢谢了！

huangyanshi

Dim regionObj As Variant        有误。

dim regionobj as object           OK?

ahlzl

2. 
   
3. Sub CreatePyramid()
   
4. Dim polyObj(0) As AcadLWPolyline
   
5. Dim point(0 To 7) As Double
   
6. point(0) = 0: point(1) = 0
   
7. point(2) = 255: point(3) = 0
   
8. point(4) = 128: point(5) = 221.7025
   
9. point(6) = 0: point(7) = 0
   
10. Set polyObj(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(point)  ' 生成三角形
    
11. Dim regionObj As Variant
    
12. regionObj = ThisDrawing.ModelSpace.AddRegion(polyObj) '创造面域
    
13. Dim height As Double
    
14. Dim taperAngle As Double
    
15. height = 255: taperAngle = 0
    
16. Dim solidObj As Acad3DSolid
    
17. Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj(0), height, taperAngle) '拉伸成三棱锥
    
18. End Sub

<br /> Sub CreatePyramid()<br /> Dim polyObj(0) As AcadLWPolyline<br /> Dim point(0 To 7) As Double<br /> point(0) = 0: point(1) = 0<br /> point(2) = 255: point(3) = 0<br /> point(4) = 128: point(5) = 221.7025<br /> point(6) = 0: point(7) = 0<br /> Set polyObj(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(point)  ' 生成三角形<br /> Dim regionObj As Variant<br /> regionObj = ThisDrawing.ModelSpace.AddRegion(polyObj) '创造面域<br /> Dim height As Double<br /> Dim taperAngle As Double<br /> height = 255: taperAngle = 0<br /> Dim solidObj As Acad3DSolid<br /> Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj(0), height, taperAngle) '拉伸成三棱锥<br /> End Sub

zzz8662

谢谢两位大侠！