求判断点是否在多边形内的VBA程序?

saga

求判断点是否在多边形内的VBA程序

peicong

我也想知道，要是矩形就好办，多边形是有点麻烦

68651521

如果精度要求不高的话

试试在点处画一个半径很小的圆，做成面域求交集

zyhalj

Function isClose()  
    Dim n As Long
    n = ThisDrawing.ModelSpace.Count   
   
    Dim pt As Variant
    pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
    ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr 
  
   
    If ThisDrawing.ModelSpace.Count > n Then
        isClose = True
    Else
        isClose = False
    End If
End Sub

xinghesnak

4楼的,你的代码不是很准确,假如点不在目标多边形内,而在一个不相干的闭合区域内,那么你的程序检测出来是TRUE,这显然是不对的,我比较同意3楼的办法,但希望能找到更好的办法.......斑竹或者其他高手赐教......