如何知道一个点是在多线的内侧还是外侧(偏移多线时用)?

dyheng

现在想实现这种效果：用户在多线的两侧单击一下，通过判断点在多线的内侧还是外侧以决定该多线的偏移方向。但是点在多线的哪侧我判断不出来，请问哪位大哥有办法，帮忙解决一下，谢谢了！

wyj7485

Public Obj As Object
Public Pnt As Variant
Sub test()
Dim a, handle
a = 20 ThisDrawing.Utility.GetEntity Obj, Pnt, vbCrLf & "选择多段线:"
ThisDrawing.Utility.GetPoint Pnt, vbCrLf & "指定点以确定偏移所在一侧:" handle = Obj.handle
ThisDrawing.SendCommand "offset" & Str(a) & vbCr & "(handent " & Chr(34) & handle & Chr(34) & ")" & vbCr & _
"(list " & Str(Pnt(0)) & Str(Pnt(1)) & Str(Pnt(2)) & ")" & vbCr & vbCr End Sub

dyheng

2楼楼主，你种方法可以实现偏移，但由于a=20这个值永远都是正值，所以无论你选择哪一侧，也就是无论选点A还是点B，这个多线永远都是向一侧偏移（当图示多线为逆时针方向画时永远向B侧偏移）。我求助的目的就是想通过判断点与多线的位置关系来动态设定a的正负值，也就是通过判断A点或B点在多线的内侧或外侧（图示多线为逆时针方向画的）来设定a=-20还是a=20，请问有办法吗？

wyj7485

Public Obj As Object
Public Pnt As Variant
Sub test()
Dim a, handle
a = 20 ThisDrawing.Utility.GetEntity Obj, Pnt, vbCrLf & "选择多段线:"

Pnt=ThisDrawing.Utility.GetPoint (, vbCrLf & "指定点以确定偏移所在一侧:")

'此处修改了 handle = Obj.handle
ThisDrawing.SendCommand "offset" & Str(a) & vbCr & "(handent " & Chr(34) & handle & Chr(34) & ")" & vbCr & _
"(list " & Str(Pnt(0)) & Str(Pnt(1)) & Str(Pnt(2)) & ")" & vbCr & vbCr End Sub [glow=255,red,2]文字[/glow]

dyheng

谢谢!这次可以了!

dyheng

wyj7485大哥，现在又出了点问题，我还想利用偏移后的多线对象，好像用SendCommand这种方法偏移出来的对象都无法得到，是不是这样的？有没有解决方法，可以使我能够得到偏移后对象节点的坐标，谢谢了！

wyj7485

Public Pt As Variant'放到全局变量定义区
Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
If Object.ObjectName = "AcDbPolyline" Then
Pt = Object.Coordinates
End If
End Sub

wyj7485

这种方法最好: set objentity=ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count-1)

fl202

请参考：

http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid809120