[求助]：不共线的pl，计算出重合段的长度不为0？

hnfsf

下面函数计算重合段长度：
(defun &cd (lst1 lst2 / a1 a2 a3 b1 b2 b3 dis lst1n n1 n2 pa1 pa2 pb1 pb2)
  (setq lst1 (cons (last lst1) lst1)
        lst2 (cons (last lst2) lst2))
  (setq n1 (length lst1) n2 (length lst2) dis 0.0)
  (repeat (- n2  1)
    (setq pb1 (car lst2) pb2 (cadr lst2) lst1n lst1)
      (repeat (- n1  1)
         (setq pa1 (car lst1n)
               pa2 (cadr lst1n)
               lst1n (cdr lst1n))
         (setq a1 (distance pa1 pa2) a2 (distance pb1 pa1) a3(distance pb1 pa2)
               b1 (distance pa1 pa2) b2 (distance pb2 pa1) b3(distance pb2 pa2))
         (if (and (equal (+ a1 a2 a3) (* 2 (max a1 a2 a3)) 1e-4)
                  (equal (+ b1 b2 b3) (* 2 (max b1 b2 b3)) 1e-4))
             (setq dis (+ dis (min (distance pa1 pa2) (distance pb1 pb2))))   
      )
    )
    (setq lst2 (cdr lst2))
  )
  dis  
)

测试：
(setq lst1 (&dd (car (entsel))) lst2 (&dd (car (entsel))))
(&cd lst1 lst2)

xyp1964

没看懂1

它山之石

未提供函数，
也懒得看贴出来的程序。

这种程序楼主还是自己调试吧。
画个示意图，
记录两个箍筋角点坐标，
一步一步的跟踪程序运行。

hnfsf

漏了这个函数，补上：
(defun &dd (en / i pts)
  (foreach i (entget en)
    (if (= (car i) 10)
      (setq pts (cons (cdr i) pts))
    )
  )
  (reverse pts)
)