Mirrtext Default

[WannaBeCader]

Does anyone know how to permantly change the default of mirrtext, (if I remember right the "0" value will not mirror the text and thats the default I want. As of now I change the setting in each dwg that I need. Honestly unless someone here makes signs for ambulances, to be readable in someone's rear view mirror in a car, why the #$%^ would anyone want text mirrored?
Thanks All,

[CAB]

Add this (setvar "mirrtext" 0 ) to acaddoc.lsp if it exist or create the acaddoc.lsp file and
it will be set when you open each drawing.
Here is what i use in my acaddoc.lsp,

(load "AlansAutoLoad.lsp")
(princ)
then in my AlansAutoLoad.lsp is this

;;; variable setting mechanism
;;; called from 'AlansAutoLoad.lsp'
;;;
;;; After setting the global variable, call the function, (vl-propagate
;;; 'globalVariable) where globalVariable is the symbol name of your global
;;; variable. This will copy the value of globalVariable into all open document
;;; namespaces and set its value in any subsequent drawings opened during the
;;; current AutoCAD session.

(defun ACADset_vars (/ var)

(setq var (list
(list "angbase" 0 ) ;
(list "angdir" 0 ) ; CCW
(list "apbox" 0 ) ; Aperture box off 0
(list "aperture" 10 ) ; zone of detection
(list "ATTDIA" 1 ) ; ** new
(list "ATTREQ" 0 ) ; ** new do not request attrib when inserting
(list "aunits" 0 ) ; 0 = degrees 4 = survey
(list "auprec" 4 ) ; no od decimal places
(list "autosnap" 7 ) ;

(list "blipmode" 0 ) ; o = blips off

(list "chammode" 0 ) ; require 2 distances
(list "cecolor" "bylayer")
(list "celtype" "bylayer")
(list "cmddia" 1 )
(list "cmdecho" 1 )
(list "coords" 1 )
(list "cursorsize" 5 ) ; size of cross

(list "dimaso" 1 ) ;
(list "dimsho" 1 )
(list "dragmode" 2 ) ; display outline
(list "dragp1" 10 )
(list "dragp2" 25 )

(list "edgemode" 1 ) ; trim to extension
(list "expert" 4 )

(list "facetres" 2 )
(list "filedia" 1 )
(list "filletrad" 0 )
(list "fillmode" 1 ) ;

(list "gridmode" 0 ) ; grid off
(list "grips" 1 ) ;
(list "gripsize" 3 ) ; grip box size

(list "highlight" 1 )

(list "insbase" (list 0 0 0)) ;
(list "isolines" 4 )

(list "limcheck" 0 ) ; 0= allow create obj outside limites
(list "lunits" 4 ) ; 4=Arch 2=decimal
(list "luprec" 5 ) ; decimal places displayed for linear

(list "maxactvp" 50 ) ; max viewport to be regenerated
(list "maxsort" 500) ; max num of layers to sort in layer manager
(list "mbuttonpan" 1) ;
(list "measurement" 0) ; English
(list "measureinit" 0) ; English
(list "mirrtext" 0 ) ; 1=mirror text 0=backwards test

(list "offsetgaptype" 0 ) ;
;; Controls how potential gaps between segments are treated when polylines are offset.
;; 0 Fills the gaps by extending the polyline segments
;; 1 Fills the gaps with filleted arc segments (the radius of each arc segment is equal to the offset distance)
;; 2 Fills the gaps with chamfered line segments (the perpendicular distance to each chamfer is equal to the offset distance)

(list "osmode" 175 )

;(list "PDMODE" 0 ) ; new, causes a regen
(list "pickadd" 1 )
(list "pickauto" 1 )
(list "pickbox" 3 ) ; the pick box size
(list "pickdrag" 0 )
(list "pickfirst" 1 )
(list "pickstyle" 1 ) ;
(list "plinegen" 0 ) ;
(list "plinetype" 2 ) ;
(list "plinewid" 0 ) ; pline width
(list "plotrotmode" 2 ) ; needs to be 2 in order the show shadow in PS display
(list "PSLTSCALE" 0 ) ; new 0=do not use PS plot scale
(list "polarmode" 1 ) ;
(list "projmode" 1 ) ;
(list "proxygraphics" 1) ;
(list "proxynotice" 1) ;
(list "proxyshow" 1) ;

(list "qtextmode" 0 ) ; 1=display box ILO text

(list "regenmode" 1 )

(list "savetime" 30 ) ; minutes between auto save 0=no auto save
(list "sdi" 0 )
(list "snapang" 0 )
(list "snapbase" (list 0 0)) ; hatch base point
(list "snapisopair" 0 )
(list "snapmode" 0 )
(list "snapstyl" 0 )
(list "snaptype" 0 )
(list "snapunit" (list 1 1))
(list "sortents" 96)
(list "splframe" 0 )

(list "textfill" 1 ) ; plot with text filled
(list "textqlty" 50 ) ; text resolution of TT font while plotting
(list "textsize" 5 ) ; default text size
(list "tooltips" 1 )
(list "trimmode" 1 )
(list "tstackalign" 1 )
(list "tstacksize" 70 )

(list "unitmode" 0 )
(list "ucsfollow" 0 )
(list "ucsicon" 0 ) ; 0=no display 3=display icon at origin

(list "worldview" 1 )

(list "visretain" 1 ) ; retain layer state

(list "zoomfactor" 10 )
)
); setq

(mapcar '(lambda (x)
(setvar(car x) (cadr x))
)
var)
(prompt "\nACADSet_Variables has set system variables to your preset values.")
(princ)

) ;; EOF

[WannaBeCader]

Thks Cab!!!