又是一个问题！请指教啊！谢了！

laoliu09 · 发表于 2005-1-4 13:43:00

我选了一点，怎么判断我选的这点周围有没有被其他的闭合图元包围？？？就像CAD的填充功能一样，通过用户选的点判断周围有没有可填充的区域！

雪山飞狐_lzh · 发表于 2005-1-4 14:17:00

做成面域求交

laoliu09 · 发表于 2005-1-4 15:36:00

我接触开发cad的时间不长，怎样做成面域求交呢？对了，面域的作用是什么啊？
谢了！

laoliu09 · 发表于 2005-1-5 08:59:00

怎么没人回答啊！？到底应该怎样做啊？谢了！

laoliu09 · 发表于 2005-1-5 11:58:00

老师、斑竹来帮帮我啊！

雪山飞狐_lzh · 发表于 2005-1-5 14:50:00

Private function PointInRegion(ByVal TlsRegion, ByVal Point) As Boolean
'判断点是否在面域内
   Dim pCopy As AcadRegion, pRegion As AcadRegion
   Dim pobjs(0) As AcadEntity
   Set pCopy = TlsRegion.Copy
   Set pobjs(0) = pWorkSpace.AddCircle(Point, 0.0001)
   Set pRegion = pWorkSpace.AddRegion(pobjs)(0)
   pRegion.Boolean acIntersection, pCopy
   If pRegion.Area > 0 Then PointInRegion = True
   pRegion.Delete
   pobjs(0).Delete

End Function