(Vmon)
;    Draw side view of stairs.
(Defun C:Stairt ()
  (Setvar "Cmdecho" 0)
  (Initget 1)
  (Setq P1 (Getpoint "\nEnter point where stairs begin: "))
  (Initget 7)
  (Setq A (Getdist "\nEnter floor to floor height: "))
  (Initget 7)
  (Setq B (Getdist "\nEnter tread depth: "))
  (Setq D (- (Fix (/ A (- 17.5 B))) 1))
  (Setq P2 (Getpoint P1 "Point on other side of stairs: "))
  (Setq A1 (+ (Angle P1 P2) (* Pi 0.5)))
  (Setq P3 P1)
  (Setq P4 P2)
  (Command "Line" P1 P2 "")
  (Repeat D
    (Setq P3 (Polar P3 A1 B))
    (Setq P4 (Polar P4 A1 B))
    (Command "Line" P3 P4 "")
  )
  (Command "Line" P1 P3 "" "Line" P2 P4 "")
  (Princ "\nTotal of ")
  (Princ E)
  (Princ " stairs.")
  (Princ)
)
