[求助]高手 多段线删点良策

minchsk

因在VBA 中将顶点数少的坐标列数组，赋给顶点数多的多段线时，cad会出错！

请教高手们，可有良策来实现删点，但不能用新创建线的方法，因原线有不确定的扩展属性，先谢谢了!

fjfhgdwfn

把该点的坐标修改成与前点或后点相同。

robbin840311

LZ可以的话，试试这种方式，参考VBA自带的Coordinates例子。

先得到多段线的原Coordinates，然后为Coordinates给一个新的坐标组NewCoor，最后在把新的坐标组赋给Coordinates(LwpObj.Coordinates=NewCoor)，最后进行更新LwpObj.Update。

注意：此方法每次只能更新一个结点的坐标。

minchsk

robbin840311发表于2008-6-16 8:49:00LZ可以的话，试试这种方式，参考VBA自带的Coordinates例子。先得到多段线的原Coordinates，然后为Coordinates给一个新的坐标组NewCoor，最后在把新的坐标组赋给Coordinates(LwpObj.Coordinates

Dim LwpObj as As AcadLWPolyline

LwpObj.Coordinates=NewCoor  在该语句中 若UBound(NewCoor )<UBound( LwpObj.Coordinates)  时就会出现内部致命错误

fjfhgdwfn

点的个数不同。肯定会出错的。还是建议把要删的点的坐标改成前或后点的坐标

robbin840311

运行DelOverlayVertex过程

robbin840311

我是删除JMD层，LWPOLYLINE线型的重复结点。你修改下图层即可使用。

xsshhl

用cass可以对等高线的多段线节点进行删减，减少地形图体积。用滤波功能。