也发个自己弄来转多线段的，不敢说好，但绝对纯源码

fangmin723

大佬，你好，想问下(defun x (OBJ l p q o C / F)
  (SETQ F (if
            (and (> (+ (distance p q) (distance q o)) l)
                 (< (abs (* (distance p q) (sin (- (angle p q) (angle p o))))) C)
            )
            1
            2
          )
  )
)
这个函数怎么理解，麻烦大佬，帮忙解解惑，感谢&#128591;&#127995;&#128591;&#127995;&#128591;&#127995;