Not written in, but AutoCAD supports scripting in TCL (and in its own AutoLisp, which is much less popular among users than TCL).