Topic: (Algorithms) How to determine the position of two LWPOLYLINE?

[well20152016]

How to determine the position of two LWPOLYLINE?

[Dlanor]

If both are closed draw a line from the centoid of each, and check the parameters or distances of the intersection points of the line with the two polylines

[Lee Mac]

Assuming linear segments only, use the ideas shared in this thread to check whether each vertex of one polyline lies inside the other - you'll need to decide the appropriate output if the polylines are partially overlapping.

[well20152016]

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt()
2. (setq l1 (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) (entget (car (entsel "\nLWPOLYLINE1")))))
3.       l2 (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) (entget (car (entsel "\nLWPOLYLINE2")))))
4.       k1 (mapcar'(lambda (x) (raycast x l2)) l1)
5.       K2 (mapcar'(lambda (x) (ptonline x l2)) l1)
6.       )
7.   (cond ((and (apply'and k1) (null(vl-remove 'nil (apply 'append k2)))) (princ  "\n*********  1 in 2"))
8.         ((and (null (apply'and k1)) (null (vl-remove 'nil (apply 'append k2)))) (princ  "\n*********  1 outside 2"))
9.         ((and (null (apply'and k1)) (vl-remove 'nil (apply 'append k2))) (princ  "\n*********  1 outside 2-Tangency"))
10.         ((and (apply'and k1) (vl-remove 'nil (apply 'append k2))) (princ  "\n*********  1 in 2-Tangency"))
11.         )
12. (princ))
13.  
14. (defun raycast ( p l )
15.     (= 1 (setq y (logand 1(length (vl-remove 'nil (setq kl (mapcar'(lambda ( a b ) (inters p (mapcar '+ p '(1e8 0.0)) a b))  (cons (last l) l) l )))))))
16. )
17. (defun ptonline ( p l )
18.     (vl-remove 'nil (mapcar'(lambda (a b) (equal (- (distance a b)(distance p a)(distance p b)) 0 1e-7))  (cons (last l) l) l ))
19. )

[roy_043]

The ray cast approach has a known problem:

Code: [Select]

(RAYCAST '(0 0 0) '((1 0 0) (1 1 0) (-1 1 0) (-1 -1 0) (2 -1 0) (2 0 0))) => nil

[well20152016]

Special examples, what's wrong?