[求助]：如何一次保存所有的系统变量

网络水手

请帮忙给出lisp程序! 谢谢先!

doubao

看起来简单，还真没什么好办法
命令SETVAR 可以通过* 号一次列出所有系统变量，怎么样编到LISP程序里就不知道了

oyxx_1023

R14里头BONUS中有一个系统变量编辑器,就可以导出当前的系统变量到外部文件中.
不知道2K以上有没有这个功能.

网络水手

我想在写lisp程序时开始时保存全部变量,完成后再恢复,这样就不用每次考虑要保存这些系统变量了!
还请程序高手给点建议!谢谢啦!!

oyxx_1023

你是哪个CAD版本?

cy956

和程序运行有关的系统变量通常就几个，似乎没必要都来一遍。
如果是为了采用相同环境，那还得考虑图层、线形、颜色、字体、标注格式等问题。你可以用样板文件，也可以自己编程解决。

xyp1964

2004
[php]
;;;保存系统变量
(defun c:test1 ()
  (SetQ        **SysVarNL**
         '("ACADLSPASDOC"  "ACISOUTVER"           "AFLAGS"
           "ANGBASE"           "ANGDIR"           "APBOX"
           "APERTURE"           "ATTDIA"           "ATTMODE"
           "ATTREQ"           "AUDITCTL"           "AUNITS"
           "AUPREC"           "AUTOSNAP"           "BINDTYPE"
           "BLIPMODE"           "CECOLOR"           "CELTSCALE"
           "CELTYPE"           "CELWEIGHT"           "CHAMFERA"
           "CHAMFERB"           "CHAMFERC"           "CHAMFERD"
           "CHAMMODE"           "CIRCLERAD"           "CLAYER"
           "CMDDIA"           "CMDECHO"           "CMLJUST"
           "CMLSCALE"           "CMLSTYLE"           "COMPASS"
           "COORDS"           "CPLOTSTYLE"           "CTAB"
           "CURSORSIZE"           "CVPORT"           "DCTMAIN"
           "DEFLPLSTYLE"   "DEFPLSTYLE"           "DELOBJ"
           "DEMANDLOAD"           "DIMADEC"           "DIMALT"
           "DIMALTD"           "DIMALTF"           "DIMALTRND"
           "DIMALTTD"           "DIMALTTZ"           "DIMALTU"
           "DIMALTZ"           "DIMAPOST"           "DIMASO"
           "DIMASSOC"           "DIMASZ"           "DIMATFIT"
           "DIMAUNIT"           "DIMAZIN"           "DIMBLK"
           "DIMBLK1"           "DIMBLK2"           "DIMCEN"
           "DIMCLRD"           "DIMCLRE"           "DIMCLRT"
           "DIMDEC"           "DIMDLE"           "DIMDLI"
           "DIMDSEP"           "DIMEXE"           "DIMEXO"
           "DIMFIT"           "DIMFRAC"           "DIMGAP"
           "DIMJUST"           "DIMLDRBLK"           "DIMLFAC"
           "DIMLIM"           "DIMLUNIT"           "DIMLWD"
           "DIMLWE"           "DIMPOST"           "DIMRND"
           "DIMSAH"           "DIMSCALE"           "DIMSD1"
           "DIMSD2"           "DIMSE1"           "DIMSE2"
           "DIMSHO"           "DIMSOXD"           "DIMTAD"
           "DIMTDEC"           "DIMTFAC"           "DIMTIH"
           "DIMTIX"           "DIMTM"           "DIMTMOVE"
           "DIMTOFL"           "DIMTOH"           "DIMTOL"
           "DIMTOLJ"           "DIMTP"           "DIMTSZ"
           "DIMTVP"           "DIMTXSTY"           "DIMTXT"
           "DIMTZIN"           "DIMUNIT"           "DIMUPT"
           "DIMZIN"           "DISPSILH"           "DONUTID"
           "DONUTOD"           "DRAGMODE"           "DRAGP1"
           "DRAGP2"           "DWGCHECK"           "EDGEMODE"
           "ELEVATION"           "EXPERT"           "EXPLMODE"
           "EXTNAMES"           "FACETRATIO"           "FACETRES"
           "FILEDIA"           "FILLETRAD"           "FILLMODE"
           "FONTALT"           "FONTMAP"           "GFANG"
           "GFCLR1"           "GFCLR2"           "GFCLRLUM"
           "GFCLRSTATE"           "GFNAME"           "GFSHIFT"
           "GRIDMODE"           "GRIDUNIT"           "GRIPBLOCK"
           "GRIPCOLOR"           "GRIPHOT"           "GRIPHOVER"
           "GRIPOBJLIMIT"  "GRIPS"           "GRIPSIZE"
           "GRIPTIPS"           "HALOGAP"           "HIDEPRECISION"
           "HIDETEXT"           "HIGHLIGHT"           "HPANG"
           "HPASSOC"           "HPBOUND"           "HPDOUBLE"
           "HPNAME"           "HPSCALE"           "HPSPACE"
           "HYPERLINKBASE" "IMAGEHLT"           "INDEXCTL"
           "INETLOCATION"  "INSBASE"           "INSNAME"
           "INSUNITS"           "INSUNITSDEFSOURCE"
           "INSUNITSDEFTARGET"                   "INTERSECTIONCOLOR"
           "INTERSECTIONDISPLAY"           "ISAVEBAK"
           "ISAVEPERCENT"  "ISOLINES"           "LASTPOINT"
           "LAYOUTREGENCTL"                   "LIMCHECK"
           "LIMMAX"           "LIMMIN"           "LISPINIT"
           "LOGFILEMODE"   "LTSCALE"           "LUNITS"
           "LUPREC"           "LWDEFAULT"           "LWDISPLAY"
           "LWUNITS"           "MAXACTVP"           "MAXSORT"
           "MBUTTONPAN"           "MEASUREINIT"   "MEASUREMENT"
           "MENUCTL"           "MENUECHO"           "MIRRTEXT"
           "MODEMACRO"           "MTEXTED"           "MTEXTFIXED"
           "MTJIGSTRING"   "NOMUTT"           "OBSCUREDCOLOR"
           "OBSCUREDLTYPE" "OFFSETDIST"           "OFFSETGAPTYPE"
           "OLEHIDE"           "OLEQUALITY"           "OLESTARTUP"
           "ORTHOMODE"           "OSMODE"           "OSNAPCOORD"
           "PALETTEOPAQUE" "PAPERUPDATE"   "PDMODE"
           "PDSIZE"           "PEDITACCEPT"   "PELLIPSE"
           "PICKADD"           "PICKAUTO"           "PICKBOX"
           "PICKDRAG"           "PICKFIRST"           "PICKSTYLE"
           "PLINEGEN"           "PLINETYPE"           "PLINEWID"
           "PLOTROTMODE"   "PLQUIET"           "POLARADDANG"
           "POLARANG"           "POLARDIST"           "POLARMODE"
           "POLYSIDES"           "PROJECTNAME"   "PROJMODE"
           "PROXYGRAPHICS" "PROXYNOTICE"   "PROXYSHOW"
           "PROXYWEBSEARCH"                   "PSLTSCALE"
           "PSPROLOG"           "PSQUALITY"           "PSTYLEPOLICY"
           "PSVPSCALE"           "PUCSBASE"           "QTEXTMODE"
           "RASTERPREVIEW" "REGENMODE"           "REMEMBERFOLDER"
           "REPORTERROR"   "RTDISPLAY"           "SAVEFILEPATH"
           "SAVETIME"           "SDI"           "SHADEDGE"
           "SHADEDIF"           "SHORTCUTMENU"  "SHPNAME"
           "SIGWARN"           "SKETCHINC"           "SKPOLY"
           "SNAPANG"           "SNAPBASE"           "SNAPISOPAIR"
           "SNAPMODE"           "SNAPSTYL"           "SNAPTYPE"
           "SNAPUNIT"           "SOLIDCHECK"           "SORTENTS"
           "SPLFRAME"           "SPLINESEGS"           "SPLINETYPE"
           "STARTUP"           "SURFTAB1"           "SURFTAB2"
           "SURFTYPE"           "SURFU"           "SURFV"
           "TABMODE"           "TEXTEVAL"           "TEXTFILL"
           "TEXTQLTY"           "TEXTSIZE"           "TEXTSTYLE"
           "THICKNESS"           "TILEMODE"           "TOOLTIPS"
           "TRACEWID"           "TRACKPATH"           "TRAYICONS"
           "TRAYNOTIFY"           "TRAYTIMEOUT"   "TREEDEPTH"
           "TREEMAX"           "TRIMMODE"           "TSPACEFAC"
           "TSPACETYPE"           "TSTACKALIGN"   "TSTACKSIZE"
           "UCSAXISANG"           "UCSBASE"           "UCSFOLLOW"
           "UCSICON"           "UCSORTHO"           "UCSVIEW"
           "UCSVP"           "UNITMODE"           "VISRETAIN"
           "WHIPARC"           "WMFBKGND"           "WMFFOREGND"
           "WORLDVIEW"           "XCLIPFRAME"           "XEDIT"
           "XFADECTL"           "XLOADCTL"           "XLOADPATH"
           "XREFCTL"           "XREFNOTIFY"           "ZOOMFACTOR"
          )
  )
  (SetQ **svarl** '())
  (ForEach sv **SysVarNL**
    (SetQ **svarl** (Cons (GetVar sv) **svarl**))
  )
)

;;;恢复系统变量
(defun c:test2 ()
  (MapCar 'SetVar **SysVarNL** (Reverse **svarl**))
)
[/php]

网络水手

7楼的不错, 谢谢啦!

ysx810210

7楼的程序很好,以表的形式保存变量值,有点新意,相对赋值保存的方式省了不少语句

doubao

7楼的方法确实不错，是专业水平的编程。

但是必须在程序里事先输入好所有的系统变量，如果版本变了， 系统变量可能会有不同，因此针对不同版本的AUTOCAD需要改动程序。

有没有一种自动寻找所有系统变量的办法呢？AUTOCAD存储系统变量的机制是什么呢？ 是不是每个DWG文件中都存有所有的系统变量呢？

hisum

笨问题当然还是笨办法最直接，哈哈

xiaomu

又长见识，呵呵，不错，是个好办法。

doubao

但是还是没有真正彻底解决问题，希望继续讨论。