[求助]vba如何按距离删除多段线上多余的点？

shanmaomj · 发表于 2009-2-12 17:28:00

<sub>如一条多段线，如何按每隔20米保留一个线上点，小于20米的将被删除，请高手赐教，不胜感激</sub>

home · 发表于 2009-2-14 13:57:00

1、得到多段线上所有点的坐标

2、计算第i个点到第i＋1个点的距离，当距离大于20m时，把这个点保存下来，

3、把保存的点重新画一条多段线

账号		自动登录	找回密码
密码			注册