可能不难编程。
思路:1.建一个多段线顶点数组 pointarray(0 to 10),例如有十一个顶点
2. 用属性 指定对象中单个顶点的坐标。
dim i as integer : dim pointarray(0 to 10) as double for i=0 to ubound(pointarray)-1
pointarray(i)=Polylineobject.Coordinate( i ) i 是整数。代表多段线顶点数组的索引号。
...
next
3. 输出坐标值用什么方式就自己定了,是msgbox,listbox 还是输出个文本。
这个可能要写在上面的for循环中。
4.你先做到起,过程中的问题再来详细扩充,大体过程就是这样。