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

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。
注意：此方法每次只能更新一个结点的坐标。