用SSGET "C" 得到的选择集会有多个重复实体

xiabin68

(setq xzb ((3.13811e+007 3.15728e+006) (3.13811e+007 3.15727e+006)))
(SETQ HKBZ (SSGET "C" (NTH HKN XZB) (NTH HKN XZB) '((0 . "*LINE") (8 . "JZD,JMD"))))
用以上选择出来的实体其实只有两条多段线，，但是用(sslength hkbz)  得到的是4  后来发现这个LWPOLYLINE会有不相同的 图无名，，想了一个办法
把选择集去重，，但是一直不成功，不知道问题出在来，，没有办法把重复的实体去掉。。。求大神帮帮忙。。。。
(defun xzjqc (pts / p pl x)    ;;;PTS 为选择集，，，
  (setq pts (j-b pts))
  (setq pl '())
  (setq p (car pts))
  
  (while pts
    (setq p (car pts))
    (setq pts (cdr pts))
    (mapcar (function (lambda (x)
      (if (wcmatch (dxg 5 p) (dxg 5 x))
(setq pts (vl-remove x pts))
)
      )
        )
     pts
     )
    (setq pl (cons p pl))
    )
  (reverse pl)
  )
(defun j-b (li / n ll p)
  (setq n 0)
  (setq ll '())
  (repeat (sslength li)
    (setq p (ssname li n))
    (setq ll (append ll (list p)))
    (setq n (1+ N))
    )
  ll
  )
(defun dxg (code ele)
       (cdr (assoc code (entget ele)))
     )

xiabin68

以上用的选择坐标是相同的点

f4800

南方CASS横断面数据转为纬地横断面数据的小LSP
大神，你的程序测试  有点小问题需要解决
运行后  笔记本CAD2009版有错误提示，但是台式机CAD2012正常并成功。。原因未知。数据文件一样