有趣的AutoCAD文章-CAD性能

(defun _setvars (/ ds lst)
  (and (zerop (setq ds (getvar 'dimscale))) (setq ds 1))
  (setq lst '(("ShowFullPathInTitle" . "1")
              (acadlspasdoc . 1)
              (angdir . 0)
              (apbox . 1)
              (aperture . 8)
              (attdia . 1)
              (attmode . 1)
              (auditctl . 0)
              (aunits . 0)
              (backgroundplot . 0)
              (bindtype . 1)
              (blipmode . 0)
              (cecolor . "bylayer")
              (celtscale . 1)
              (celtype . "bylayer")
              (cmddia . 1)
              (coords . 2)
              (cursorsize . 100)
              (dblclkedit . 1)
              (delobj . 1)
              (demandload . 2)
              (dimassoc . 2)
              (dragmode . 2)
              (dragp1 . 10)
              (dragp2 . 10)
              (draworderctl . 3)
              (dwgcheck . 2)
              (dynpicoords . 1)
              (edgemode . 1)
              (elevation . 0)
              (entexts . 0)
              (expert . 1)
              (explmode . 1)
              (facetratio . 1)
              (facetres . 10)
              (fielddisplay . 1)
              (fieldeval . 31)
              (filedia . 1)
              (filletrad . 0)
              (fillmode . 1)
              (fontalt . "romans.shx")
              (gripblock . 0)
              (gripobjlimit . 30000)
              (grips . 1)
              (groupdisplaymode . 0)
              (hideprecision . 0)
              (highlight . 1)
              (hpassoc . 1)
              (hpbound . 1)
              (hpdraworder . 3)
              (hpgaptol . 1)
              (hpname . "solid")
              (hpscale . ds)
              (hpseparate . 1)
              (imagehlt . 0)
              (indexctl . 0)
              (insunits . 0)
              (isavebak . 0)
              (isavepercent . 0)
              (isolines . 25)
              (layereval . 0)
              (layerfilteralert . 1)
              (layoutregenctl . 2)
              (logfilemode . 0)
              (luprec . 6)
              (lwdisplay . 0)
              (maxsort . 32767)
              (mbuttonpan . 1)
              (menubar . 1)
              (mirrtext . 0)
              (mleaderscale . ds)
              (mtextfixed . 2)
              (oleframe . 2)
              (olehide . 0)
              (olequality . 3)
              (olestartup . 1)
              (openpartial . 0)
              (osnaphatch . 0)
              (osnapz . 1)
              (paperupdate . 1)
              (peditaccept . 1)
              (pellipse . 0)
              (pickadd . 1)
              (pickauto . 5)
              (pickdrag . 2)
              (pickfirst . 1)
              (pickstyle . 1)
              (plinegen . 1)
              (plinetype . 2)
              (plotoffset . 1)
              (previeweffect . 0)
              (previewfilter . 63)
              (proxynotice . 0)
              (proxyshow . 0)
              (proxywebsearch . 0)
              (pstylemode . 1)
              (pstylepolicy . 1)
              (publishallsheets . 1)
              (rasterpreview . 1)
              (recoverymode . 0)
              (regenmode . 1)
              (rememberfolders . 1)
              (reporterror . 0)
              (rollovertips . 0)
              (rtdisplay . 1)
              (savefidelity . 0)
              (savetime . 8)
              (secureload . 0)
              (selectionarea . 1)
              (showlayerusage . 0)
              (sigwarn . 0)
              (sortents . 51)
              (sslocate . 1)
              (ssmautoopen . 1)
              (ssmstate . 0)
              (standardsviolation . 0)
              (startup . 3)
              (textfill . 1)
              (textqlty . 100)
              (textsize . (* ds 0.1))
              (textstyle . "romans")
              (thickness . 0)
              (thumbsize . 8)
              (ucsdetect . 0)
              (ucsfollow . 0)
              (vtduration . 250)
              (vtenable . 0)
              (whiparc . 0)
              (whipthread . 1)
              (xfadectl . 75)
              (xloadctl . 2)
              (xreftype . 1)
              (zoomfactor . 100)
             )
  )
  (foreach x lst (vl-catch-all-apply 'setvar (list (car x) (eval (cdr x)))))
  (princ)
)