如何找出图中所有交点?

lgf727

如何找出一张图中所有的交点,及其对应的线?

efan2000

只能通过一条线，查找在它某一范围之内的其它线，判断它们之间有没有交点。

2. 
   
3. Sub test()
   
4.    
   
5.     ' 判断图纸中的实体数目，不存在时中断
   
6.     If ThisDrawing.ModelSpace.Count = 0 Then Exit Sub
   
7.     Dim EntObj1 As AcadEntity
   
8.     Dim EntObj2 As AcadEntity
   
9.     Dim v As Variant
   
10.     ' 遍历模型空间
    
11.     For Each EntObj1 In ThisDrawing.ModelSpace
    
12.         ' 判断实体的类型，线应该包含直线、圆弧、圆、多段线等等，要一一判断
    
13.         If TypeOf EntObj1 Is AcadLine Or TypeOf EntObj1 Is AcadLWPolyline Then
    
14.             For Each EntObj2 In ThisDrawing.ModelSpace
    
15.                 If TypeOf EntObj1 Is AcadLine Or TypeOf EntObj1 Is AcadLWPolyline Then
    
16.                     ' 判断相交情况
    
17.                     v = EntObj1.IntersectWith(EntObj2, acExtendNone)
    
18.                     If Not IsEmpty(v) Then
    
19.                         ' 一个交点
    
20.                         If UBound(v) = 3 Then
    
21.                         ' 两个交点
    
22.                         ElseIf UBound(v) = 6 Then
    
23.                         ' 其它情况
    
24.                         Else
    
25.                         End If
    
26.                     End If
    
27.                 End If
    
28.             Next
    
29.         End If
    
30.     Next
    
31. End Sub
    

<br /> Sub test()<br />     <br />     ' 判断图纸中的实体数目，不存在时中断<br />     If ThisDrawing.ModelSpace.Count = 0 Then Exit Sub<br />     Dim EntObj1 As AcadEntity<br />     Dim EntObj2 As AcadEntity<br />     Dim v As Variant<br />     ' 遍历模型空间<br />     For Each EntObj1 In ThisDrawing.ModelSpace<br />         ' 判断实体的类型，线应该包含直线、圆弧、圆、多段线等等，要一一判断<br />         If TypeOf EntObj1 Is AcadLine Or TypeOf EntObj1 Is AcadLWPolyline Then<br />             For Each EntObj2 In ThisDrawing.ModelSpace<br />                 If TypeOf EntObj1 Is AcadLine Or TypeOf EntObj1 Is AcadLWPolyline Then<br />                     ' 判断相交情况<br />                     v = EntObj1.IntersectWith(EntObj2, acExtendNone)<br />                     If Not IsEmpty(v) Then<br />                         ' 一个交点<br />                         If UBound(v) = 3 Then<br />                         ' 两个交点<br />                         ElseIf UBound(v) = 6 Then<br />                         ' 其它情况<br />                         Else<br />                         End If<br />                     End If<br />                 End If<br />             Next<br />         End If<br />     Next<br /> End Sub<br />

这仅是一个示例，具体的要根据自己的情况来处理。