肯定高手指点下，问题出什么地方了？

jobschan

我在图形中有两个相交矩形，我将它们都炸开成直线，然后通过选择集选中所有直线，但是通过SelectAll方法却得不到直线，count显示为0，而使用selectonscreen方法获得却有8条直线（两个矩形），应该是选择集出问题了，还请高手指点下，谢谢！！ Dim SS As AcadSelectionSet
Set SS = Acaddoc.SelectionSets("SS")
If Err Then
Err.Clear
Set SS = Acaddoc.SelectionSets.Add("SS")
End If
SS.Clear


Dim Entry As AcadEntity
For Each Entry In MoSpace
Entry.Explode
Next

Dim ft(0) As Integer, fd(0) As Variant
ft(0) = 0
fd(0) = "LINE"

SS.SelectAll, , ,ft, fd
'SS.SelectOnScreen ft, fd
Debug.Print SS.Count

mccad

请注意对象模型中并没有SelectAll方法。

jobschan

谢明总！