Question

在CAD VBA中如何实选择集的面域?

RetVal = object.AddRegion(ObjectList)这个objectlist对象数组能不能是选择集，比方现在有一个选择集objsel,该如何的创建面域？RetVal = object.AddRegion(objsel) 这样做好像不行，大家可以帮我一下？
会的朋友帮忙写一个实例让我参考一下，谢谢

Answer 1

选择对象是不能直接操作的，但可以取出选择集的实体对象后再建面域即可
例如代码如下：

Public Sub ss_region()
Dim ss As AcadSelectionSet, region As Variant
Set ss = ThisDrawing.SelectionSets.Add("sss")
ss.SelectOnScreen
Dim ents() As AcadEntity
ReDim ents(ss.Count - 1)
Dim i As Integer
For i = 0 To ss.Count - 1
Set ents(i) = ss.Item(i)
Next i
ss.Delete
region = ThisDrawing.ModelSpace.AddRegion(ents)
End Sub