CorelDRAW VBA测量曲线长度

Sub 测量曲线长度()
Dim s As Shape
Set s = ActiveSelection.Shapes(1)
If s.Type = cdrCurveShape Then
    MsgBox "该曲线长度为： " & vbCrLf & (s.Curve.Length * 25.4) & " " & "毫米"
End If
End Sub
注：1、如果要测量圆、矩形、椭圆等CoreDRAW X3基本图形的周长时，请先转成曲线；
        2、选中曲线后再运行该宏。
        3、对于不闭合的对象也可以求曲线长度