aFact1=TextSymbol.Make
'Создаем символ
aFill=RasterFill.Make
'Создаем символ
mhFrame=ScaleBarFrame.Make(Rect.Make(pX@pY,(10)@(1.5)))
mhFrame.SetStyle(#SCALEBARFRAME_STYLE_ALTFILLED)
mhFrame.SetUnits(#UNITS_LINEAR_KILOMETERS)
mhFrame.SetInterval((cur_mh).asNumber/100000)
mhFrame.SetDivisions(1)
mhFrame.SetIntervals(4)
sList=List.Make
sList.Add(aFact1)
sList.Add(aFill)
mhFrame.SetSymbols(sList)
mhFrame.SetViewFrame(tVFrame)
mhFrame.Invalidate
mapLayout.GetGraphics.AddBatch(mhFrame)
' mapLayout - компоновка