[求助]请教各位老师

runkeji

提取矩形或者多一线的数据。以点的坐标组成一个表。
查询表中的元素，如果有坐标点重复的，删除其中任意一个。
最后返回表为删除后的表。

清高手帮忙写一下好吗？
                         谢谢！

王咣生

参照:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8719

runkeji

谢谢！我去看一下

runkeji

(defun jx(as /)
   (princ "請選取一個矩形吧:")
  ;(SETQ AS (car A))
  (setq ac (ENTGET AS))
;(setq AF (CDR (ASSOC 10 Ac)))
  (setq n 0)
  (setq sidian nil)
  (while (setq pand (assoc 10 ac))
    (progn
      (setq jieduan (member pand ac))
      (setq one (cdr pand))
      (setq ac (cdr jieduan))
      (setq sidian (cons one sidian))
      )
    )
  ;;;;;;  get the resault   H  AND  B
  ;(if(eq (caar sidian)
  ;
  (setq saves1 sidian)
  (setq saves2 sidian)
  (repeat (- (length saves1) 1)
    (setq lst1 (car saves1))
    (repeat (- (length saves2) 1)
     (setq lst2 (cadr saves2))
       (if (equal lst1 lst2)
         (progn
           (vl-remove lst2 saves2)
          )
         (setq saves2 (cdr saves2))
        )
      ;(setq sidian (cons lst1))
    (setq saves1 (cdr saves1))
    )
我想返回删除后的表，现在不知怎么办了