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、对于不闭合的对象也可以求曲线长度
CorelDRAW VBA测量曲线长度
原文：http://www.cnblogs.com/cdrapp/p/6353796.html
