我是想将两个封闭的对象在程序中生成面域，用程序判断封闭的对象的位置关系。
但是不能在图面上生成新的要素。不知道有没有高手帮忙解释一下？谢谢
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
置顶卡
