;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 07-12-2006
;;;
(DEFUN C:FLIPDIM ( / SELDIM1)
  (SETQ flipdim_how (UKWORD 1 "Around Horizontal" "Flip dimension text how? [<A>round(180°)/<H>orizontal]" (IF flipdim_how flipdim_how "Horizontal")))
  (WHILE
    (SETQ SELDIM1 (ENTSEL))
    (IF (AND SELDIM1 (EQ (CDR (ASSOC 0 (SETQ SELDATA (ENTGET (CAR SELDIM1))))) "DIMENSION") flipdim_how)
      (PROGN
	(COND
	  ((EQ (STRCASE flipdim_how) "HORIZONTAL")
            (SETQ SELDATA (SUBST (CONS 51 (GETVAR "VIEWTWIST"))(ASSOC 51 SELDATA)SELDATA)))
	  ((EQ (STRCASE flipdim_how) "AROUND")
            (SETQ SELDATA (SUBST (CONS 51 (+(CDR(ASSOC 51 SELDATA))PI))(ASSOC 51 SELDATA)SELDATA)))
	)
	(ENTMOD SELDATA)
      )
    )
  )
  (PRINC)
)