Intersection between two Polylines

[aaryan]

Hi All,

I am Very much Thankful to all of You for helping me a lot and making me learn more from this Forum.

I need your help again. Please

I've attached a drawing for clarification.

In words i would like to know the intersection between two polylines one is Vertical with two vertices and the another one is horizontal which has many vertices. Is inters function suitable for this.

Please reply.

Intersection.dwg

[MSasu]

You may try to validate the intersection using the built-in INTERS function and parsing the second polyline’s consecutive vertexes in pairs.

Or may check the functions shared by Lee Mac.

[aaryan]

Thank You Mircea

 

One more doubt what if my vertical line is not touching the horizontal line. Is it still possible?

 

Regards

[MSasu]

The validation of intersection can be made in extension mode. That it, one or both segments are extended to infinity and this way can obtain an intersection point that doesn't lay on any of the analyzed segments.

[BIGAL]

Check out the VL code intersectwith more advanced than lisp Inters you can do stuff like do they touch or extend till they touch.

 

example

(setq pickobj (entsel "\nPick arc :"))
(setq obj1 (vlax-ename->vla-object (car pickobj)))
(setq pt1 (cadr pickobj))  
(setvar "clayer" (cdr (assoc 8 (entget (car pickobj)))))
(setq pickobj1 (entsel "\nPick 1st line :"))
(setq obj2 (vlax-ename->vla-object (car pickobj1)))
(setq intpt1 (vlax-invoke obj2 'intersectWith obj1 acExtendThisEntity)) ;  acExtendThisEntity this can be changed for different test

[MSasu]

To use on BIGAL's example, the available modes for intersection validation are: acExtendNone, acExtendBoth, acExtendThisEntity and acExtendOtherEntity.

[aaryan]

Thank You Both I've solved the problem using acExtendBoth.

Thank You Once Again.

 

Regards

Aaryan