how automate rounded angles into right or pointed angles

I wrote a macro can do this, you can find it here:  Shelby’s Sharpen Nodes – macromonster.com

I of course want to support you in learning and trying this yourself. There are several ways to do this, but I will show you one of the simpliest.

Draw two lines that start to come together and combine them like this:

This will be what we use to test with. With the Shape tool select the right two nodes. 

In code, we need to find this two selected nodes. We can do that with Curve.Selection. Once we have the two nodes we can extend them until the meet with ExtendSubPaths. 

A simple example would look like this:

Sub SharpenCornerExample()
    Dim nr As NodeRange
    
    Set nr = ActiveShape.Curve.Selection
    nr(1).ExtendSubPaths nr(2), True
End Sub

After running the code on the two nodes you should get this:

Happy Coding, 

-Shelby