> Павел
Ну сохранить код в файл с расширеним .lsp, в конце добавив строку (auto-lim-off) - именно так, со скобками. Потом в каде дать _.appload, щелкнуть на портфеле, кнопка Add, указать сохраненный файл. при следующем подгруженном файле сработает команда (auto-lim-off).
На самом деле функция не лишена недостатков - не производится контроль активной ucs, не производится никакого анализа необходимости выполнения и т.п. Немного доработанный вариант:
(defun auto-lim-off (/ start_point end_point _cmdecho_ _nomutt_)
(defun loc:m2p (point1 point2)
(list (/ (+ (car point1) (car point2)) 2)
(/ (+ (cadr point1) (cadr point2)) 2)
(/ (+ (caddr point1) (caddr point2)) 2)
) ;_ end of list
) ;_ end of defun
(command "_.zoom" "_all")
(setq start_point (getvar "vsmin")
end_point (getvar "vsmax")
_cmdecho_ (getvar "cmdecho")
_nomutt_ (getvar "nomutt")
) ;_ end of setq
(mapcar 'setvar '("cmdecho" "nomutt") '(0 1))
(command "_.line" start_point end_point "")
(command "_.scale"
"_last"
""
(loc:m2p start_point end_point)
2
) ;_ end of command
(command "_.zoom" "_all")
(command "_.erase" "_last" "")
(repeat 2 (command "_.zoom" "_p"))
(mapcar 'setvar
(list "cmdecho" "nomutt")
(list _cmdecho_ _nomutt_)
) ;_ end of mapcar
(princ)
) ;_ end of defun
(auto-lim-off)
Более подробные инструкции есть здесь: https://www.caduser.ru/oldlink/faq/?part=023#44