Well I'm stuck again..
Mark I couldn't resist changing you routine.
The "I got ot do it my way" syndrome I guess.
I changed to dotted pairs to keep the variables next to the values for
readability sake but I am having problems with a couple of variables
I am adding to the list.
"dcprops" wants a YES or NO answer at the command prompt and I cant
get it to work with my lisp.
Also "insbase" '(0 0 0) needs a 3D point and "snapbase" (list 0 0)
needs a 2D point.
How can I make there work with the following code? (anybody)
PS haven't finished the var list yet
(defun ACADset_vars (/ var)
(setq var '(
("angdir" . 0 ) ; CCW
("angbase" . 0 ) ;
("apbox" . 0 ) ; Aperture box off 0
("aperture" . 10 ) ; zone of detection
("aunits" . 0 ) ; 0 = degrees 4 = survey
("auprec" . 4 ) ; no. od decimal places
("autosnap" . 7 ) ;
("blipmode" . 0 ) ; o = blips off
("chammode" . 0 ) ; require 2 distances
("cursorsize" . 5 ) ; size of cross
("cmddia" . 1 )
("cmdecho" . 1 )
("coords" . 2 )
; ("dcprops" . "OFF" ) ;ON= doubleclick on text opens the properties window
("dimaso" . 1 ) ;
("dimsho" . 1 )
("dragmode" . 2 ) ; display outline
("dragp1" . 10 )
("dragp2" . 25 )
("edgemode" . 1 ) ; trim to extension
("expert" . 4 )
("gridmode" . 0 ) ; grid off
("grips" . 1 ) ;
("gripsize" . 3 ) ; grip box size
("facetres" . 2 )
("filedia" . 1 )
("filletrad" . 0 )
("fillmode" . 1 ) ;
("highlight" . 1 )
; ("insbase" . '(0 0 0)) ;
("isolines" . 4 )
("limcheck" . 0 ) ; 0= allow create obj outside limites
("lunits" . 4 ) ; 4=Arch 2=decimal
("luprec" . 5 ) ; decimal places displayed for linear
("maxactvp" . 50 ) ; max viewport to be regenerated
("maxsort" . 500) ; max num of layers to sort in layer manager
("mbuttonpan" . 1) ;
("measurement" . 0) ; English
("measureinit" . 0) ; English
("mirrtext" . 0 ) ; 1=mirror text 0=backwards test
("offsetgaptype" . 0 ) ;
("osmode" . 73 )
("pickadd" . 1 )
("pickauto" . 1 )
("pickbox" . 3 ) ; the pick box size
("pickdrag" . 0 )
("pickfirst" . 1 )
("pickstyle" . 1 ) ;
("plinegen" . 0 ) ;
("plinetype" . 2 ) ;
("plinewid" . 0 ) ; pline width
("plotrotmode" . 1) ; align lower left plot area with LL of paper
("qtextmode" . 0 ) ; 1=display box ILO text
("regenmode" . 1 )
("savetime" . 30 ) ; minutes between auto save 0=no auto save
; ("snapbase" . (list 0 0)) ; hatch base point
("splframe" . 0 )
("textfill" . 1 ) ; plot with text filled
("textqlty" . 50 ) ; text resolution of TT font while plotting
("textsize" . 5 ) ; default text size
("ucsfollow" . 0 )
("ucsicon" . 0 ) ; 0=no display 3=display icon at origin
("visretain" . 1 ) ; retain layer state
)
); setq
(mapcar '(lambda (x)
(setvar(car x) (cdr x))
)
var)
(princ)
) ;; EOF