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

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

<p>问题是用边界生成的面域，最后拉伸称为实体时，删除面域用***（面域）.delete，无法实现删除。</p><p>我的代码确实太乱，不好贴了，我搜索了一下论坛，翻出了两个帖子，跟我的问题基本一样，但是问题都没有解决：</p><p>一个帖子在这：帮帮我这个新手：<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=38124">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=38124</a></p><p>另一个帖子：这是一个面域删除的问题!：<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6611">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6611</a></p><p>这两个帖子今天也被我顶到前面去了</p>

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

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 发表于 2009-6-4 23:41:00

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

hillskysea 发表于 2009-6-5 00:25:00

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

雪山飞狐_lzh 发表于 2009-6-5 22:37:00

VBA里没有问题
页: [1]
查看完整版本: [求助]边界生成的面域怎么删除？？