求助：如何用程序自动圆倒角fillet，不用在模型截面操作

天明whut

Sub jm()
    Dim qd(0 To 2) As Double, zd(0 To 2) As Double, zx(0 To 6) As AcadLine
    qd(0) = 0: qd(1) = 0: qd(2) = 0
    zd(0) = -670: zd(1) = 0: zd(2) = 0
    Set zx(0) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第一根线

    qd(0) = -670: qd(1) = 0: qd(2) = 0
    zd(0) = -670: zd(1) = -20: zd(2) = 0
    Set zx(1) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第二根线

    qd(0) = -670: qd(1) = -20: qd(2) = 0
    zd(0) = -670 + 110: zd(1) = -25: zd(2) = 0
    Set zx(2) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第三根线

    qd(0) = -670 + 110: qd(1) = -25: qd(2) = 0
    zd(0) = -670 + 110 + 210: zd(1) = -65: zd(2) = 0
    Set zx(3) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第四根线

    qd(0) = -670 + 110 + 210: qd(1) = -65: qd(2) = 0
    zd(0) = -670 + 110 + 210: zd(1) = -691.6: zd(2) = 0
    Set zx(4) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第五根线

    qd(0) = -670 + 110 + 210: qd(1) = -691.6: qd(2) = 0
    zd(0) = 0: zd(1) = -691.6: zd(2) = 0
    Set zx(5) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第六根线

    ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "10" & vbCr & zx(4) & zx(5)
End Sub

以上是我想画的图形的一半，准备对称过去形成截面，结果卡在圆倒角这里了。
主要是不想回到模型截面操作，因为到时候要一次性生成很多截面，回去模型截面用鼠标操作就没意义了。
求大神解惑！