(defun c:vidro ()
;parâmetros gerais
	(setq pontos (getvar "osmode"))
	(setq pontos3d (getvar "3dosmode"))
		(setvar "osmode" 1)	
(setq p1 (getpoint "Qual é o primeiro ponto? "))
(setq p2 (getpoint "Qual é o segundo ponto?(comprimento) "))
(setq p3 (getpoint "Qual é o terceiro ponto? (altura) "))
(setq nlinhas (+ 1 (getint "\nQuantas linhas?  ")))
(setvar "osmode" 0)	
( command "ucs" "3p" p1 p2 p3 )
(setq p1 (trans p1 0 1))
(setq p2 (trans p2 0 1))
(setq p3 (trans p3 0 1))
(setq dlinhas (/ (distance p1 p3) nlinhas))

(command "line" (setq p4 (polar p1 (angle p1 p3) dlinhas))
				(polar p4 (angle p1 p2) ( distance p1 p2)) "") 
(repeat (- nlinhas 1)
(command "copy" "l" "" p1 p4)
)


;reposição de parametros
( command "ucs" "")
	(setvar "osmode" pontos)
	(setvar "3dosmode" pontos3d)
	)