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

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

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

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

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

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

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

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

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

<p>Dim LwpObj as As AcadLWPolyline</p><p>LwpObj.Coordinates=NewCoor&nbsp; 在该语句中 若UBound(NewCoor&nbsp;)&lt;UBound( LwpObj.Coordinates)&nbsp; 时就会出现内部致命错误</p><p></p>

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

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

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

<p>运行DelOverlayVertex过程</p>

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

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

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

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