紧急求助！！

小美菜 · 发表于 2005-1-1 19:46:00

大家新年好！
                     我有两问题紧急求助：
                              1、如何确定一个点在一个区域内，特别是不规则的多边形
                                       2、如何求一个点到直线的距离。
      谢谢各位

liub1979 · 发表于 2005-1-2 13:50:00

第1 我也问过,你先看看吧
第2 我也想知道哦 : )

小美菜 · 发表于 2005-1-2 20:43:00

谢谢！我已经解决了
Public Function Fun点在指定区域内(ByVal ePnt As Variant, ByVal objPnt As AcadEntity) As Boolean
   Dim L As Integer, I As Integer, xPnt As Variant, sPnt(2) As Double, iPnt As Variant, xLine As AcadLine
   sPnt(0) = -99999: sPnt(1) = -99999
   Set xLine = ThisDrawing.ModelSpace.AddLine(sPnt, ePnt)
   xPnt = objPnt.IntersectWith(xLine, acExtendNone)
   xLine.Delete: I = UBound(xPnt)
   I = Int(I / 3) + 1
   L = I - Int(I / 2) * 2
   If L = 0 Then Fun点在指定区域内 = False Else Fun点在指定区域内 = True
End Function