(求助)如何把特殊表中重复删除保留一个

kozmosovia

(foreach abc PointList
  (setq px (cadr abc))
  (or (equal
        (car
          (vl-sort (mapcar (function (lambda (x) (distance x px))) Check)
                   '<
          )
        )
        0.
        0.001
      )
      (setq Check (cons px Check)
            rtn          (cons abc rtn)
      )
  )
)
(reverse rtn)

guosheyang

几何意义是不是这样， 在直线选择集中，选择有一个节点重合的直线，如果其方向不一致，则删除其中的一条，其他直线不管

hn10183051

kozmosovia 发表于 2024-6-17 20:04
(foreach abc PointList
  (setq px (cadr abc))
  (or (equal

谢谢大佬，可以了

xyp1964

1. (defun DelSame (lst / tmp lst1)
   
2.   "端点重合消除"
   
3.   (foreach a lst
   
4.     (if (and (not (member (car a) tmp1))(not (member (cadr a) tmp2)))
   
5.       (setq tmp1 (cons (car a) tmp1)
   
6.             tmp2 (cons (cadr a) tmp2)
   
7.             lst1 (cons a lst1)
   
8.       )
   
9.     )
   
10.   )
    
11.   (reverse lst1)
    
12. )

(defun DelSame (lst / tmp lst1)<br />   "端点重合消除"<br />   (foreach a lst<br />     (if (and (not (member (car a) tmp1))(not (member (cadr a) tmp2)))<br />       (setq tmp1 (cons (car a) tmp1)<br />             tmp2 (cons (cadr a) tmp2)<br />             lst1 (cons a lst1)<br />       )<br />     )<br />   )<br />   (reverse lst1)<br /> )