VBA执行倒角命令的问题
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一样处理两条多段线时该怎么做？
能否请老大们帮忙一下，这是“顽疾”，困扰我很久了。或者有什么其他好的途径能实现同样的效果，也请告诉我。
确实有问题，看来用SentCommand不能解决。
如果确实要做，只能自己计算后再画线。
谢谢明总，知道确实不可行我就换种方法吧。
页:
[1]