[讨论]面域设为AcadRegion形式时无法删除
<p>如下面的程序：</p><p>Dim regObj() As <font color="#ff0000">AcadRegion<br/></font>regObj = acadApp.ActiveDocument.ModelSpace.AddRegion(cur)</p><p>如果执行regobj（0）.delete是无法实现面域的删除的，在我的电脑上VB直接崩溃退出。。。。。</p><p>今天把 AcadRegion改为variant，同样的代码：</p><p>Dim regObj() As <font color="#ff0000">variant</font></p><p>regObj = acadApp.ActiveDocument.ModelSpace.AddRegion(cur)</p><p>再执行regobj（0）.delete就可以成功删除面域！</p><p>大家说这是什么原因呢？？？</p> <p>正确的用法是：<br/>' 创建面域<br/> Dim regionObj As Variant<br/> regionObj = ThisDrawing.ModelSpace.AddRegion(curves)</p><p>因为生成面域时个数并不能事先知道，所以用的是变体。</p>
页:
[1]