如何判断，多线段的顺逆时针之分？

wjfling

如何判断，多线段的顺逆时针之分？ 我的问题参看： http://bbs.mjtd.com/forum.php?mod=viewthread&tid=12800

zhangxin0298

非常好，有用

mccad

2. Sub rv()
   
3.     Dim pnt As Variant
   
4.     Dim ent As AcadEntity
   
5.     ThisDrawing.Utility.GetEntity ent, pnt, "请选择多段线："
   
6.     Dim rev As Boolean
   
7.     rev = IsClockWise(ent)
   
8.     If rev Then
   
9.         Debug.Print "顺时针"
   
10.     Else
    
11.         Debug.Print "逆时针"
    
12.     End If
    
13. End Sub
    
14. 
    
15. Function IsClockWise(objEntity As AcadEntity) As Boolean
    
16.     On Error Resume Next
    
17.     Dim NewObj As Variant
    
18.     NewObj = objEntity.Offset(-0.01)
    
19.     Dim Area1 As Double
    
20.     Dim Area2 As Double
    
21.     Area1 = objEntity.Area
    
22.     Area2 = NewObj(0).Area
    
23.     Dim i As Integer
    
24.     For i = 0 To UBound(NewObj)
    
25.         NewObj(i).Delete
    
26.     Next
    
27.     If Area1 < Area2 Then IsClockWise = True
    
28. End Function
    

Sub rv()<br />     Dim pnt As Variant<br />     Dim ent As AcadEntity<br />     ThisDrawing.Utility.GetEntity ent, pnt, "请选择多段线："<br />     Dim rev As Boolean<br />     rev = IsClockWise(ent)<br />     If rev Then<br />         Debug.Print "顺时针"<br />     Else<br />         Debug.Print "逆时针"<br />     End If<br /> End Sub<br /> <br /> Function IsClockWise(objEntity As AcadEntity) As Boolean<br />     On Error Resume Next<br />     Dim NewObj As Variant<br />     NewObj = objEntity.Offset(-0.01)<br />     Dim Area1 As Double<br />     Dim Area2 As Double<br />     Area1 = objEntity.Area<br />     Area2 = NewObj(0).Area<br />     Dim i As Integer<br />     For i = 0 To UBound(NewObj)<br />         NewObj(i).Delete<br />     Next<br />     If Area1 < Area2 Then IsClockWise = True<br /> End Function<br />

gyl

站长的方法很有意思！
如果单纯根据坐标数据判断曲线的方向，在晓东CAD有过讨论，我也提供了一种方法。详见：
http://www.xdcad.net/forum/showthread.php?s=&threadid=34540&perpage=15&display=&pagenumber=1

mccad

贴子看过了，方法不错，但在VBA中要达到你所说的目的，方法：
1.使用VLAX操作曲线的方法，先找到最西边的点，然后按一个小距离取前一点和后一点进行判断。
2.找最西边的点的方法：先使用GetBoundingBox方法取外框，找到外框四个点中西边的两个点画一直线，该直线与曲线的相交点就是最西边的点了

使用面积法应该说是最简单的方法，而对于自相交的曲线，确实没有方向可说，要判断是否自相关，在相得NewObj = objEntity.Offset(-0.01)中的面积小于原面积后，还需要再求NewObj = objEntity.Offset(0.01)中的面积是否小于原面积，如果两个偏移方法的面积均小于原面积，则可以判断曲线为自相关。

wjfling

多谢！

今晚打老虎

又是你，哈哈，你问的问题我猜到了，因为我也遇到了，而我解决的办法不是去判断顺时针，逆时针，而是两个偏移都生成，然后判断一下两条多段线的长短，长的在外，短的在内，做出取舍就行了~~~~~~~~~~~

wyj7485

今晚打老虎发表于2003-11-20 10:58:00又是你，哈哈，你问的问题我猜到了，因为我也遇到了，而我解决的办法不是去判断顺时针，逆时针，而是两个偏移都生成，然后判断一下两条多段线的长短，长的在外，...

你这个方法可行

nxy_918

与面积判断法的同理

haitu

mccad朋友的这个方法我有些不懂，能不能解释一下里面的细节，主要是Offset这个方法是设置偏移量的，但是这个怎么又和面积Area关系上了，一头雾水～～

我也遇到了这个问题，非常希望和感谢有人能帮帮我啊～～

68651521

haitu发表于2006-1-13 13:13:00 mccad朋友的这个方法我有些不懂，能不能解释一下里面的细节，主要是Offset这个方法是设置偏移量的，但是这个怎么又和面积Area关系上了，一头雾水～～...

用左手或者右手比划一下就知道了啊

四指的方向是线的走向 大拇指的方向表示将偏移的方向

那顺时针走 则新生成的线围出来的面积要大或小些

反之..~-_-b.