[VBA程序]：请问如何在等高线图上截出地面线？

god

请问如何在等高线图上截出地面线？

每根等高线的z坐标值就是高程，如何在图上得到指定剖面的地面线。
我现在只知道在剖面线位置先画一根直线，在打开对象捕捉方式下，用3dpoly描出剖面线，再把3dpoly线的xyz坐标数据转换，很麻烦。

谁有什么好办法吗？如果有lisp或vb程序就更好。

【斑竹提示】：请将您的专业术语解释一下好么，隔行如隔山那，您认为很简单的，别人不一定明白 by Lzh741206

雪山飞狐(lzh)

可以解释一下么？

yfy2003

就是求两线的交点吧!

god

实际上就是在等高线地形图上截出所需地面线，

我有一张acad的dwg图，里面是一些具有z坐标属性的polyline，我在xy坐标面上画一根直线与几根polyline相交，要得到投影相交交点处的polyline的x、y、z坐标，应该怎么做？（这种情况下是投影相交，不是空间相交）

雪山飞狐(lzh)

在截面内做n条与polyline的Z坐标相等的直线，可以求得polyline与直线的交点，再用polyline连接

god

请问用哪个函数可求得polyline与直线的交点坐标？如果多段线各转折点的z坐标不同又如何求交点坐标？

雪山飞狐(lzh)

求交点用
RetVal = object.IntersectWith(IntersectObject, ExtendOption)
你的图是等高线图，polyline的各点Z坐标应该相等吧

god

最初由 lzh741206 发布
[B]求交点用
RetVal = object.IntersectWith(IntersectObject, ExtendOption)
你的图是等高线图，polyline的各点Z坐标应该相等吧 [/B]

我只是想了解空间曲线交点的求法而已，
比如acad图形中两条空间曲线，在xy坐标系中看上去是相交的，如何求这点的x、y坐标，以及已知空间曲线上某点的x、y坐标，求空间曲线该点的z坐标。

小美菜

先求两条直线相交(是二维的),再验证交点是否在等高线上,是则求出等高线高程!!!!

wfgjy

现在有很多软件可以做，比如捷力、路线大师、鸿业等，个人多次使用觉得捷力的效果最好
他的方法是首先导入图形后，设定最小和最大高程，三角化，建立用三角联系起来的三维三角网，通过道路中线与三角网的交点得到中线地面高，依次按道路法线用一定间距的线延伸与三角网相交得到地面高，把数据采集出来的，两次用在了实际工程中，低等级道路上还是没问题的。高等级的就不敢用了。

god

比如acad图形中两条空间曲线，在xy坐标系中看上去是相交的，但是用vba怎么知道他们是相交的？是不是必须遍历所有的曲线？这样执行效率是不是太低了。有没有高效的办法？

雪山飞狐(lzh)

先把Z坐标置0，求交点后还原

god

最初由 lzh741206 发布
[B]先把Z坐标置0，求交点后还原 [/B]

这个办法可行。请问置0后怎么还原？当然我也可以采用生成一个实体后删除的办法。
但是如果等高线图中线条很多，而我又要截很多截面，那么计算量很大。
能否直接知道与某直线相交的有哪几根等高线？还是必须遍历所有等高线？
如果要遍历的话，耗时将会很长。我一个同事编了个lisp程序，和10楼的功能是一样的。截几百个断面要一下午。可能算法不对，效率很低。

雪山飞狐(lzh)

可以先将等高线的坐标值保存在一个数组的数组里
估计也只有历遍，单纯求交点VBA应该比Vlisp快些

god

我想起一个办法，先设置相交范围的选择集，只要遍历选择集内的实体就行了，这样速度都不知要快多少倍了。haha。希望高手能编段vba用用。

另外不知谁有根据离散点获得三角网及等高线的公开代码，希望共享共享。
请问10楼的软件能否发一个给我。venus789@163.com