; Ines Azevedo - Macro para criar escadas 3D
(defun c:escadas() 

    (setq pontoS (getvar "osmode"))
	(setq pontoS3d (getvar "3dosmode"))
	(setvar "3dosmode" 0)
	
;obter pontos
	(setvar "osmode" 1)
	(setq p1 (getpoint "\nLocalizacao do primeiro degrau?: "))
	(setq largura (getreal "\nDimensao da largura: "))
	(setq espelho (getreal "\nDimensao do espelho: "))
	(setq cobertor (getreal "\nDimensao do cobertor: "))
	(setq ndegraus (getint "\nNumero de degraus: " ))

	   
	   (command "ucs" p1 "" )
	   (setq p1 (trans p1 0 1))
	  (command "box" p1 (list largura cobertor espelho))
	  (command "ucs" "world")
	  
;repeticao degraus 
	  (repeat ndegraus  
	   (command "copy" "last" "" p1 (list 0 cobertor espelho))
	)