Topic: Setting Variables

[ronjonp]

I have a lisp that sets variables at startup. My question is, how do I make the lisp continue if a variable cannot be set?

Code: [Select]

(defun c:ninjasettings()
(setvar 'acadlspasdoc 1)
(setvar 'apbox 1)
(setvar 'attdia 1)
(setvar 'attmode 1)
(setvar 'auditctl 0)
(setvar 'bindtype 1)
(setvar 'blipmode 0)
(setvar 'cecolor "bylayer")
(setvar 'celtype "bylayer")
(setvar 'cmddia 1)
(setvar 'clayer "0")
(setvar 'coords 2)
(setvar 'delobj 1)
(setvar 'dimassoc 1)
(setvar 'dragmode 2)
(setvar 'dragp1 50)
(setvar 'dragp2 50)
(setvar 'dwgcheck 0)
(setvar 'edgemode 1)
(setvar 'elevation 0)
(setvar 'expert 1)
              (setvar 'explmode 1)
(setvar 'facetratio 1)
(setvar 'facetres 10)
(setvar 'filedia 1)
(setvar 'filletrad 0)
(setvar 'fillmode 1)
(setvar 'fontalt "romans.shx")
(setvar 'grips 1)
(setvar 'hideprecision 1)
(setvar 'highlight 1)
(setvar 'hpbound 1)
(setvar 'imagehlt 1)
              (setvar 'isavebak 1)
(setvar 'isavepercent 0)
(setvar 'isolines 100)
(setvar 'logfilemode 0)
(setvar 'lwdisplay 0)
(setvar 'maxsort 5000)
(setvar 'mbuttonpan 1)
(setvar 'mirrtext 0)
(setvar 'olequality 3)
(setvar 'olestartup 1)
              (setvar 'osmode 0)
(setvar 'pickadd 1)
(setvar 'pickauto 1)
(setvar 'pickfirst 1)
(setvar 'pickstyle 1)
(setvar 'plinegen 1)
(setvar 'plinetype 2)
             ;(setvar 'plinewid 0)
(setvar 'proxyshow 1)
(setvar 'rasterpreview 0)
              (setvar 'rememberfolders 1)
(setvar 'rtdisplay 0)
(setvar 'savetime 5)
(setvar 'sortents 1)
(setvar 'textfill 1)
             ;(setvar 'treedepth -3020)
(setvar 'ucsfollow 0)
(setvar 'whiparc 0)
(setvar 'xfadectl 75)
(setvar 'xloadctl 2)
(setvar 'zoomfactor 90)
)
(c:ninjasettings)
(princ "\n  Variables Set.....")

Thanks,

Ron

[David Bethel]

If you want to check for the variable's existence

Code: [Select]

(and (getvar "VarName")
        (setvar value))


If it is read-only, then you have problems.  -David