;TIP # 606.LSP   Percent of Slope   (c)1990, Slawomir Demianczuk
(defun c:LINE% ()
  (setq G (getreal "\nEnter % slope: "))
  (setq SS (getpoint "\nStart point: "))
  (setq SE (getpoint "\nEndpoint: "))
  (setq X1 (car SS))
  (setq X2 (car SE))
  (setq X (- X2 X1))
  (setq TANG (/ G 100))
  (setq Y (* TANG X))
  (setq Y1 (cadr SS))
  (setq Y2 (+ Y1 Y))
  (setq Z2 (caddr SE))
  (setq YZ (cons Y2 Z2))
  (setq TSE (cons X2 YZ))
  (command "line" SS TSE)
  (command "")
)
(defun c:CHECK% ()
  (setq OS (getvar "OSMODE"))
  (setvar "OSMODE" 1)
  (setq ANG (getangle
    "\nEnter an Angle or 2 Pts: "))
  (setq Y (sin ANG))
  (setq X (cos ANG))
  (setq Z (/ Y X))
  (setq S (* 100 Z))
  (prompt "\n% gradient is: ")
  (setvar "OSMODE" OS)
  (eval S)
)