※[ARX程序]：※数模程序升级，欢迎讨论

zlgtongyu

程序做的挺好，什么时候上传原代码，学习学习，期待。

liufx2000

作的实在太棒了，以至于，我原来想做的都没有信心再做下去了，就使用PowerDTM的程序就好了，呵呵，只是还不是我想要的样子，

yusongrong

请问PowerDTM，您的三角构网部分参考的资料能给我一些么？听您说是参考国外的一些资料。
我的邮箱yusongrong@tom.com，我想知道您是怎么解决插入点后查找不符合D规则的点速度问题的？我是用递归的速度比较慢，十分感谢您

xlgis

好东西啊

PowerDTM

插入点定位到某个三角形后，首先初始将插入点将所在的三角形剖分为三个三角形（统一顶点为插入点），接着分别进行三个新生三角形外边界相邻的三角形的外接圆判断，如果插入点在外接内则交换对角线，交换对角线后又产生两个新的三角形，在按照同样的方法再进行外接圆判断.......（递规的方法）直至结束，插入点操作完毕。

CNYouth

同意15楼说的

PowerDTM

以前做的一个AVI演示“获取当前图形高程信息”第一个包

PowerDTM

以前做的一个AVI演示“获取当前图形高程信息”第二个包，完

yusongrong

请问PowerDTM，“插入点定位到某个三角形”您是怎么快速找到这个“某个三角形”有什么好办法？三角构网部分参考的资料能给我一些么？谢谢

PowerDTM

我用的方法是这样的：由一个起始三角形（可以记录上一次定位的三角形）开始搜索，由两个边和插入点做方向（点在边的左、右侧）判断，并且由判断结果和其他的因素来判定该点是否在在三角形内部，如不在，则由判断结果获取相邻三角形，循环在按上面的方法进行判断。
不知谁有什么更好的方法吗？

小树袋熊

怎么都下载不了？

liufx2000

PowerDTM 的方法是个好方法，真是高手阿，我碰到一个很奇怪的问题，请PowerDTM指点，
我用ReDim dy(1 To 6, 1 To ntri) As Integer 语句定义的时候，程序是正常的，没有出现问题，因为我想保留上一步dy（）数组前半部分的数据，所以我加了preserve参数。但此时就出现了下标越界的问题，我怎么想，也没有弄明白，特想各位高手求教，谢谢，
另外ReDim dy(1 To 6, 1 To ntri) As Integer 这语句是在一个循环中，并且这是模块部分中的子程序中

luj107

源代码可以共享一下吗?

yusongrong

请问PowerDTM，"由一个起始三角形（可以记录上一次定位的三角形）开始搜索"，如果已形成成千上万个三角形，若点是散乱的，而插入点与起始三角形（可以记录上一次定位的三角形）距离很远，那找到影响三角形的时间不是很长时间？

PowerDTM

To liufx2000：您用VB语言吗？实在对不起啊，VB我不太会啊 ：），我是用C＋＋的链表做的基础结构。我觉得这是个语法问题吧，您可以找一找书看一下。
To yusongrong：应该不会太长时间，目前定位三角形的方法有：1、面积法（根据三角形之间面积关系判定）；2、交点法（从插入点做射线看与三角形的交点）；3、方向角法（判断插入点与三角形顶点连线夹角的和）；4、循环法（就是上面的方法）；应该来说循环法是计算相对简单，就像在大海里航向，船里面的方向舵一样，沿着一个方向过去查找，呵呵，PowerDTM在内插纵横地面线时用的这种方法，在有144450个三角形的模型中，内插56182个点的标高，只需要340毫秒，速度应该是可以接受的。
To 小树袋熊：程序下载地址在第3页中，可以下载的。