[编程交流] 如何删除重复点

(defun POINTLINES ( / sel i ini e fin)
;SELECTION ALL THE LINES IN THE DRAWING
 
(setq sel (ssget "_a" '((0 . "LINE" ))))
 (repeat (setq i (sslength sel))
   (setq i (1- i))
   ;EXTRACTION INITIAL COORDINATES OF THE LINE
   (setq ini (cdr (assoc 10 (entget (setq e (ssname sel i)))))) 
   ;CREATION INITIAL POINT OF THE LINE        
   (entmakex
     (list
       (cons 0 "POINT")
       (cons 10 ini)
     )
   )
   ;EXTRACTION FINAL COORDINATES OF THE LINE
   (setq fin (cdr (assoc 11 (entget (setq e (ssname sel i))))))
   ;CREATION FINAL POINT OF THE LINE        
   (entmakex
     (list
       (cons 0 "POINT")
       (cons 10 fin)
       
     )
   )
   )
 (princ)
 
      )

(defun c:linepoints ( / e i l p s )
   (if (setq s (ssget "_X" '((0 . "LINE"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i)))))
           (foreach x '(10 11)
               (setq p (cdr (assoc x e)))
               (if (not (vl-some '(lambda ( q ) (equal p q 1e-) l))
                   (progn
                       (entmake (list '(0 . "POINT") (cons 10 p)))
                       (setq l (cons p l))
                   )
               )
           )
       )
   )
   (princ)
)