Был лисп, успешно работающий в автокаде (позволял быстро создавать блоки с автоназванием)   ;;; АвтоБлок c датой и временем создания (defun C:аuto_blok_data ( / обб твс дата время имяблок) (setq обб (ssget)) (if обб (progn (initget 7) (setq твс (getpoint "\nУкажите точку вставки: ")) (setq дата (itoa (fix (getvar "cdate")))) (princ "\nТекущая дата: ") (prin1 дата) (setq время (itoa (fix (* 1e6 (- (getvar "cdate") (fix (getvar "cdate"))))))) (princ "\nТекущ