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

hillskysea · 发表于 2009-6-4 23:00:00

问题是用边界生成的面域，最后拉伸称为实体时，删除面域用***（面域）.delete，无法实现删除。
我的代码确实太乱，不好贴了，我搜索了一下论坛，翻出了两个帖子，跟我的问题基本一样，但是问题都没有解决：
一个帖子在这：帮帮我这个新手：
另一个帖子：这是一个面域删除的问题!：
这两个帖子今天也被我顶到前面去了

雪山飞狐_lzh · 发表于 2009-6-4 23:17:00

copy


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