;;;Sets case of selected text and of attributes in selected blocks.
;;;Default is all uppercase.
;;;
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-7-94
;;;>		   EDITED: 08-17-2005
;;;
(DEFUN C:CTC (/ tent edtw)
  (IF ukword
    NIL
    (LOAD "UKWORD" "/nFile UKWORD.LSP not loaded! ")
  ) ;_ end of IF
  (SETQ	which (ukword 1
		      "Uppercase Lowercase"
		      "\nWhich? (Uppercase or Lowercase)"
		      "Uppercase"
	      ) ;_ end of ukword
  ) ;_ end of setq
  (IF (OR (EQ which "U") (EQ which "u") (EQ which "Uppercase"))
    (SETQ which nil)
  )					;if
  (PROMPT "\nSelect Text: ")
  (SETQ	tset (SSGET '((-4 . "<OR")
		      (0 . "TEXT")
		      (0 . "ATTRIB")
		      (-4 . "<AND")
		      (0 . "INSERT")
		      (66 . 1)
		      (-4 . "AND>")
		      (-4 . "OR>")
		     )
	     ) ;_ end of ssget
  ) ;_ end of setq
  (IF tset
    (PROGN
      (SETQ tsln (SSLENGTH tset))
      (SETQ cntr 0)
    ) ;_ end of progn
  ) ;_ end of if
  (WHILE
    (IF	(AND (< cntr tsln) tset)
      (IF (EQ (CDR (ASSOC 0 edtw)) "ATTRIB")
	(SETQ tent (ENTGET (ENTNEXT (CDAR edtw))))
	(SETQ tent (ENTGET (SSNAME tset cntr)))
      ) ;_ end of if
    )					;if
     (PROGN
       (SETQ edtw (ENTGET (CDAR tent)))
       (WHILE
	 (NOT
	   (OR
	     (EQ (CDR (ASSOC 0 edtw)) "TEXT")
	     (EQ (CDR (ASSOC 0 edtw)) "ATTRIB")
	     (EQ (CDR (ASSOC 0 edtw)) "SEQEND")
	   ) ;_ end of or
	 ) ;_ end of not
	  (SETQ edtw (ENTGET (ENTNEXT (CDAR edtw))))
       ) ;_ end of while
       (IF (EQ (CDR (ASSOC 0 edtw)) "SEQEND")
	 (SETQ cntr (1+ cntr))
	 (PROGN
	   (SETQ tht (STRCASE (CDR (ASSOC 1 edtw)) which))
	   (SETQ edtw
		  (SUBST (CONS 1 tht)
			 (ASSOC 1 edtw)
			 edtw
		  ) ;_ end of subst
	   ) ;_ end of setq
	   (ENTMOD edtw)
	   (ENTUPD (CDAR edtw))
	   (IF (EQ (CDR (ASSOC 0 edtw)) "ATTRIB")
	     nil
	     (SETQ cntr (1+ cntr))
	   ) ;_ end of if
	 ) ;_ end of progn
       ) ;_ end of if
     ) ;_ end of progn
  ) ;_ end of while
)					;DEFUN
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;