|
|
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一样处理两条多段线时该怎么做？
|
|
置顶卡
