dfgs 发表于 2005-11-9 14:57:00

请教选择的问题

以下代码：
   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 发表于 2005-11-10 08:12:00

没人知道吗？

zxj_76 发表于 2005-11-10 08:34:00

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

dfgs 发表于 2005-11-10 08:36:00


可以看到的！在这个区域内我画了一些线条来测试！不行！
（看的人多，回答的少！？）
页: [1]
查看完整版本: 请教选择的问题