[求助]边界生成的面域怎么删除？？

hillskysea

问题是用边界生成的面域，最后拉伸称为实体时，删除面域用***（面域）.delete，无法实现删除。

我的代码确实太乱，不好贴了，我搜索了一下论坛，翻出了两个帖子，跟我的问题基本一样，但是问题都没有解决：

一个帖子在这：帮帮我这个新手：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=38124

另一个帖子：这是一个面域删除的问题!：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6611

这两个帖子今天也被我顶到前面去了

雪山飞狐_lzh

2. Sub tt()
3. Dim b(0) As AcadCircle
4. Dim circlepoint(2) As Double
5. Set b(0) = ThisDrawing.ModelSpace.AddCircle(circlepoint, 10)
6. Dim regionObj As Variant
7. regionObj = ThisDrawing.ModelSpace.AddRegion(b)
8. b(0).Delete
9. Dim height As Double
10. Dim taperangle As Double
11. height = 3
12. taperangle = 0
13. Dim solidobj As Acad3DSolid
14. Set solidobj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj(0), height, taperangle)
15. regionObj(0).Delete
16. End Sub

Sub tt() Dim b(0) As AcadCircle Dim circlepoint(2) As Double Set b(0) = ThisDrawing.ModelSpace.AddCircle(circlepoint, 10) Dim regionObj As Variant regionObj = ThisDrawing.ModelSpace.AddRegion(b) b(0).Delete Dim height As Double Dim taperangle As Double height = 3 taperangle = 0 Dim solidobj As Acad3DSolid Set solidobj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj(0), height, taperangle) regionObj(0).Delete End Sub

hillskysea

我写的就是regobj（0）.delete，但是面域并没有删除，而且在我的程序里只要执行这句语句VB就会崩溃退出。。。。。

hillskysea

可能是我的程序有问题，我再想想，不行我把代码整理一下贴出来了

雪山飞狐_lzh

VBA里没有问题