Направление цифрования

Question

Как можно у всех выделенных линий сразу поменять напрвление цифрования?

Answer 1

В Easy Calculator есть PolylineFlip
открываешь таблицу, запускаешь калькулятор (расширенный)
вставляешь код!

Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pCurve As ICurve
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
If (Not IsNull([Shape])) Then
Set pCurve = [Shape]
If (Not pCurve.IsEmpty) Then
    pCurve.Project pMap.SpatialReference
    pCurve.ReverseOrientation
End If
End If