[讨论]面域设为AcadRegion形式时无法删除
如下面的程序：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就可以成功删除面域！
大家说这是什么原因呢？？？
正确的用法是：
' 创建面域
Dim regionObj As Variant
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
因为生成面域时个数并不能事先知道，所以用的是变体。
页:
[1]