;Macro de um exercício da aula em autolisp
;Modelação tridimensional de um banco

(defun c:bancotosco () 
;estas três funções são complementares servindo para
; guardar o valor da variável do snap  2d e 3d
; a primeira serve para não se ver os comando executados na linha de comando
	(setvar "CMDECHO" 0)
	(setq ponto (getvar "osmode"))
	(setq 3dponto (getvar "3DOSMODE"))
	
;desliga o 3dsnap	
	(setvar "3dosmode" 0)
	
;deixa ativado o snap para "endpoint"
	(setvar "osmode" 1)
	
;obtenção de pontos coordenadores
	(setq p1 (getpoint "\n Qual é o ponto de partida?"))
	(setq p2 (getpoint "\n Qual é o ponto de chegada?"))

;definir o percurso;
	(command "line" p1
	                p2 "")
	(setq percurso (entlast))
	
	(setvar "osmode" 0)
	
;desenhar o perfil;
	(command "pline" 
	            "0,0"
				"0.8,0"
				"0.8, 0.5"
				"0.4, 0.25"
				"0, 0.5"
				"c")
	(setq perfil (entlast))
	
;criar o 2 sólido final: banco
;sweep;
    (command "._sweep" perfil "" "b" "0.8,0" percurso)
  
	(setvar "osmode" ponto)
	(setvar "3DOSMODE" 3dponto)
	(setvar "CMDECHO" 1)
	)