[讨论]如何判断坐标点是否在闭合多段线内

efan2000

这种方式其实是调用ACAD的方法来判断，它还生成一个实体，因而运行的时间是比较长的。
其它的都要自己根据算法来编写一段代码了，算法在计算机图形学里有介绍。

zzg4028061

创建一个临时图层，然后使用点坐标在图层上创建一个点对象
使用闭合线域在临时图层上选择，如果选择集的Count>0则在范围内，否则则不在
呵呵

cqszgs

下面的程序是用面域相交的方法判断是否点在封闭的PLine内部。
思路：
1.根据点的坐标生成一个半径很小的圆。
2.将圆和PLine转换为面域。
3.判断生成的两个面域是否相交。
程序如下：

2. 
   
3. Public Function PtInPline(pts As Variant, pline As AcadEntity) As Boolean
   
4.   Const radius = 0.0001 '减少此值可以增加精度
   
5.   
   
6.   Dim cir As AcadCircle
   
7.   Dim regions As Variant
   
8.   Dim reg1 As AcadRegion
   
9.   Dim reg2 As AcadRegion
   
10.   '生成圆
    
11.   Set cir = ThisDrawing.ModelSpace.AddCircle(pts, radius)
    
12.    
    
13.   '转换为面域
    
14.   Dim objToRegion(0 To 1) As Object
    
15.   Set objToRegion(0) = cir
    
16.   Set objToRegion(1) = pline
    
17.   regions = ThisDrawing.ModelSpace.AddRegion(objToRegion)
    
18.   Set reg1 = regions(0)
    
19.   Set reg2 = regions(1)
    
20.   
    
21.   reg1.Boolean acIntersection, reg2
    
22.   '判断是否相交
    
23.   PtInPline = False
    
24. '  If reg1.Area > 0 Then
    
25.   If reg1.Area > 0.9 * 3.14 * radius * radius Then
    
26.     PtInPline = True
    
27.   End If
    
28.   '删除临时生成物体
    
29.   cir.Delete
    
30.   reg1.Delete
    
31.    
    
32. End Function
    
33. 
    

<br /> Public Function PtInPline(pts As Variant, pline As AcadEntity) As Boolean<br />   Const radius = 0.0001 '减少此值可以增加精度<br />   <br />   Dim cir As AcadCircle<br />   Dim regions As Variant<br />   Dim reg1 As AcadRegion<br />   Dim reg2 As AcadRegion<br />   '生成圆<br />   Set cir = ThisDrawing.ModelSpace.AddCircle(pts, radius)<br />     <br />   '转换为面域<br />   Dim objToRegion(0 To 1) As Object<br />   Set objToRegion(0) = cir<br />   Set objToRegion(1) = pline<br />   regions = ThisDrawing.ModelSpace.AddRegion(objToRegion)<br />   Set reg1 = regions(0)<br />   Set reg2 = regions(1)<br />   <br />   reg1.Boolean acIntersection, reg2<br />   '判断是否相交<br />   PtInPline = False<br /> '  If reg1.Area > 0 Then<br />   If reg1.Area > 0.9 * 3.14 * radius * radius Then<br />     PtInPline = True<br />   End If<br />   '删除临时生成物体<br />   cir.Delete<br />   reg1.Delete<br />     <br /> End Function<br /> <br />

cqszgs

使用API判断点是否在多边形中
[WEB]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15203[/WEB]

cqszgs

[转帖]判断点是否在多边形中的分析
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15179

[WEB]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15179[/WEB]

algorithm

现在给你一个点。怎么判断？

algorithm

现在给你一个点。怎么判断？

LONGXIN

http://www.xdcad.net/forum/showthread.php?s=&threadid=410414

misters

大虾们都在这灌水，去看看我的问题呀，添加多线段的问题

zyhandw

我也遇到同样问题，请大侠指点！