[求助]在vba中怎样实现对多线段上的点进行编辑

aegisfang

在vba中怎样实现对多线段上的点进行编辑,例如加点、删点

能实现对所选的两个点之间自动进行加点

谢谢各位高手！

Orcagna

我的想法是不管加点，还是删点，都是删除掉原本的线，再重新画上新的线，

加点的话，两种做作法，

一、是选两个点起来，自动在两点之间补上一个点，

你先用getPoint方法，取到输入点，然后用两点距离公式((x1-x2)^2+(y1-y2)^2)^0.5

小于1 就是该点，再把两点之间增加新的点就可以了(x1+x2)/2,(y1+y2)/2

二、是比较方便的，用getpoint方法，取得输入的点后，

然后和你的连续线的每一段做垂直交点距离的计算，小于1就是该点。

计算交点公式：a1x+b1y=c1,a2x+b2y=c2

'△ <> 0 为相容
'△ = △x=△y 为相依
'△ = 0 and △x <> 0 And △y<>0 为矛盾

Delta = a1 * b2 - b1 * a2
DeltaX = c1 * b2 - b1 * c2
DeltaY = a1 * c2 - c1 * a2

'求解
'△：Delta △x：DeltaX △y：DeltaY
'x=△x/△，y=△y/△

删点

删点直接用getPoint方法，取到输入点，

然后用两点距离公式((x1-x2)^2+(y1-y2)^2)^0.5

小于1 就是该点。

然后重新画上没有该点的线就可以了。

---------

详细建议看一下，斜率、二元一次方程式求解的资料。

sailorcwx

增点用AddVertex

删点你把两个点合并成一个点就可以了

aegisfang

那怎样获取一条多线段上当前所选择的几个点的信息呢？如坐标信息、当前点的节点数、将点加入选择集？

Orcagna

GetEntity方法可以让使用者选线，
看ObjectName 是不是为 "AcDbPolyline" 可以知道是否为聚合线，
座标可以从Coordinates取出，
点的状态，可以自己另外宣告结构来存放。