;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://paracadd.com ;;; All rights reserved. ;;; (DEFUN C:FLIPDIM ( / SELDIM1) (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! ")) (SETQ flipdim_how (UKWORD 1 "Around 180 Horizontal Graphic Quarters" "Flip dimension text how? [Around(180°)/Graphic/Horizontal/Quarters]" (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))) ((EQ (STRCASE flipdim_how) "QUARTERS") (SETQ SELDATA (SUBST (CONS 51 (+(CDR(ASSOC 51 SELDATA))(/ PI 2.0)))(ASSOC 51 SELDATA)SELDATA))) ((EQ (STRCASE flipdim_how) "GRAPHIC") (IF upoint NIL (LOAD "upoint" "\nFile UPOINT.LSP not loaded! ")) (SETQ dapt1 (upoint 1 "" "First point" nil nil)) (SETQ dapt2 (upoint 1 "" "Second point" nil dapt1)) (IF (AND dapt1 dapt2) (PROGN (SETQ dim_angle (ANGLE dapt1 dapt2)) (SETQ SELDATA (SUBST (CONS 51 dim_angle)(ASSOC 51 SELDATA)SELDATA)) ) )) ) (ENTMOD SELDATA) ) ) ) (PRINC) )