VBA执行倒角命令的问题

StartMe

det1 = GetDoubleEntTable(LWPineObj1, pickPt1)
det2 = GetDoubleEntTable(LWPineObj2, pickPt2)
ThisDrawing.SendCommand "_chamfer" & vbCr & "d" & vbCr & "0" & vbCr & "0" & vbCr & det1 & vbCr & det2 & vbCr

Public Function GetDoubleEntTable(ByVal EntObj As AcadEntity, ByVal pnt As Variant) As String
    Dim entHandle As String
    entHandle = EntObj.Handle
    GetDoubleEntTable = "(list(handent " & Chr(34) & entHandle & Chr(34) & _
                     ")(list " & str(pnt(0)) & str(pnt(1)) & str(pnt(2)) & "))"
End Function

其中pickPt为对象的拾取点。

其中pickPt为对象的拾取点。

当选择的两条线均为多段线时，没有延长相交后连成一条线，而是程序执行根本没有反应。而当为直线时就正常，这是困扰已久的问题。那我想在程序里像chamfer一样处理两条多段线时该怎么做？

StartMe

能否请老大们帮忙一下，这是“顽疾”，困扰我很久了。或者有什么其他好的途径能实现同样的效果，也请告诉我。

mccad

确实有问题，看来用SentCommand不能解决。

如果确实要做，只能自己计算后再画线。

StartMe

谢谢明总，知道确实不可行我就换种方法吧。