🚩Carregar Rotinas LISP
ExcerptQuestão Como fazer com que as rotinas do AutoLISP sejam carregadas automaticamente ao se iniciar o AutoCAD ou os Conjuntos de Ferramentas do AutoCAD. Isso se aplica tanto à inicialização do software quanto à abertura de um desenho. Isso é necessário porque as rotinas precisam ser recarregadas manualmente toda vez que o programa é iniciado. Solução: Adicionar à inicialização Execute o comando CARRAPLIC. Em Conjunto de inicialização, clique no botão Conteúdo. Clique no botão Adicionar
Adicionar à inicialização
Execute o comando CARRAPLIC.
Em Conjunto de inicialização, clique no botão Conteúdo.
Clique no botão Adicionar.
Vá até o local do arquivo LISP, selecione-o e clique no botão Abrir.
Depois que todas as rotinas LISP tiverem sido adicionadas ao Conjunto de inicialização, clique no botão Fechar.
Clique novamente em Fechar para fechar a caixa de diálogo Carregar/descarregar aplicativos.
Carregar com o CUI
Execute CUI (comando).
Selecione "acad.cuix" (ou um arquivo parcial .cuix personalizado).
Selecione Arquivos LISP e clique com o botão direito do mouse.
Selecione Carregar LISP no menu de contexto.
Acesse a localização do LISP para adicionar e selecionar o arquivo.
Clique em Aplicar e em Fechar para sair do editor CUI.
Usar os arquivos acad.lsp/acaddoc.lsp
O arquivo acad.lsp sempre é carregado quando o AutoCAD é iniciado. Um arquivo acaddoc.lsp é executado sempre que um desenho é aberto. Se uma função especial, S::STARTUP, for definida no arquivo acad.lsp, ela será executada.
Exemplo
Pense nas duas rotinas do AutoLISP denominadas stair.lsp e wall.lsp, que são carregadas cada vez que o AutoCAD for executado. Crie um arquivo acad.lsp que contenha as linhas de código a seguir e coloque-o nos caminhos de suporte do AutoCAD.
(defun s::startup ()
(load "STAIR.LSP")
(load "WALL.LSP")
)Se wall.lsp e stair.lsp estiverem no caminho de busca do AutoCAD, serão automaticamente carregados quando você iniciar o AutoCAD: Se as rotinas do AutoLISP não estiverem nos caminhos de suporte do AutoCAD, inclua o caminho completo no arquivo acad.lsp. Utilize "/" ou "\\" como delimitadores de caminho. Com o mesmo exemplo, o arquivo acad.lsp deve ter este aspecto:
(defun s::startup ()
(load "C:/PROG/LISP/STAIR.LSP")
(load "C:\\PROG\\LISP\\WALL.LSP")
)Se a função S::STARTUP for definida assim, talvez haja problemas se ela for usada por outros aplicativos (por exemplo, um aplicativo de terceiros). Para garantir a compatibilidade, anexe o código se já existir uma função S::STARTUP. Para isso, adicione o seguinte código a:
(defun mystartup ()
(load "C:/PROG/LISP/STAIR.LSP")
(load "C:\\PROG\\LISP\\WALL.LSP")
)
(if s::startup
(setq s::startup (append s::startup (quote ((mystartup)))))
(defun s::startup () (mystartup))
)Last updated