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

cfgchen

我是想将两个封闭的对象在程序中生成面域，用程序判断封闭的对象的位置关系。
但是不能在图面上生成新的要素。不知道有没有高手帮忙解释一下？谢谢
    Dim ent As AcadEntity
    Dim explodedObjects As Variant
    Dim regionObj As Variant
    For Each ent In ThisDrawing.ModelSpace
        explodedObjects = ent.Explode
        regionObj = ThisDrawing.ModelSpace.AddRegion(explodedObjects)
    Next


explodedObjects = ent.Explode 可否不在当前工作空间中创建打散对象
regionObj = ThisDrawing.ModelSpace.AddRegion(explodedObjects) 可否不在当前工作空间中建立面域对象

fjfhgdwfn

应是都可以的。不过没有试过

仅仅是不在当前图面上生成，可以考虑用完后把他删除就是了。

rongyifei

学习了!

bjjob1

有时觉得autocad的vba功能有很多bug啊