Somehow I can not see the problem:
Plot3D[Through[{Re, Im}@Exp[EllipticK[x + I y]]], {x, -3, 3}, {y, -3, 3}]
gives:
I would be very surprised if there were any function Mathematica could not evaluate for complex arguments (except for mathematical reasons).
Regards -- Henrik
