Опять selectsel

For Each blockRefObj1 In objSS0
        blockRefObj1.GetBoundingBox XM1, YM1
        For Each blockRefObj2 In objSS0
            blockRefObj2.GetBoundingBox XM2, YM2
            If blockRefObj1.Handle <> blockRefObj2.Handle Then
                a1 = YM1(0) - XM1(0)
                a2 = YM2(0) - XM2(0)
                b1 = YM1(1) - XM1(1)
                b2 = YM2(1) - XM2(1)
                If a1 < a2 Then
                    Set blockRefObj1 = blockRefObj2
                    a1 = a2
                    b1 = b2
                End If
            End If
        Next
        'Chois = Module2.GetListT10(10, a1 * MScale, b1 * MScale)
        Set Entity(0) = blockRefObj1
        objSS0.RemoveItems Entity
        'res1 = CStr(Chois(1)) +  CStr(Chois(2)) + CStr(Chois(3))
        N = N + 1
        'MsgBox N
    Next