거리 입력값보다 작은 선들을 선택하는 법??

qselect에서 obtype를 line에 맞추고 거리->less then 해서 value 값을 입력하듯이….
특정 값을 입력한 후 그 보다 작은 값들을 선택하고자 합니다.
(0.01보다 작은 것들이 에러를 많이 만들어서 선택 후에 삭제하고자 합니다.)

혹시나 비슷한 리습이라도 있다면 부탁드립니다. 혼자 헤메봤는데 역시 무리여서 글 올립니다.

아래 리습은 값이 0 인 선들을 선택후 삭제하는 리습니다.(누가 맹근지 모릅니다만 잘 사용중입니다.)
요놈을 특정값보다 작은것들을 선택하고자 하니 암만해도 안되네요.
아시는분들….부탁드립니다.

(Defun c:qqs ()
  (setvar “cmdecho” 0)
  (setq lset (ssget “x” ‘((0 . “LINE”)))
 llen (sslength lset)
 cc   0
 sum  0
  )
  (repeat llen
    (setq elc (entget (ssname lset cc))
   cc  (+ cc 1)
   sp  (cdr (assoc 10 elc))
   ep  (cdr (assoc 11 elc))
    )
    (if (equal sp ep)
      (progn
 (entdel (cdr (assoc -1 elc)))
 (setq sum (+ sum 1))
      )
    )
  )
  (if (= sum 0)
    (alert “DIST 0 mm Line to NOT “)
    (alert (strcat “total” (rtos sum 2 0) ” delect”)
    )
  )
  (princ)
)