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


(defun c:rampa3d ()

;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)
	

;desliga o 2dsnap
	(setvar "osmode" 0)
	
	
;definir o cubo	
	(command "box" "0,0,0"
                "10,10,10"
				"")
	    (setq C (entlast))
;definir o cilindro		
		(command "circle" "5,5,0"
                "4.5"
				"")
            (setq Ci2 (entlast))
			
			
	    
			  
			
	(command "_extrude" Ci2 "" 11"" )
	
	          (setq CL (entlast))
			  
			  
			  
			  
    (command "subtract" C "" CL "")
	
	           (setq Cr (entlast))
			   
			   
;definir o rampa					   
	(command "helix" "5,5,0"
	4.5
	""
	10
	"")
	    (setq H (entlast))
		
	(command "circle" "0,0,0"
                "0.5"
				"")
				
			(setq Ci1 (entlast))
				

    (command "._sweep" "_m" "_su" Ci1 "" H)
	
	        (setq HC (entlast))
			
;definir forma final			
	(command "subtract" Cr "" HC "")
		     
	

	(setvar "osmode" ponto)
	(setvar "3DOSMODE" 3dponto)
	(setvar "CMDECHO" 1)
	)