如何判断曲线是自交的?

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

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

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

;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)
)
)

;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

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

这个可以，就是交点没计算出来

账号		自动登录	找回密码
密码			注册

[提问] 如何判断曲线是自交的?