[编程申请]：请问如何得到几个相连的实体的外边界?

z954134

有几个在一起的实体，怎样才能得到它们的外边界

雪山飞狐(lzh)

通过什么操作得到相交的实体的？选择集？

2. 
   
3. Sub test)
   
4. 'On Error Resume Next
   
5. 
   
6. Dim ss As AcadSelectionSet, p1, p2
   
7. Set ss = CreateSel()
   
8. ss.SelectOnScreen
   
9. MsgBox ss.Count
   
10. GetSelBox ss, p1, p2
    
11. OutputPoint (p1)
    
12. OutputPoint (p2)
    
13. 
    
14. End Sub
    
15. 
    
16. 
    
17. 
    
18. Function CreateSel(Optional Name As String = "TlsSel") As AcadSelectionSet
    
19. On Error Resume Next
    
20.     ThisDrawing.SelectionSets(Name).Delete
    
21.     Set CreateSel = ThisDrawing.SelectionSets.Add(Name)
    
22. End Function
    
23. 
    
24. Sub GetSelBox(ByVal TlsSel As AcadSelectionSet, ByRef MinPoint As Variant, ByRef MaxPoint As Variant)
    
25.     Dim i
    
26.     Dim minpnt, maxpnt
    
27.     Dim p1, p2
    
28.    
    
29.     TlsSel(0).GetBoundingBox minpnt, maxpnt
    
30.    
    
31.     For i = 1 To TlsSel.Count - 1
    
32.         TlsSel(i).GetBoundingBox p1, p2
    
33.         If p1(0) < minpnt(0) Then minpnt(0) = p1(0)
    
34.         If p1(1) < minpnt(1) Then minpnt(1) = p1(1)
    
35.         If p2(0) > maxpnt(0) Then maxpnt(0) = p2(0)
    
36.         If p2(1) > maxpnt(1) Then maxpnt(1) = p2(1)
    
37.     Next i
    
38.    
    
39.     MinPoint = minpnt
    
40.     MaxPoint = maxpnt
    
41. End Sub
    
42. 
    

<br /> Sub test)<br /> 'On Error Resume Next<br /> <br /> Dim ss As AcadSelectionSet, p1, p2<br /> Set ss = CreateSel()<br /> ss.SelectOnScreen<br /> MsgBox ss.Count<br /> GetSelBox ss, p1, p2<br /> OutputPoint (p1)<br /> OutputPoint (p2)<br /> <br /> End Sub<br /> <br /> <br /> <br /> Function CreateSel(Optional Name As String = "TlsSel") As AcadSelectionSet<br /> On Error Resume Next<br />     ThisDrawing.SelectionSets(Name).Delete<br />     Set CreateSel = ThisDrawing.SelectionSets.Add(Name)<br /> End Function<br /> <br /> Sub GetSelBox(ByVal TlsSel As AcadSelectionSet, ByRef MinPoint As Variant, ByRef MaxPoint As Variant)<br />     Dim i<br />     Dim minpnt, maxpnt<br />     Dim p1, p2<br />     <br />     TlsSel(0).GetBoundingBox minpnt, maxpnt<br />     <br />     For i = 1 To TlsSel.Count - 1<br />         TlsSel(i).GetBoundingBox p1, p2<br />         If p1(0) < minpnt(0) Then minpnt(0) = p1(0)<br />         If p1(1) < minpnt(1) Then minpnt(1) = p1(1)<br />         If p2(0) > maxpnt(0) Then maxpnt(0) = p2(0)<br />         If p2(1) > maxpnt(1) Then maxpnt(1) = p2(1)<br />     Next i<br />     <br />     MinPoint = minpnt<br />     MaxPoint = maxpnt<br /> End Sub<br /> <br />

z954134

我可能没表达清楚,我的意思不是得到它们的BoundingBox,我传了个图上来,最后的结果应该得到那条红线

雪山飞狐(lzh)

做成面域求并集

z954134

求并集会出现下面的情况，把不相连的实体也连在了一起，而且不知道怎么样才能得到边界的折点坐标

y0yxt

给你一个大概的思路，我在2005上试过
1.得到包含所有实体ss的外围矩形框，可用二楼的办法,取端点pt1
2.对框向外作适当的放大，得到外边界线实体b,取相应的端点pt2，求pt1 pt2 的中点pt
3.调用-boundary命令，以ss和b为选择集，pt为指定点
4.生成两个以上的闭合线,有一个是外边界，其余是你想要的

z954134

我按照上面的方法已经得到了边界,但不知道该边界该如何存到变量里,能再指点下吗