Длина кривых линий

Добрый день все! Собственно есть вопрос интересна реализация и т.д. Имеется файл в кривых (только линии разного цвета), нужно узнать общую длину всех этих кривых, как можно реализовать? Возможно какие то стандартные средства? В идеале получить общую длину кривых одного цвета, другого и третьего. Прилагаю пример скриншота. Заранее спасибо=)

Комбайниш линии одинакового цвета, выделяешь любую одну, а затем запускаешь макрос sToolsShape.GetCurveInfo