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

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

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


应是都可以的。不过没有试过
仅仅是不在当前图面上生成，可以考虑用完后把他删除就是了。

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

学习了!

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

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