[求助]：数据点的快速搜索

zzz8662

有 千或上万个离散点，
数据文件里的三维数据点，格式为：
1 2 3
4 8 9
7 6 3
. . . .
. . . .
我想进行插值计算。
要通过计算待插值的点与周围各离散点的距离，然后选出与待插值点距离最短的若干个点。由于点数太多，在计算插值点与其他所有点中最小距离时，按常规方法，要把待插点与其他点求距离，然后找最小的距离，速度太慢。有什么好的算法吗？

谢谢大家了！

雪山飞狐(lzh)

在待插值的点较小的范围内选点，不断扩大范围大小用循环判断选择集内是否有图元，直到有图元，再通过计算待插值的点与选择集内各离散点的距离

longyancwl

先连接三角网,在在三角网里插值

zzz8662

我也看到lzh741206 斑竹说的方法，但是做程序的话，感觉有难度。你能详细说一下吗？

雪山飞狐(lzh)

Sub testaaa()
On Error GoTo ErrHandle
Dim ss As AcadSelectionSet
Dim ft(0) As Integer, fd(0)
Set ss = ThisDrawing.SelectionSets.Add("*TlsTest*")
ft(0) = 0: fd(0) = "Point"
pnt = ThisDrawing.Utility.GetPoint(, "选取插入点")
n = 1
Do While ss.Count = 0
ss.Clear
p1 = ThisDrawing.Utility.PolarPoint(pnt, Atn(1), n)
p2 = ThisDrawing.Utility.PolarPoint(pnt, Atn(1) * 5, n)
ss.Select acSelectionSetWindow, p1, p2, ft, fd
n = n + 1
Loop
MsgBox ss.Count



ErrHandle:
ss.Delete
End Sub

zzz8662

谢谢了。不过，我想通过读文件实现的啊。数据文件里有很多三维数据点，格式为：
  1 2 3
  4 8 9
  7 6 3
  . . . .
  . . . .
怎样在文件里事先选取范围？我有一个论文，但是我编不好程序。

god

还有研究三角网的，不过你的论文打不开，能把它改成文本文件吗？

zzz8662

用cajviewer打开啊

huangyanshi

问题解决了吗？

zzz8662

还没有呢。