;;;	Escrito por Eduardo Fernal
;;;	http://www.gr-acad.com.br
;;;	aqui definimos funções para nosso uso...
;;;	este arquivo será carregado pelo arquivo TESTE.MNL, caso o menu TESTE
;;;	esteja carregado no 'Autocad©'

;;;	A função teste abaixo chama o menu de ícones T1

(DEFUN c:t1 () (MENUCMD "I=TESTE.T1") (MENUCMD "I=*") (PRINC))

;;;	Caso você queira criar outros menus de icones neste mesmo menu,
;;;	descomente as linhas abaixo ou crie algo parecido, lembrando-se
;;;	entretanto de inserir os mesmos no arquivo teste.mnu

;;; (DEFUN c:t2 () (MENUCMD "I=TESTE.T2") (MENUCMD "I=*") (PRINC))
;;; (DEFUN c:t3 () (MENUCMD "I=TESTE.T3") (MENUCMD "I=*") (PRINC))
;;; (DEFUN c:t4 () (MENUCMD "I=TESTE.T4") (MENUCMD "I=*") (PRINC))
;;;
;;; etc...

;;; agora outras funções que podem ser chamadas pelos menus de ícones

(DEFUN c:funcao_teste (/ p1)
  (ALERT 
    (STRCAT
      "Veja, esta função está sendo chamada do menu de ícones e\n"
      "irá criar um círculo com raio = 20, dado o ponto central..."
    )
  )
  (IF (SETQ
	p1 (GETPOINT "\n-> Ponto de inserção do círculo de raio 20 : ")
      )
    (ENTMAKE (LIST (CONS 0 "CIRCLE") (CONS 10 p1) (CONS 40 20.0)))
    nil
  )
  (PRINC)
)

(DEFUN c:bbs ()
  (STARTAPP
    "C:\\TESTE\\SLIDES\\CRIAR.BAT"
  )
  (PRINC)
)

;;; A função BBS acima permite executar o arquivo .BAT que gera a biblioteca de slides
;;; sem ser necessário abrir a janela "Executar" do Windows
;;; eof

;;;            Como criar a biblioteca de slides
;;;            O arquivo .MNL (MeNu Lisp)
;;;            O arquivo TESTE.MNU

;;;            Download do exemplo