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、對於不閉合的對象也可以求曲線長度