请教选择的问题

dfgs

以下代码：

   Dim P1(0 To 2), P2(0 To 2) As Double
   P1(0) = -50:   P1(1) = -50:   P1(2) = 0
   P2(0) = 50:   P2(1) = 50:   P2(2) = 0
   UserForm1.Hide
   Dim ss As AcadSelectionSet
   On Error Resume Next 
   Set ss = ThisDrawing.SelectionSets("pline") 
   If Err Then Set ss = ThisDrawing.SelectionSets.Add("pline")  
   ss.Clear 
   ss.SelectOnScreen
   Dim entry As AcadEntity
   For Each entry In ss
     entry.Color = acBlue
     entry.Update
   Next entry

上面的代码是可以正常执行的，但是我将ss.SelectOnScreen改为ss.Select acSelectionSetCrossing, P1, P2　并在P1、P2的矩形框区内画了许多东西但就是选择不到图元，这是怎么回事？

如果知道某图或块在某个区域，通过代码去自动选择，用上面的代码不行吗？该怎么做呢?谢谢！

dfgs

没人知道吗？

zxj_76

1、被选实体可见吗？（即在AUTOCAD窗口内）

dfgs

可以看到的！在这个区域内我画了一些线条来测试！不行！

（看的人多，回答的少！？）