А вот если чуть-чуть переделать скрипт пердложенный AndB : "закоротить" код , и убрать счетчитк count-1, на мой вкус он мало применим к спискам точек (лучше уж получить номер элемента списка если хочется иметь цифру), то получится покороче и рисовать будет покрасивее, от одного конца до другого.
aView = av.GetActiveDoc
fLine = aView.Getgraphics.GetSelected.Get(0) 'верхняя линия, рисуется первой
tLine = aView.Getgraphics.GetSelected.Get(1) 'нижняя линия, рисуется второй
' т.е идея такова: сперва цифруеш все верхи, затем все низы
' в данном случае берется из графики, но несложно переделать
' для темы, можно и с работой по атрибутам, дерзай..
'TODO: здесь можно MsgBox для запроса шага
fLine.SetShape(fLine.GetShape.ReturnDensified (0.1)) '<0.2> - шаг бергштриха
' по линии в ед.карты
strix_start_Pnt_lst = fLine.GetShape.AsList.Get(0).AsList 'список точек первой линии
lens = false
for each p in strix_start_Pnt_lst 'для каждой точки в списке
tLine_percent=fLine.getshape.PointPosition (p)
strix_Line = PolyLine.Make({{p,tLine.getshape.along(tLine_percent)}})
if (lens) then
divp = strix_Line.Along (50)
strix_Line = PolyLine.Make({{p, divp}})
end
lens = not lens
gl = GraphicShape.Make(strix_Line)
aView.GetGraphics.UnselectAll
gl.SetSelected(TRUE)
aView.GetGraphics.Add(gl)
end