Yes, try the following exaple:
Plot[x, {x, -2, 2},
Ticks -> {{{-1, -1, {0, .05}}, {1, 1, {.05, 0}}}, {-1, 1}}]
You can do it programmatically:
pl = Plot[x, {x, -1, 1}]
originalTicks = AbsoluteOptions[pl, Ticks];
Show[pl, originalTicks /. {x_Real, v_, lngths_, sty_} :> {x, v,
Reverse[lngths], sty}]
There is something funny here, because Show[pl, originalTicks]
gives different ticks than the original.