Emacs-lisp functions for creating CAD files