OpenCASCADE, the C++ CAD library used by FreeCAD and others, has official bindings available in Tcl. (Bindings, for example, in Python, are available from 3rd parties.)