[讨论]面域设为AcadRegion形式时无法删除

hillskysea

如下面的程序：

Dim regObj() As AcadRegion
regObj = acadApp.ActiveDocument.ModelSpace.AddRegion(cur)

如果执行regobj（0）.delete是无法实现面域的删除的，在我的电脑上VB直接崩溃退出。。。。。

今天把 AcadRegion改为variant，同样的代码：

Dim regObj() As variant

regObj = acadApp.ActiveDocument.ModelSpace.AddRegion(cur)

再执行regobj（0）.delete就可以成功删除面域！

大家说这是什么原因呢？？？

mccad

正确的用法是：
' 创建面域
    Dim regionObj As Variant
    regionObj = ThisDrawing.ModelSpace.AddRegion(curves)

因为生成面域时个数并不能事先知道，所以用的是变体。