minchsk 发表于 2008-6-15 19:24:00

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

因在VBA 中将顶点数少的坐标列数组，赋给顶点数多的多段线时，cad会出错！
请教高手们，可有良策来实现删点，但不能用新创建线的方法，因原线有不确定的扩展属性，先谢谢了!

fjfhgdwfn 发表于 2008-6-15 21:37:00

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

robbin840311 发表于 2008-6-16 08:49:00

LZ可以的话，试试这种方式，参考VBA自带的Coordinates例子。
先得到多段线的原Coordinates，然后为Coordinates给一个新的坐标组NewCoor，最后在把新的坐标组赋给Coordinates(LwpObj.Coordinates=NewCoor)，最后进行更新LwpObj.Update。
注意：此方法每次只能更新一个结点的坐标。

minchsk 发表于 2008-6-17 00:30:00


Dim LwpObj as As AcadLWPolyline
LwpObj.Coordinates=NewCoor在该语句中 若UBound(NewCoor )

fjfhgdwfn 发表于 2008-6-17 08:23:00

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

robbin840311 发表于 2008-6-18 08:24:00

运行DelOverlayVertex过程

robbin840311 发表于 2008-6-18 08:25:00

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

xsshhl 发表于 2009-8-21 14:12:00

用cass可以对等高线的多段线节点进行删减，减少地形图体积。用滤波功能。
页: [1]
查看完整版本: [求助]高手 多段线删点良策