;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 10-03-2002
;;;
(defun c:flipA ()
  (SETQ flipang (uangle 1 "" "Angle of rotation" flipang NIL))
  (while
    (and (setq sel_item (entsel "\Select block to flip. "))
	 (if sel_item (or
			(and
			  (eq(cdr(assoc 0 (entget(car sel_item))))"INSERT")
			  (/=(boole 1 (cdr(assoc 70 (tblsearch "block"(cdr(assoc 2(entget(car sel_item))))))) 4) 4)
		        )
			(eq(cdr(assoc 0 (entget(car sel_item))))"TEXT")
		      )
	 )
    )
    (setq sel_edata (entget (car sel_item)))
    (setq iang (cdr(assoc 50 sel_edata)))
    (setq sel_edata (subst (cons 50 (+ flipang iang))(assoc 50 sel_edata)sel_edata))
    (entmod sel_edata)
    (setq sel_item nil)
  )
  (princ "\nNo block selected! ")
  (princ)
)