как-то так ...
Sub CurveL()
Dim s As Shape
Dim x As Double, y As Double, k As Double
Dim dc As Double, dc2 As Double, L As String
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.BeginCommandGroup "CurveL"
Set s = ActiveShape
If s.Type = cdrCurveShape Then
s.GetSize x, y
dc = s.Curve.length...