[编程申请]：求助：从列表C中列出以A为中心以B为半径范围内的所有元素，并返回新列表

chlh_jd

从列表C中列出以A为中心以B为半径范围内的所有元素，并返回新列表：
我写了个函数如下：
;;;从列表C中查找A的位置，并列出指定领域半径B内的所有元素，返回新元素列表D；
(defun list-near-el (A B C / list_length position_A -RADII +RADII n1 D)
  (if (= (atom C) T)
    (progn
      (setq
            list_length (length C)
            position_A (vl-position A C)            
            -RADII (if (< (- position_A B) 0) 0 (- position_A B))            
            +RADII (if (> (+ position_A B) (- list_length 1))
                 (- list_length 1) (+ position_A B))            
            n1 -RADII
            )
     (repeat (1+ (- +RADII -RADII))
       (setq D (append (list (nth n1 C)) D))
       (setq n1 (1+ n1))
       )
    (princ "\n找不到指定元素")
    )
  )
  )
;;;测试
(setq A 14
      B 2
      C (list 12 14 16 18 20 22 25)
      )
(list-near-el A B C);要得到(12 14 16 18)