(XD::Pnts:RemoveDup)点表消除重复点

dyjwyqz5221

结论：经过测试，XD::PNTS:REMOVEDUP-FUZZ函数在点表有容差的消重时效率较高。

liu-he

帖子比较就远了，但还是凑一下热闹。我结合leemac  写了一个重复项，也不需要排序
(defun ly:Unique (lst fuzz / b1 i j)
;;;;;;删除表中重复的点，有容差
  (setq b1 '())
  (setq i 0)
  (while (NTH (+ 1 i) LST)
    (SETQ J (+ 1 i))
    (while (NTH J LST)
      (IF (MEMBER NIL
                  (MAPCAR '(lambda (P1 P2) (EQUAL P1 P2 fuzz))
                          (nth i lst)
                          (NTH J LST)
                  )
          )
        (setq j (+ 1 j))
        (SETQ LST (LM:RemoveNth j lst))
      )
    )
    (setq i (+ 1 i))
  )
)
(defun LM:RemoveNth (n l)
;;;;去除第N项
  (if (and l (< 0 n))
    (cons (car l) (LM:RemoveNth (1- n) (cdr l)))
    (cdr l)
  )
)