获取曲线中两个节点之间的距离

Dim s As Shape
Set s = ActiveShape
If s.Type <> cdrCurveShape Then MsgBox "你选择的不是曲线对象": Exit Sub
Dim n1 As Node, n2 As Node
Set n1 = s.Curve.Nodes(1)
Set n2 = s.Curve.Nodes(2)
Dim distance As Double
distance = n1.GetDistanceFrom(n2)