How to fillet two plines?

[Anonymous]

I'm writing a function that I just have to enter the dimensions to get a drawing.

Here is the 'plines' code:

[...]
(command "pline" p7 p2 p1 p3 p4 "") ;line1

(command "pline" p4 p9 "") ;line2
  
(command "pline" p10 p11 "") ;line3
[..]

After running the function, I get the following drawing:

The intersected lines are 'line2' and 'line3' from the code.

I wanna write a code that can fillet those two lines with radius 0 like this:

How do I manage to make it?

Best regards.

[Anonymous · Accepted solution]

Since you have the pts already, why not use INTERS function to calc the intersection and just continue drawing the pline.

[Anonymous]

@Anonymous, thank you so much!
I didn't know about this function (newbie), and it worked pretty well.

Regards!

[Sea-Haven]

Look into the vl function intersectwith also it has far more functionality looking at objects rather than points.

(setq intpt1 (vlax-invoke obj2 'intersectWith obj1 acExtendThisEntity))