两点断裂
大家好！又是我，所以，我们一直在做一些杂耍，我遇到了将一条多段线分成三位的问题，让中间的一个存在，删除另外两个。这是通过选择两个点来实现的，不需要在pline上。现在，我已经编程一段时间了，显然它被卡住了，因为下面的代码用于从两个选定点之一计算到多段线线段的最近点，并计算最近点和选定点之间的距离。
我需要一些其他编程也这一部分，所以我会非常感谢！
retCoord=aPoly。坐标u=UBound（retCoord）'取决于最近点，计算i=0到u-2步骤2 k=（retCoord（i+3）-retCoord（i+1））/（retCoord（i+2）-retCoord（i））的断点1和2，如果k=-1，则x0=（B0（0）-retCoord（i））/2 y0=x0-retCoord（i）x1=（B1（0）-retCoord（i））/2 y1=x1-retCoord（i）ElseIf k=0，则x0=B0（0）y0=0 x1=B1（2）y1=0否则x0=（k*retCoord（i）-retCoord（i+1）+B0（0）/k+B0（1））/（1/k+1）y0=-x0/k+B0（0）/k+B0（1）x1=（k*retCoord（i）-retCoord（i+1）+B1（0）/k+B1（1））/（1/k+1）y1=-x1/k+B1（0）/k+B1（1）End如果x0=（retCoord（i+2）），则Dist0=Sqr（（B0（0）-x0）^2）+（B0（0）-y0）^2））ElseIf x0>Abs（retCoord（i））和x0<（retCoord（i+2）），则Dist0=Sqr（（B0（0）-x0）^2）+（B0（0）-y0）^2））End如果x1=（retCoord（i+2）)然后Dist1=Sqr（（（B1（0）-x1）^2）+（（B1（0）-y1）^2））ElseIf x1>Abs（retCoord（i））和x1<（retCoord（i+2）），然后Dist1=Sqr（（B1（0）-x1）^2）+（（B1（0）-y1）^2））结束If（Dist0）
页:
[1]