I copied the wrong code

Sorry, this is the code:

(defun c:escadas()

(setq 2dpontos (getvar "osmode"))
(setq 3dpontos (getvar "3dosmode"))
(setvar "3dosmode" 0))

;indicar pontos
(setvar "osmode" 1)
(setq p1 (getpoint "\nIndique o ponto de inserção: "))
(setq p2 (getpoint "\nIndique o segundo ponto: "))
(setq largura (getdist "\nIndique a largura das escadas: "))

;sobre a viga
(setvar "osmode" 1)
(setq p4 altura (getdist "\nIndique a altura da viga: "))
(setq p5 espessura (getdist "\nIndique a espessura da viga: "))
(setvar "osmode" 0)

(setq medida1 (/ p4 (sin ( angle p1 p2))))
(setq medida2 (+ ((angle p1 p2) (angle p2 p1) 90) = 180))

(command "pline")

p2 (angel p1 p2) (distance ( * cos(angle p4) distance p5 p2)

(setvar "3dosmode" 3dpontos)
(setvar "osmode" 2dpontos)
)

; converts radians to degrees
(defun RtD (r) (* 180.0 (/ r pi)))

; converts degrees to radians
(defun DtR (d) (* pi (/ d 180.0)))