• uswer
  • Восстановленный участник
  • На форуме с 31 августа 2006г.
  • Сообщений: 23
  • Спасибо: 0

Тема: Как узнать что в прямоугольник образованный 2-мя вершинами не попадает ни один обьект?

Как узнать что в прямоугольник образованный 2-мя вершинами не попадает ни один обьект, а если попадают то какие?
(без перебора и в VBA)

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: Как узнать что в прямоугольник образованный 2-мя вершинами не попадает ни один обьект?

Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    Dim mode As Integer
    Dim corner1(0 To 2) As Double
    Dim corner2(0 To 2) As Double
    mode = acSelectionSetWindow
    corner1(0) = 28: corner1(1) = 17: corner1(2) = 0
    corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0
    ssetObj.Select mode, corner1, corner2