求教：选择集按插入点位置返回选择集表（lisp）

jack093

求教：将当前屏幕按x坐标分成100等分，所选对象按坐标点分别放到对应的选择集，返回选择集表（lisp）表处理效率太低
下面的程序
(defun ss_y_fun(ss /  vh vy1 tempss m len tem n ns)
    (setq vh(getvar "VIEWSIZE"))
    (setq vy1(- (cadr (getvar "VIEWCTR")) (* 0.5 vh)))
    (setq tempss nil m 0)
    (while (< m 50)
        (setq tempss (cons (ssadd) tempss))
    )
    (setq len (sslength ss))
    (while (> len 0)
        (setq tem (ssname ss (setq len (1- len))))
        (setq n (fix(*(/(- (cadr (cdr (assoc 10 (entget tem)))))vy1) vh)50))
        (if (< n 0)(setq n 0))
        (if (> n 49)(setq n 49))
        (setq m 0 ns nil)
        (while (< m 50)
            (if (= m n)
                (setq ns (reverse(cons (ssadd tem(nth n tempss)) (reverse ns))))
                (setq ns (reverse(cons (nth n tempss) (reverse ns))))
            )
        )
        (setq tempss ns)
    )
    tempss
)

出现“超出选择集数量的最大范围”错误

xiabin68

这有的高手了，，，，我打酱油的