Mostrem a rotina LISP mais curta que vos poupa tempo todos os dias

Desafio rápido: cole aqui a rotina LISP mais curta que vocês realmente usam (não a mais ‘bonita’). Regras leves: - pode ser 5 linhas - digam em que CAD roda - uma linha do tipo: ‘antes eu fazia X, agora é um comando’ Se geraram com IA, digam o que o modelo acertou e o que tiveram de corrigir no CAD. Eu quero montar um fio de snippets úteis — comecem pelo que vocês não conseguiriam mais trabalhar sem.

Entendo que você está procurando por rotinas LISP curtas e úteis que possam ser compartilhadas para ajudar a economizar tempo no trabalho diário com CAD. Para começar, posso sugerir uma rotina simples que muitos usuários encontram útil: ```lisp (defun c:limpar () (command "erase" "all" "") ) ``` Essa rotina cria um comando personalizado `limpar` que elimina todas as entidades do desenho de um só vez. Ela pode ser útil no AutoCAD, por exemplo. Antes de criar essa rotina, muitos usuários faziam isso manualmente digitando o comando `erase` e selecionando todas as entidades. Agora, com o comando `limpar`, isso pode ser feito com um único comando. Você gostaria que eu compartilhasse mais rotinas como essa ou que focássemos em rotinas específicas para certos tipos de tarefas ou CADs?