;------------------------------------------------------------
; Функция исключения дублирующих членов списка, идущих подряд
; (C)KAI, 2003 г. (413-2) 65-05-10 Магадан. http://geol-dh.narod.ru/  
;------------------------------------------------------------
(defun NOT_DUPLICATE (lst pres / k l lstnew)
  ;lst = некий список (чисел, точек)
  ;pres = точность сравнения чисел 
  (setq k 0 lstnew '())
  (foreach l lst
    (if (not (equal l (nth (1+ k) lst) pres))
      (setq lstnew (append lstnew (list l)))
    )
    (setq k (1+ k))
  );foreach
  lstnew ; список, в которых соседние члены не дублируются.
);end of ********* NOT_DUPLICATE **********