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

hillskysea · 发表于 2009-6-5 16:01:00

如下面的程序：
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 · 发表于 2009-6-7 20:34:00

正确的用法是：
' 创建面域
Dim regionObj As Variant
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
因为生成面域时个数并不能事先知道，所以用的是变体。

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

发表回复

精选推荐