;Title - Erin Stephens Lisp Page
;Lisp Page from Internet - Internet Worldwide Communications
;***************************** CASECHG.LSP ************************************
;
; Converts lower case to upper case letters or upper to lower

(DEFUN C:CASECHG ()
  (setvar "CMDECHO" 0)
  (TERPRI)
  (setq R2D (/ 360 pi 2))
  (setq SS1 (ssget)
        ANS (getstring "Change Text to ALL [U]pper case or ALL [L]ower case letters <U>? ")
        IDX -1
        SL1 (sslength SS1)
        SL1 (- SL1 1))
  (if (= ANS "l") (setq ANS "L"))
  (if (= ANS "L") (lower) (upper))
)

(defun lower ()
  (setq IDX (+ 1 IDX))
  (if (>= IDX SL1) (stop))
  (setq B$ (ssname SS1 IDX))
  (print SL1)
  (print IDX)
  (print B$)
  (setq C$ (entget B$)
        txts (assoc '1. C$)
        tht (assoc '40. C$)
        ht (cdr tht)
        ROT (assoc '50. C$)
        ROA (cdr ROT)
        ROA (* ROA R2D)
        F$ (cdr txts)
        G$ (substr F$ 1)
        G$ (strcase G$ 1))
  (Command ".CHANGE" B$ "" "" "" "" "" "" G$)
  (if (< IDX SL1) (lower) (stop))
)

(defun upper ()
  (setq IDX (+ 1 IDX))
  (if (>= IDX SL1) (stop))
  (setq B$ (ssname SS1 IDX))
  (if (>= IDX SL1) (stop))
  (setq C$ (entget B$)
        txts (assoc '1. C$)
        tht (assoc '40. C$)
        ht (cdr tht)
        ROT (assoc '50. C$)
        ROA (cdr ROT)
        ROA (* ROA R2D)
        F$ (cdr txts)
        G$ (substr F$ 1)
        G$ (strcase G$))
  (Command ".CHANGE" B$ "" "" "" "" "" "" G$)
  (if (< IDX SL1) (upper) (stop))
)

(defun stop ()
  (TERPRI)
  (SETVAR "CMDECHO" 1)
)

(prompt "Command: CASECHG - Converts upper to lower case letters ")