VBA-命令2上的圆角
通过ThisDrawing发送Fillet命令时，我遇到了VBA的一个非常“奇怪”的行为。SendCommand功能。我有函数Fillet_2Line（line1，line2，r），它将Fillet命令应用于半径为r的line1，line2
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-由手柄选择-不工作
页:
[1]