Filleting lines

[Fanathur]

Good evening. I'm writing code to fillet two lines by by point, but I only make just 1 arc. On the other cases say "Impossible to fillet the same object."

 

Here is the code ¿Can help me anybody? Thanks.

 

            rst.MovePrevious
            ptoempalme1 = rst("x") & "," & rst("y") & ",0" & vbCr
            rst.MoveNext
            radio = Mid(rst("punto"), 2, 1) & " "
            acad.ActiveDocument.SendCommand "filletrad " & radio
            rst.MoveNext
            ptoempalme2 = rst("x") & "," & rst("y") & ",0" & vbCr
            comando = "empalme " & ptoempalme1 & ptoempalme2
            acad.ActiveDocument.SendCommand comando