怎样提取面域对象？

飞越迷雾

我在cad中画出封闭的图形，然后用cad的命令生成面域。现在想用vb通过程序提取cad窗体中选择的面域，该怎么操作呀？我查帮助，面域的属性是：

RetVal = object.AddRegion(ObjectList)

其中这个ObjectList这个参数数组该如何确定。我是先在cad中画图，生成面域。不是用程序生成的。然后用程序在cad窗体中选择这个面域。但我不知怎么确定这个数组，因为生成的面域不只一个，有直线也有曲线。这个该怎么确定。恳请会的朋友帮帮忙，小弟谢过了先！！

雪山飞狐_lzh

提取cad窗体中选择的面域？

和AddRegion方法无关

用选择集或GetEntity获取

飞越迷雾

那这个选择集怎么选呢？

还有，我本来是想把选择的面域进行一个布尔运算的。这个该如何操作？面域1减去面域2等等。如果我不用程序操作布尔运算，在cad里完成，然后选择这运算后的面域也是要用选择集嘛？恳请版主给点提示。谢谢啦

雪山飞狐_lzh

不太明白你要做什么，如果只是选择集的话

Sub tt()
On Error Resume Next

    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("Test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("Test")
   
    Dim ft(0) As Integer, fd(0)
    ft(0) = 0: fd(0) = "Region"
    ss.Select acSelectionSetAll, , , ft, fd

End Sub