社区 › AutoLISP/Visual LISP 编程技术 › 如何判断曲线是自交的?

TANER 发表于 2018-7-9 09:05:26

如何判断曲线是自交的?

如何判断曲线是自交的?谢谢!

TANER 发表于 2018-7-9 11:49:42

;http://www.theswamp.org/index.php?topic=43188.msg484107#msg484107
(defun _polyselfintersect-p ( obj / _gbn n v )
    (defun _gbn ( l n / r s )
      (repeat (/ (length l) n)
            (repeat n
                (setq s (cons (car l) s)
                      l (cdr l)
                )
            )
            (setq r (cons (reverse s) r)
                  s nil
            )
      )
      (reverse r)
    )
    (setq v (_gbn (vlax-get obj 'coordinates) 2)
          n (vlax-get obj 'normal)
    )
    (vl-some
      (function
            (lambda ( i )
                (null
                  (vl-some
                        (function
                            (lambda ( v )
                              (equal i (trans v n 0) 1e-8)
                            )
                        )
                        v
                  )
                )
            )
      )
      (_gbn (vlax-invoke obj 'intersectwith obj acextendnone) 3)
    )
)

已解决

434939575 发表于 2020-1-30 18:57:15

TANER 发表于 2018-7-9 11:49
已解决

这个可以，就是交点没计算出来{:1_1:}

查看完整版本: 如何判断曲线是自交的?