请问怎样取得某一点的标高值，并存到变量中

napoleo

[move][fly]小弟初学VBA，多多帮忙
[glow=255,red,2]多谢了[/glow][SHADOW=255,blue,1]多谢了[/SHADOW][/fly][/move]

efan2000

这一点是在哪里，如果点或者直线、曲线中的一点，那么读取它的属性就可以判断它的每一点处的坐标。

napoleo

是一张河槽的俯视图，上面有许多点标出了高程，我想通过vba编程取得图上那些点的高程和在图纸中的坐标，请问改怎么做呢

efan2000

创建选择集，选中所有的点，通过枚举选择集中的实体（点对象），用Coordinates属性返回点的坐标，这些就是点在图纸上的坐标了。

sulj2005

小弟我现在也需要这个答案啊！！！！！！

weihedao

我也需要~

weianhui

要取得点或线的高程，首先要求底图上的实体必须记录有它自己的这方面的信息，如果没有编程实现则几乎不可能

在有这方面信息的基础上，要用遍历每一个实体的方法来读取每个实体的高程，如果图形没有被旋转平移过，则直接可以

读取其coordinates属性，确定其坐标，如果仅平移过则比较简单，在对应的x,y坐标上加一个平移量即可，如果还带有选转，

则比较麻烦，必须对坐标进行旋转反变换，使大地坐标与cad坐标一一对应，这个功能我已经实现，在处理工程平面图时十分有用，

对于已知大地坐标的点，通过程序，在旋转平移过的平面图上一样可以精确的把这个点上在图上。如果有人需要请联系我(QQ:18767372)，我

可以提供DLL，将这个DLL注册后就可以使用坐标转换功能了。