[编程交流] VBA-命令2上的圆角

Sub fillet_2line(line1 As Variant, line2 As Variant, radius As Double)
   Dim text As String
   text = "f" & vbCr & "r" & vbCr & radius & vbCr & "(handent " & Chr(34) & line1.Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & line2.Handle & Chr(34) & ")" & vbCr
   ThisDrawing.SendCommand (text)
End Sub

如您所见，该函数非常简单，从Autocad调用Fillet命令，然后通过其句柄选择两条直线。Use可以通过调用Fillet命令来复制没有VBA的函数，并通过其句柄选择两条线。
但是，它适用于直线，但不适用于多段线。如果我用鼠标左键点击两条多段线，就可以了。但是，如果我通过控制柄选择两条多段线，它将不起作用！
圆角2线-通过左键单击选择-工作
圆角2线-由手柄选择-工程
圆角2 PLine-选定左键单击-工作
圆角2 PLine-由手柄选择-不工作