How To Find Intersection Point Between Two Crossing LWPOLYLINES

How To Find Intersection Point Between Two Crossing LWPOLYLINES

:(

Find_intersections.dwg

 
(vlax-invoke obj1 'IntersectWith  obj2 acExtendNone)

 
(inters pt1 pt2 pt3 pt4)

For more examples regarding intersection between entities you may also check Lee Mac's site.

a simple example

(defun c:sample  ( / _inters i f ss ss2 lst)
(defun _inters (ob1 sset ls / lst)
     (repeat (setq i (sslength sset))
           (if (setq f (vlax-invoke  ob1 'IntersectWith
                 (vlax-ename->vla-object
                       (ssname sset (setq i (1- i))))
                 acExtendNone)
                     )
               (setq ls (cons f ls)))) ls)
       (setq ss (ssget '((0 . "LWPOLYLINE"))) ss2 ss)
      (repeat (sslength ss)
               (setq lst (_inters (vlax-ename->vla-object (ssname ss 0)) ss2 lst))
               (ssdel (ssname ss 0) ss)
             )
     (foreach p lst (print p))
     (princ)
     )

yes!!! its working very good

Thank u pBe

:D