cfgchen 发表于 2008-6-25 14:50:00

[求助]vba中创建面域的困惑

我是想将两个封闭的对象在程序中生成面域，用程序判断封闭的对象的位置关系。<br/>但是不能在图面上生成新的要素。不知道有没有高手帮忙解释一下？谢谢<br/>    Dim ent As AcadEntity<br/>    Dim explodedObjects As Variant<br/>    Dim regionObj As Variant<br/>    For Each ent In ThisDrawing.ModelSpace<br/>        explodedObjects = ent.Explode<br style="color: rgb(255, 0, 0);"/>        regionObj = ThisDrawing.ModelSpace.AddRegion(explodedObjects)<br style="color: rgb(255, 0, 0);"/>    Next<br/><br/><br/>explodedObjects = ent.Explode 可否不在当前工作空间中创建打散对象<br/>regionObj = ThisDrawing.ModelSpace.AddRegion(explodedObjects) 可否不在当前工作空间中建立面域对象

fjfhgdwfn 发表于 2008-6-25 15:04:00

本帖最后由 作者 于 2008-6-25 15:07:47 编辑 <br /><br /> <p><font color="#000000">应是都可以的。不过没有试过</font></p><p><font color="#000000">仅仅是不在当前图面上生成，可以考虑用完后把他删除就是了。</font></p>

rongyifei 发表于 2008-7-5 17:09:00

学习了!

bjjob1 发表于 2013-5-29 13:21:03

有时觉得autocad的vba功能有很多bug啊
页: [1]
查看完整版本: [求助]vba中创建面域的困惑