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

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

laoliu09 · 发表于 2005-1-5 22:16:00

飞狐老师，这个函数好像要一个面域对象做参数吧？但问题是我根本不知道我选的点周围有没有可形成面域的图形！我不是要判断点是否在面域内，而是要判断点周围有没有可形成面域的图形！有办法吗？谢了！

sieben · 发表于 2005-1-6 00:21:00

加入一个足够远的点使用object.SelectByPolygon acSelectionSetFence PointsList

选择集内封闭且交点为一个或交点数为单则存在可形成面域的图形

laoliu09 · 发表于 2005-1-6 17:09:00

给几行代码好吗？谢谢啊！

雪山飞狐_lzh · 发表于 2005-1-6 19:13:00

可能形成面域的图形:圆/椭圆/Spline/Pline

用选择集过滤一下

账号		自动登录	找回密码
密码			注册