[求助]：求助，由许多点组成的表，如何去除相同的点

dandee

求助，由许多点组成的表，如何去除相同的点。
各位是否能提供这方面的简练的程序

xyp1964

[php]
(defun rm-lst (ptlst)
  (setq ptlst-new '())
  (while (setq pt1 (car ptlst))
    (setq ptlst-new (cons pt1 ptlst-new)
          ptlst            (vl-remove pt1 ptlst)
    )
  )
  (setq ptlst-new(reverse ptlst-new))
  ptlst-new
)[/php]
!ptlst :
((67250.7 23301.5) (65892.7 26847.0) (65476.3 28981.6)
(62977.6 25707.4) (65005.5 26702.3) (62036.1 28746.4)
(62416.4 22776.9) (65892.7 26847.0) (68735.4 28619.8)
(71686.7 27263.1) (69061.3 26792.7) (68934.6 24676.3)
(67250.7 23301.5)(67938.7 25888.3) (62416.4 22776.9)
(65892.7 26847.0) (69061.3 26792.7) (68735.4 28619.8)
(71686.7 27263.1) (68934.6 24676.3) (69061.3 26792.7)
(65892.7 26847.0) (67250.7 23301.5))

命令: (rm-lst ptlst)
((67250.7 23301.5) (65892.7 26847.0) (65476.3 28981.6) (62977.6 25707.4)
(65005.5 26702.3) (62036.1 28746.4) (62416.4 22776.9) (68735.4 28619.8)
(71686.7 27263.1) (69061.3 26792.7) (68934.6 24676.3) (67938.7 25888.3))

狂刀

这样写更简洁
[php]
(defun tt (ptlst / a lst)
  (while (setq a    (car ptlst)
               lst  (cons a lst)
               ptlst(vl-remove a ptlst))               
  )
  (reverse lst)
)
[/php]

wkai

可以作为一个通用的扣除表中相同项的函数
remove_same