不一样的“一键恢复系统变量为初始值” 源码

flyfox1047

试用了黄大师的“一键恢复系统变量为初始值” 怎么没有 变化？ 第71行的(setq VarList '(0  是不是应该变为(setq valueList '(0

试了没有变化的用用这个吧：

2. (defun once->init ( / lst )
   
3.     (princ
   
4.         (strcat "\n"
   
5.             (itoa
   
6.                 (length
   
7.                     (vl-remove-if 'null
   
8.                         (mapcar
   
9.                             (function
   
10.                                 (lambda ( pair / err )
    
11.                                     (if (getvar (car pair))
    
12.                                         (if (vl-catch-all-error-p (setq err (vl-catch-all-apply 'setvar pair)))
    
13.                                             (prompt
    
14.                                                 (strcat
    
15.                                                     "\nError setting system variable "
    
16.                                                     (vl-prin1-to-string (car pair))
    
17.                                                     ": "
    
18.                                                     (vl-catch-all-error-message err)
    
19.                                                 )
    
20.                                             )
    
21.                                             t
    
22.                                         )
    
23.                                     )
    
24.                                 )
    
25.                             )
    
26.                             (setq lst
    
27.                                '(
    
28.                                     ("ZOOMWHEEL" 0)
    
29.                                     ("ZOOMFACTOR" 60)
    
30.                                     ("XREFTYPE" 0)
    
31.                                     ("XREFNOTIFY" 2)
    
32.                                     ("XREFCTL" 0)
    
33.                                     ("XLOADCTL" 2)
    
34.                                     ("XFADECTL" 50)
    
35.                                     ("XEDIT" 1)
    
36.                                     ("XCLIPFRAME" 0)
    
37.                                     ("WORLDVIEW" 1)
    
38.                                     ("WMFFOREGND" 0)
    
39.                                     ("WMFBKGND" 0)
    
40.                                     ("WINDOWAREACOLOR" 5)
    
41.                                     ("WHIPTHREAD" 1)
    
42.                                     ("WHIPARC" 0)
    
43.                                     ("VTFPS" 7)
    
44.                                     ("VTENABLE" 3)
    
45.                                     ("VTDURATION" 750)
    
46.                                     ("VSSILHWIDTH" 5)
    
47.                                     ("VSSILHEDGES" 0)
    
48.                                     ("VSSHADOWS" 0)
    
49.                                     ("VSOBSCUREDLTYPE" 1)
    
50.                                     ("VSOBSCUREDEDGES" 0)
    
51.                                     ("VSOBSCUREDCOLOR" "ByEntity")
    
52.                                     ("VSMONOCOLOR" "255,255,255")
    
53.                                     ("VSMATERIALMODE" 0)
    
54.                                     ("VSLIGHTINGQUALITY" 1)
    
55.                                     ("VSISOONTOP" 0)
    
56.                                     ("VSINTERSECTIONLTYPE" 1)
    
57.                                     ("VSINTERSECTIONEDGES" 0)
    
58.                                     ("VSINTERSECTIONCOLOR" "7")
    
59.                                     ("VSHIDEPRECISION" 0)
    
60.                                     ("VSHALOGAP" 0)
    
61.                                     ("VSFACESTYLE" 1)
    
62.                                     ("VSFACEOPACITY" -60)
    
63.                                     ("VSFACEHIGHLIGHT" -30)
    
64.                                     ("VSFACECOLORMODE" 0)
    
65.                                     ("VSEDGESMOOTH" 1)
    
66.                                     ("VSEDGES" 1)
    
67.                                     ("VSEDGEOVERHANG" -6)
    
68.                                     ("VSEDGEJITTER" -2)
    
69.                                     ("VSEDGECOLOR" "ByEntity")
    
70.                                     ("VSBACKGROUNDS" 1)
    
71.                                     ("VPLAYEROVERRIDESMODE" 1)
    
72.                                     ("VISRETAIN" 1)
    
73.                                     ("USERS5" "")
    
74.                                     ("USERS4" "")
    
75.                                     ("USERS3" "")
    
76.                                     ("USERS2" "")
    
77.                                     ("USERS1" "")
    
78.                                     ("USERR5" 0.0)
    
79.                                     ("USERR4" 0.0)
    
80.                                     ("USERR3" 0.0)
    
81.                                     ("USERR2" 0.0)
    
82.                                     ("USERR1" 0.0)
    
83.                                     ("USERI5" 0)
    
84.                                     ("USERI4" 0)
    
85.                                     ("USERI3" 0)
    
86.                                     ("USERI2" 0)
    
87.                                     ("USERI1" 0)
    
88.                                     ("UPDATETHUMBNAIL" 15)
    
89.                                     ("UNITMODE" 0)
    
90.                                     ("UCSVP" 1)
    
91.                                     ("UCSVIEW" 1)
    
92.                                     ("UCSORTHO" 1)
    
93.                                     ("UCSICON" 3)
    
94.                                     ("UCSFOLLOW" 0)
    
95.                                     ("UCSDETECT" 1)
    
96.                                     ("UCSBASE" ".")
    
97.                                     ("UCSAXISANG" 1.5708)
    
98.                                     ("TSTACKSIZE" 70)
    
99.                                     ("TSTACKALIGN" 1)
    
100.                                     ("TSPACETYPE" 1)
     
101.                                     ("TSPACEFAC" 1.0)
     
102.                                     ("TRUSTEDPATHS" "")
     
103.                                     ("TRUSTEDDOMAINS" "*.autodesk.com;*.autodeskbutterfly.com;*.AutoCADws.com")
     
104.                                     ("TRIMMODE" 1)
     
105.                                     ("TREEMAX" 10000000)
     
106.                                     ("TREEDEPTH" 3020)
     
107.                                     ("TRAYTIMEOUT" 0)
     
108.                                     ("TRAYNOTIFY" 1)
     
109.                                     ("TRAYICONS" 1)
     
110.                                     ("TRACKPATH" 0)
     
111.                                     ("TRACEWID" 0.05)
     
112.                                     ("TOOLTIPS" 1)
     
113.                                     ("TOOLTIPMERGE" 0)
     
114.                                     ("TIMEZONE" -8000)
     
115.                                     ("TILEMODE" 1)
     
116.                                     ("THICKNESS" 0.0)
     
117.                                     ("TEXTSTYLE" "Standard")
     
118.                                     ("TEXTSIZE" 0.2)
     
119.                                     ("TEXTQLTY" 50)
     
120.                                     ("TEXTOUTPUTFILEFORMAT" 0)
     
121.                                     ("TEXTFILL" 1)
     
122.                                     ("TEXTEVAL" 0)
     
123.                                     ("TEMPOVERRIDES" 1)
     
124.                                     ("TBCUSTOMIZE" 1)
     
125.                                     ("TABMODE" 0)
     
126.                                     ("TABLETOOLBAR" 2)
     
127.                                     ("TABLEINDICATOR" 1)
     
128.                                     ("SURFV" 6)
     
129.                                     ("SURFU" 6)
     
130.                                     ("SURFTYPE" 6)
     
131.                                     ("SURFTAB2" 6)
     
132.                                     ("SURFTAB1" 6)
     
133.                                     ("SUNSTATUS" 1.0)
     
134.                                     ("SUBOBJSELECTIONMODE" 0)
     
135.                                     ("STEPSPERSEC" 2.0)
     
136.                                     ("STEPSIZE" 6.0)
     
137.                                     ("STATUSBAR" 0)
     
138.                                     ("STARTUP" 0)
     
139.                                     ("STANDARDSVIOLATION" 2)
     
140.                                     ("SSMSHEETSTATUS" 2)
     
141.                                     ("SSMPOLLTIME" 60)
     
142.                                     ("SSMAUTOOPEN" 1)
     
143.                                     ("SSLOCATE" 1)
     
144.                                     ("SPLINETYPE" 6)
     
145.                                     ("SPLINESEGS" 8)
     
146.                                     ("SPLFRAME" 0)
     
147.                                     ("SORTENTS" 127)
     
148.                                     ("SOLIDHIST" 1)
     
149.                                     ("SOLIDCHECK" 1)
     
150.                                     ("SNAPUNIT" (0.5 0.5))
     
151.                                     ("SNAPTYPE" 0)
     
152.                                     ("SNAPSTYL" 0)
     
153.                                     ("SNAPMODE" 0)
     
154.                                     ("SNAPISOPAIR" 0)
     
155.                                     ("SNAPBASE" (0.0 0.0))
     
156.                                     ("SNAPANG" 0.0)
     
157.                                     ("SMOOTHMESHMAXLEV" 6)
     
158.                                     ("SMOOTHMESHMAXFACE" 1000000)
     
159.                                     ("SMOOTHMESHGRID" 3)
     
160.                                     ("SMOOTHMESHCONVERT" 0)
     
161.                                     ("SKPOLY" 0)
     
162.                                     ("SKETCHINC" 0.1)
     
163.                                     ("SIGWARN" 1)
     
164.                                     ("SHPNAME" "")
     
165.                                     ("SHOWLAYERUSAGE" 0)
     
166.                                     ("SHOWHIST" 1)
     
167.                                     ("SHORTCUTMENU" 11)
     
168.                                     ("SHADOWPLANELOCATION" 0.0)
     
169.                                     ("SHADEDIF" 70)
     
170.                                     ("SHADEDGE" 3)
     
171.                                     ("SETBYLAYERMODE" 127)
     
172.                                     ("SELECTIONPREVIEW" 3)
     
173.                                     ("SELECTIONAREAOPACITY" 25)
     
174.                                     ("SELECTIONAREA" 1)
     
175.                                     ("SELECTIONANNODISPLAY" 1)
     
176.                                     ("SECURELOAD" 1)
     
177.                                     ("SAVETIME" 10)
     
178.                                     ("SAVEFIDELITY" 1)
     
179.                                     ("RTDISPLAY" 1)
     
180.                                     ("REPORTERROR" 1)
     
181.                                     ("RENDERUSERLIGHTS" 1)
     
182.                                     ("REMEMBERFOLDERS" 1)
     
183.                                     ("RE-INIT" 0)
     
184.                                     ("REGENMODE" 1)
     
185.                                     ("RECOVERYMODE" 2)
     
186.                                     ("RASTERTHRESHOLD" 20)
     
187.                                     ("RASTERPREVIEW" 1)
     
188.                                     ("RASTERPERCENT" 20)
     
189.                                     ("RASTERDPI" 300)
     
190.                                     ("QTEXTMODE" 0)
     
191.                                     ("PUCSBASE" ".")
     
192.                                     ("PUBLISHHATCH" 1)
     
193.                                     ("PUBLISHCOLLATE" 1)
     
194.                                     ("PUBLISHALLSHEETS" 1)
     
195.                                     ("PSVPSCALE" 0.0)
     
196.                                     ("PSTYLEPOLICY" 1)
     
197.                                     ("PSOLWIDTH" 0.25)
     
198.                                     ("PSOLHEIGHT" 4.0)
     
199.                                     ("PSLTSCALE" 1)
     
200.                                     ("PROXYSHOW" 1)
     
201.                                     ("PROXYNOTICE" 1)
     
202.                                     ("PROXYGRAPHICS" 1)
     
203.                                     ("PROJMODE" 1)
     
204.                                     ("PROJECTNAME" ".")
     
205.                                     ("PREVIEWFILTER" 7)
     
206.                                     ("PREVIEWEFFECT" 2)
     
207.                                     ("POLYSIDES" 4)
     
208.                                     ("POLARMODE" 0)
     
209.                                     ("POLARDIST" 0.0)
     
210.                                     ("POLARANG" 90.0)
     
211.                                     ("POLARADDANG" "")
     
212.                                     ("PLQUIET" 0)
     
213.                                     ("PLOTROTMODE" 2)
     
214.                                     ("PLOTOFFSET" 0)
     
215.                                     ("PLINEWID" 0.0)
     
216.                                     ("PLINETYPE" 2)
     
217.                                     ("PLINEGEN" 0)
     
218.                                     ("PLINECONVERTMODE" 0)
     
219.                                     ("PICKSTYLE" 1)
     
220.                                     ("PICKFIRST" 1)
     
221.                                     ("PICKDRAG" 0)
     
222.                                     ("PICKBOX" 3)
     
223.                                     ("PICKAUTO" 1)
     
224.                                     ("PICKADD" 1)
     
225.                                     ("PERSPECTIVECLIP" 5.0)
     
226.                                     ("PERSPECTIVE" nil)
     
227.                                     ("PELLIPSE" 0)
     
228.                                     ("PEDITACCEPT" 0)
     
229.                                     ("PDSIZE" 0.0)
     
230.                                     ("PDMODE" 0)
     
231.                                     ("PAPERUPDATE" 0)
     
232.                                     ("PALETTEOPAQUE" 0)
     
233.                                     ("OSOPTIONS" 3)
     
234.                                     ("OSNAPZ" 0)
     
235.                                     ("OSNAPNODELEGACY" 0)
     
236.                                     ("OSNAPCOORD" 2)
     
237.                                     ("OSMODE" 37)
     
238.                                     ("ORTHOMODE" 0)
     
239.                                     ("OLESTARTUP" 0)
     
240.                                     ("OLEQUALITY" 3)
     
241.                                     ("OLEHIDE" 0)
     
242.                                     ("OLEFRAME" 2)
     
243.                                     ("OFFSETGAPTYPE" 0)
     
244.                                     ("OFFSETDIST" -1.0)
     
245.                                     ("OBSCUREDLTYPE" 0)
     
246.                                     ("OBSCUREDCOLOR" 257)
     
247.                                     ("NOMUTT" 0)
     
248.                                     ("NAVSWHEELSIZEMINI" 1)
     
249.                                     ("NAVSWHEELSIZEBIG" 1)
     
250.                                     ("NAVSWHEELOPACITYMINI" 50)
     
251.                                     ("NAVSWHEELOPACITYBIG" 50)
     
252.                                     ("NAVSWHEELMODE" 0)
     
253.                                     ("NAVVCUBESIZE" 4)
     
254.                                     ("NAVVCUBEOPACITY" 50)
     
255.                                     ("NAVVCUBELOCATION" 0)
     
256.                                     ("NAVVCUBEDISPLAY" 1)
     
257.                                     ("MTJIGSTRING" "abc")
     
258.                                     ("MTEXTTOOLBAR" 2)
     
259.                                     ("MTEXTFIXED" 2)
     
260.                                     ("MTEXTED" "Internal")
     
261.                                     ("MSLTSCALE" 1)
     
262.                                     ("MSOLESCALE" 1.0)
     
263.                                     ("MODEMACRO" "")
     
264.                                     ("MLEADERSCALE" 1)
     
265.                                     ("MIRRTEXT" 1)
     
266.                                     ("MESHTYPE" 1)
     
267.                                     ("MENUECHO" 0)
     
268.                                     ("MENUCTL" 1)
     
269.                                     ("MEASUREMENT" 0)
     
270.                                     ("MEASUREINIT" 0)
     
271.                                     ("MBUTTONPAN" 1)
     
272.                                     ("MAXSORT" 1000)
     
273.                                     ("MAXACTVP" 64)
     
274.                                     ("LWUNITS" 1)
     
275.                                     ("LWDISPLAY" 0)
     
276.                                     ("LWDEFAULT" 25)
     
277.                                     ("LUPREC" 4)
     
278.                                     ("LUNITS" 2)
     
279.                                     ("LTSCALE" 1.0)
     
280.                                     ("LONGITUDE" -122.394)
     
281.                                     ("LOGFILEMODE" 0)
     
282.                                     ("LOGEXPPHYSICALSCALE" 1500.0)
     
283.                                     ("LOGEXPMIDTONES" 1.0)
     
284.                                     ("LOGEXPDAYLIGHT" 2)
     
285.                                     ("LOGEXPCONTRAST" 50.0)
     
286.                                     ("LOGEXPBRIGHTNESS" 65.0)
     
287.                                     ("LOFTPARAM" 7)
     
288.                                     ("LOFTNORMALS" 1)
     
289.                                     ("LOFTMAG2" 0.0)
     
290.                                     ("LOFTMAG1" 0.0)
     
291.                                     ("LOFTANG2" 1.5708)
     
292.                                     ("LOFTANG1" 1.5708)
     
293.                                     ("LOCKUI" 0)
     
294.                                     ("LINEARCONTRAST" 0)
     
295.                                     ("LINEARBRIGHTNESS" 0)
     
296.                                     ("LIMMIN" (0.0 0.0))
     
297.                                     ("LIMMAX" (12.0 9.0))
     
298.                                     ("LIMCHECK" 0)
     
299.                                     ("LIGHTSINBLOCKS" 0)
     
300.                                     ("LIGHTINGUNITS" 0)
     
301.                                     ("LIGHTGLYPHDISPLAY" 1)
     
302.                                     ("LENSLENGTH" 50.0)
     
303.                                     ("LEGACYCTRLPICK" 0)
     
304.                                     ("LAYOUTREGENCTL" 2)
     
305.                                     ("LAYLOCKFADECTL" 50)
     
306.                                     ("LAYERNOTIFY" 15)
     
307.                                     ("LAYERFILTERALERT" 2)
     
308.                                     ("LAYEREVAL" 1)
     
309.                                     ("LASTPOINT" (0.0 0.0 0.0))
     
310.                                     ("ISOLINES" 8)
     
311.                                     ("ISAVEPERCENT" 50)
     
312.                                     ("ISAVEBAK" 1)
     
313.                                     ("INTERSECTIONDISPLAY" 0)
     
314.                                     ("INTERSECTIONCOLOR" 257)
     
315.                                     ("INTERFEREVPVS" "Wireframe")
     
316.                                     ("INTERFEREOBJVS" "Realistic")
     
317.                                     ("INTERFERECOLOR" "1")
     
318.                                     ("INTELLIGENTUPDATE" 20)
     
319.                                     ("INSUNITSDEFTARGET" 1)
     
320.                                     ("INSUNITSDEFSOURCE" 1)
     
321.                                     ("INSUNITS" 1)
     
322.                                     ("INSNAME" "")
     
323.                                     ("INSBASE" (0.0 0.0 0.0))
     
324.                                     ("INPUTHISTORYMODE" 15)
     
325.                                     ("INETLOCATION" "http://www.autodesk.com")
     
326.                                     ("INDEXCTL" 0)
     
327.                                     ("IMPLIEDFACE" 1)
     
328.                                     ("IMAGEHLT" 0)
     
329.                                     ("HYPERLINKBASE" "")
     
330.                                     ("HPSPACE" 1.0)
     
331.                                     ("HPSEPARATE" 0)
     
332.                                     ("HPSCALE" 1.0)
     
333.                                     ("HPORIGINMODE" 0)
     
334.                                     ("HPORIGIN" (0 0))
     
335.                                     ("HPOBJWARNING" 10000)
     
336.                                     ("HPNAME" "ANSI31")
     
337.                                     ("HPMAXLINES" 1000000)
     
338.                                     ("HPINHERIT" 0)
     
339.                                     ("HPGAPTOL" 0.0)
     
340.                                     ("HPDRAWORDER" 3)
     
341.                                     ("HPDOUBLE" 0)
     
342.                                     ("HPBOUND" 1)
     
343.                                     ("HPASSOC" 1)
     
344.                                     ("HPANG" 0.0)
     
345.                                     ("HIGHLIGHT" 1)
     
346.                                     ("HIDETEXT" 1)
     
347.                                     ("HIDEPRECISION" 0)
     
348.                                     ("HALOGAP" 0)
     
349.                                     ("GTLOCATION" 0)
     
350.                                     ("GTDEFAULT" 0)
     
351.                                     ("GTAUTO" 1)
     
352.                                     ("GRIPTIPS" 1)
     
353.                                     ("GRIPSUBOBJMODE" 1)
     
354.                                     ("GRIPSIZE" 5)
     
355.                                     ("GRIPS" 1)
     
356.                                     ("GRIPOBJLIMIT" 100)
     
357.                                     ("GRIPHOVER" 3)
     
358.                                     ("GRIPHOT" 1)
     
359.                                     ("GRIPDYNCOLOR" 140)
     
360.                                     ("GRIPCOLOR" 160)
     
361.                                     ("GRIPBLOCK" 0)
     
362.                                     ("GRIDUNIT" (0.5 0.5))
     
363.                                     ("GRIDMODE" 0)
     
364.                                     ("GRIDMAJOR" 5)
     
365.                                     ("GRIDDISPLAY" 2)
     
366.                                     ("FULLPLOTPATH" 1)
     
367.                                     ("FONTMAP" "acad.fmp")
     
368.                                     ("FONTALT" "simplex.shx")
     
369.                                     ("FILLMODE" 1)
     
370.                                     ("FILLETRAD" 0.0)
     
371.                                     ("FILEDIA" 1)
     
372.                                     ("FIELDEVAL" 31)
     
373.                                     ("FIELDDISPLAY" 1)
     
374.                                     ("FACETRES" 0.5)
     
375.                                     ("FACETRATIO" 0)
     
376.                                     ("FACETERSMOOTHLEV" 1)
     
377.                                     ("FACETERPRIMITIVEMODE" 1)
     
378.                                     ("FACETERMESHTYPE" 0)
     
379.                                     ("FACETERMINVGRID" 0)
     
380.                                     ("FACETERMINUGRID" 0)
     
381.                                     ("FACETERMAXGRID" 4096)
     
382.                                     ("FACETERMAXEDGELENGTH" 0)
     
383.                                     ("FACETERGRIDRATIO" 0)
     
384.                                     ("FACETERDEVSURFACE" 0.001)
     
385.                                     ("FACETERDEVNORMAL" 0.698132)
     
386.                                     ("EXTNAMES" 1)
     
387.                                     ("EXPLMODE" 1)
     
388.                                     ("EXPERT" 0)
     
389.                                     ("ELEVATION" 0.0)
     
390.                                     ("EDGEMODE" 0)
     
391.                                     ("DYNTOOLTIPS" 1)
     
392.                                     ("DYNPROMPT" 1)
     
393.                                     ("DYNPIVIS" 1)
     
394.                                     ("DYNPIFORMAT" 0)
     
395.                                     ("DYNPICOORDS" 0)
     
396.                                     ("DYNMODE" 3)
     
397.                                     ("DYNDIVIS" 1)
     
398.                                     ("DYNDIGRIP" 31)
     
399.                                     ("DXEVAL" 12)
     
400.                                     ("DWGCHECK" 1)
     
401.                                     ("DWFOSNAP" 1)
     
402.                                     ("DWFFRAME" 2)
     
403.                                     ("DTEXTED" 2)
     
404.                                     ("DRAWORDERCTL" 3)
     
405.                                     ("DRAGVS" ".")
     
406.                                     ("DRAGP2" 25)
     
407.                                     ("DRAGP1" 10)
     
408.                                     ("DRAGMODE" 2)
     
409.                                     ("DONUTOD" 1.0)
     
410.                                     ("DONUTID" 0.5)
     
411.                                     ("DIVMESHTORUSSECTION" 8)
     
412.                                     ("DIVMESHTORUSPATH" 8)
     
413.                                     ("DIVMESHWEDGEBASE" 3)
     
414.                                     ("DIVMESHWEDGESLOPE" 3)
     
415.                                     ("DIVMESHWEDGEHEIGHT" 3)
     
416.                                     ("DIVMESHWEDGEWIDTH" 3)
     
417.                                     ("DIVMESHWEDGELENGTH" 4)
     
418.                                     ("DIVMESHSPHEREHEIGHT" 6)
     
419.                                     ("DIVMESHSPHEREAXIS" 12)
     
420.                                     ("DIVMESHPYRHEIGHT" 3)
     
421.                                     ("DIVMESHPYRBASE" 3)
     
422.                                     ("DIVMESHPYRLENGTH" 3)
     
423.                                     ("DIVMESHCYLHEIGHT" 3)
     
424.                                     ("DIVMESHCYLBASE" 3)
     
425.                                     ("DIVMESHCYLAXIS" 8)
     
426.                                     ("DIVMESHCONEHEIGHT" 3)
     
427.                                     ("DIVMESHCONEBASE" 3)
     
428.                                     ("DIVMESHCONEAXIS" 8)
     
429.                                     ("DIVMESHBOXHEIGHT" 3)
     
430.                                     ("DIVMESHBOXWIDTH" 3)
     
431.                                     ("DIVMESHBOXLENGTH" 3)
     
432.                                     ("DISPSILH" 0)
     
433.                                     ("DIMZIN" 0)
     
434.                                     ("DIMUPT" 0)
     
435.                                     ("DIMTZIN" 0)
     
436.                                     ("DIMTXT" 0.18)
     
437.                                     ("DIMTXSTY" "Standard")
     
438.                                     ("DIMTVP" 0.0)
     
439.                                     ("DIMTSZ" 0.0)
     
440.                                     ("DIMTP" 0.0)
     
441.                                     ("DIMTOLJ" 1)
     
442.                                     ("DIMTOL" 0)
     
443.                                     ("DIMTOH" 1)
     
444.                                     ("DIMTOFL" 0)
     
445.                                     ("DIMTMOVE" 0)
     
446.                                     ("DIMTM" 0.0)
     
447.                                     ("DIMTIX" 0)
     
448.                                     ("DIMTIH" 1)
     
449.                                     ("DIMTFILLCLR" 0)
     
450.                                     ("DIMTFILL" 0)
     
451.                                     ("DIMTFAC" 1.0)
     
452.                                     ("DIMTDEC" 4)
     
453.                                     ("DIMTAD" 0)
     
454.                                     ("DIMSOXD" 0)
     
455.                                     ("DIMSE2" 0)
     
456.                                     ("DIMSE1" 0)
     
457.                                     ("DIMSD2" 0)
     
458.                                     ("DIMSD1" 0)
     
459.                                     ("DIMSCALE" 1.0)
     
460.                                     ("DIMSAH" 0)
     
461.                                     ("DIMRND" 0.0)
     
462.                                     ("DIMPOST" "")
     
463.                                     ("DIMLWE" -2)
     
464.                                     ("DIMLWD" -2)
     
465.                                     ("DIMLUNIT" 2)
     
466.                                     ("DIMLTYPE" ".")
     
467.                                     ("DIMLTEX2" ".")
     
468.                                     ("DIMLTEX1" ".")
     
469.                                     ("DIMLIM" 0)
     
470.                                     ("DIMLFAC" 1.0)
     
471.                                     ("DIMLDRBLK" "")
     
472.                                     ("DIMJUST" 0)
     
473.                                     ("DIMJOGANG" 0.785398)
     
474.                                     ("DIMGAP" 0.09)
     
475.                                     ("DIMFXLON" 0)
     
476.                                     ("DIMFXL" 1.0)
     
477.                                     ("DIMFRAC" 0)
     
478.                                     ("DIMFIT" 3)
     
479.                                     ("DIMEXO" 0.0625)
     
480.                                     ("DIMEXE" 0.18)
     
481.                                     ("DIMDSEP" ".")
     
482.                                     ("DIMDLI" 0.38)
     
483.                                     ("DIMDLE" 0.0)
     
484.                                     ("DIMDEC" 4)
     
485.                                     ("DIMCONTINUEMODE" 1)
     
486.                                     ("DIMCLRT" 0)
     
487.                                     ("DIMCLRE" 0)
     
488.                                     ("DIMCLRD" 0)
     
489.                                     ("DIMCEN" 0.09)
     
490.                                     ("DIMBLK2" "")
     
491.                                     ("DIMBLK1" "")
     
492.                                     ("DIMBLK" "")
     
493.                                     ("DIMAZIN" 0)
     
494.                                     ("DIMAUNIT" 0)
     
495.                                     ("DIMATFIT" 3)
     
496.                                     ("DIMASZ" 0.18)
     
497.                                     ("DIMASSOC" 2)
     
498.                                     ("DIMARCSYM" 0)
     
499.                                     ("DIMAPOST" "")
     
500.                                     ("DIMALTZ" 0)
     
501.                                     ("DIMALTU" 2)
     
502.                                     ("DIMALTTZ" 0)
     
503.                                     ("DIMALTTD" 2)
     
504.                                     ("DIMALTRND" 0.0)
     
505.                                     ("DIMALTF" 25.4)
     
506.                                     ("DIMALTD" 2)
     
507.                                     ("DIMALT" 0)
     
508.                                     ("DIMADEC" 0)
     
509.                                     ("DGNOSNAP" 1)
     
510.                                     ("DGNFRAME" 0)
     
511.                                     ("DEMANDLOAD" 3)
     
512.                                     ("DELOBJ" 1)
     
513.                                     ("DEFAULTLIGHTINGTYPE" 1)
     
514.                                     ("DEFAULTLIGHTING" 1)
     
515.                                     ("DEFAULTGIZMO" 0)
     
516.                                     ("DBLCLKEDIT" 1)
     
517.                                     ("DATALINKNOTIFY" 2)
     
518.                                     ("CVPORT" 2)
     
519.                                     ("CURSORSIZE" 5)
     
520.                                     ("CTABLESTYLE" "Standard")
     
521.                                     ("CSHADOW" 0)
     
522.                                     ("CROSSINGAREACOLOR" 3)
     
523.                                     ("COPYMODE" 0)
     
524.                                     ("COORDS" 1)
     
525.                                     ("CONSTRAINTINFER" 0)
     
526.                                     ("COMPASS" 0)
     
527.                                     ("CMLSTYLE" "Standard")
     
528.                                     ("CMLSCALE" 1.0)
     
529.                                     ("CMLJUST" 0)
     
530.                                     ("CMLEADERSTYLE" "Standard")
     
531.                                     ("CMDINPUTHISTORYMAX" 20)
     
532.                                     ("CMDECHO" 1)
     
533.                                     ("CMDDIA" 1)
     
534.                                     ("CMATERIAL" "ByLayer")
     
535.                                     ("CLAYER" "0")
     
536.                                     ("CIRCLERAD" 0.0)
     
537.                                     ("CHAMMODE" 0)
     
538.                                     ("CHAMFERD" 0.0)
     
539.                                     ("CHAMFERC" 0.0)
     
540.                                     ("CHAMFERB" 0.0)
     
541.                                     ("CHAMFERA" 0.0)
     
542.                                     ("CENTERMT" 0)
     
543.                                     ("CELWEIGHT" -1)
     
544.                                     ("CELTYPE" "ByLayer")
     
545.                                     ("CELTSCALE" 1.0)
     
546.                                     ("CECOLOR" "ByLayer")
     
547.                                     ("CANNOSCALE" "1:1")
     
548.                                     ("CAMERAHEIGHT" 0)
     
549.                                     ("CAMERADISPLAY" 0)
     
550.                                     ("CALCINPUT" 1)
     
551.                                     ("BVMODE" 0)
     
552.                                     ("BTMARKDISPLAY" 1)
     
553.                                     ("BPTEXTHORIZONTAL" 1)
     
554.                                     ("BPARAMETERSIZE" 12)
     
555.                                     ("BPARAMETERFONT" "Simplex.shx")
     
556.                                     ("BPARAMETERCOLOR" "7")
     
557.                                     ("BLOCKEDITLOCK" 0)
     
558.                                     ("BLIPMODE" 0)
     
559.                                     ("BINDTYPE" 0)
     
560.                                     ("BGRIPOBJSIZE" 8)
     
561.                                     ("BGRIPOBJCOLOR" "141")
     
562.                                     ("BDEPENDENCYHIGHLIGHT" 1)
     
563.                                     ("BCONSTATUSMODE" 1)
     
564.                                     ("BACTIONBARMODE" 1)
     
565.                                     ("BACTIONCOLOR" "7")
     
566.                                     ("BACKGROUNDPLOT" 2)
     
567.                                     ("AUTOSNAP" 63)
     
568.                                     ("AUTOMATICPUB" 0)
     
569.                                     ("AUPREC" 0)
     
570.                                     ("AUNITS" 0)
     
571.                                     ("AUDITCTL" 0)
     
572.                                     ("ATTREQ" 1)
     
573.                                     ("ATTMULTI" 1)
     
574.                                     ("ATTMODE" 1)
     
575.                                     ("ATTIPE" 0)
     
576.                                     ("ATTDIA" 0)
     
577.                                     ("APERTURE" 10)
     
578.                                     ("APBOX" 0)
     
579.                                     ("ANNOTATIVEDWG" 0)
     
580.                                     ("ANNOAUTOSCALE" -4)
     
581.                                     ("ANNOALLVISIBLE" 1)
     
582.                                     ("ANGDIR" 0)
     
583.                                     ("ANGBASE" 0.0)
     
584.                                     ("AFLAGS" 16)
     
585.                                     ("ACTUI" 6)
     
586.                                     ("ACTPATH" "")
     
587.                                     ("ACADLSPASDOC" 0)
     
588.                                     ("3DSELECTIONMODE" 1)
     
589.                                     ("3DCONVERSIONMODE" 1)
     
590.                                     ("3DDWFPREC" 2)
     
591.                                 )
     
592.                             )
     
593.                         )
     
594.                     )
     
595.                 )
     
596.             )
     
597.             " of "
     
598.             (itoa (length lst))
     
599.             " system variables set."
     
600.         )
     
601.     )
     
602.     (princ)
     
603. )

(defun once->init ( / lst )<br />     (princ<br />         (strcat "\n"<br />             (itoa<br />                 (length<br />                     (vl-remove-if 'null<br />                         (mapcar<br />                             (function<br />                                 (lambda ( pair / err )<br />                                     (if (getvar (car pair))<br />                                         (if (vl-catch-all-error-p (setq err (vl-catch-all-apply 'setvar pair)))<br />                                             (prompt<br />                                                 (strcat<br />                                                     "\nError setting system variable "<br />                                                     (vl-prin1-to-string (car pair))<br />                                                     ": "<br />                                                     (vl-catch-all-error-message err)<br />                                                 )<br />                                             )<br />                                             t<br />                                         )<br />                                     )<br />                                 )<br />                             )<br />                             (setq lst<br />                                '(<br />                                     ("ZOOMWHEEL" 0)<br />                                     ("ZOOMFACTOR" 60)<br />                                     ("XREFTYPE" 0)<br />                                     ("XREFNOTIFY" 2)<br />                                     ("XREFCTL" 0)<br />                                     ("XLOADCTL" 2)<br />                                     ("XFADECTL" 50)<br />                                     ("XEDIT" 1)<br />                                     ("XCLIPFRAME" 0)<br />                                     ("WORLDVIEW" 1)<br />                                     ("WMFFOREGND" 0)<br />                                     ("WMFBKGND" 0)<br />                                     ("WINDOWAREACOLOR" 5)<br />                                     ("WHIPTHREAD" 1)<br />                                     ("WHIPARC" 0)<br />                                     ("VTFPS" 7)<br />                                     ("VTENABLE" 3)<br />                                     ("VTDURATION" 750)<br />                                     ("VSSILHWIDTH" 5)<br />                                     ("VSSILHEDGES" 0)<br />                                     ("VSSHADOWS" 0)<br />                                     ("VSOBSCUREDLTYPE" 1)<br />                                     ("VSOBSCUREDEDGES" 0)<br />                                     ("VSOBSCUREDCOLOR" "ByEntity")<br />                                     ("VSMONOCOLOR" "255,255,255")<br />                                     ("VSMATERIALMODE" 0)<br />                                     ("VSLIGHTINGQUALITY" 1)<br />                                     ("VSISOONTOP" 0)<br />                                     ("VSINTERSECTIONLTYPE" 1)<br />                                     ("VSINTERSECTIONEDGES" 0)<br />                                     ("VSINTERSECTIONCOLOR" "7")<br />                                     ("VSHIDEPRECISION" 0)<br />                                     ("VSHALOGAP" 0)<br />                                     ("VSFACESTYLE" 1)<br />                                     ("VSFACEOPACITY" -60)<br />                                     ("VSFACEHIGHLIGHT" -30)<br />                                     ("VSFACECOLORMODE" 0)<br />                                     ("VSEDGESMOOTH" 1)<br />                                     ("VSEDGES" 1)<br />                                     ("VSEDGEOVERHANG" -6)<br />                                     ("VSEDGEJITTER" -2)<br />                                     ("VSEDGECOLOR" "ByEntity")<br />                                     ("VSBACKGROUNDS" 1)<br />                                     ("VPLAYEROVERRIDESMODE" 1)<br />                                     ("VISRETAIN" 1)<br />                                     ("USERS5" "")<br />                                     ("USERS4" "")<br />                                     ("USERS3" "")<br />                                     ("USERS2" "")<br />                                     ("USERS1" "")<br />                                     ("USERR5" 0.0)<br />                                     ("USERR4" 0.0)<br />                                     ("USERR3" 0.0)<br />                                     ("USERR2" 0.0)<br />                                     ("USERR1" 0.0)<br />                                     ("USERI5" 0)<br />                                     ("USERI4" 0)<br />                                     ("USERI3" 0)<br />                                     ("USERI2" 0)<br />                                     ("USERI1" 0)<br />                                     ("UPDATETHUMBNAIL" 15)<br />                                     ("UNITMODE" 0)<br />                                     ("UCSVP" 1)<br />                                     ("UCSVIEW" 1)<br />                                     ("UCSORTHO" 1)<br />                                     ("UCSICON" 3)<br />                                     ("UCSFOLLOW" 0)<br />                                     ("UCSDETECT" 1)<br />                                     ("UCSBASE" ".")<br />                                     ("UCSAXISANG" 1.5708)<br />                                     ("TSTACKSIZE" 70)<br />                                     ("TSTACKALIGN" 1)<br />                                     ("TSPACETYPE" 1)<br />                                     ("TSPACEFAC" 1.0)<br />                                     ("TRUSTEDPATHS" "")<br />                                     ("TRUSTEDDOMAINS" "*.autodesk.com;*.autodeskbutterfly.com;*.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>ws.com")<br />                                     ("TRIMMODE" 1)<br />                                     ("TREEMAX" 10000000)<br />                                     ("TREEDEPTH" 3020)<br />                                     ("TRAYTIMEOUT" 0)<br />                                     ("TRAYNOTIFY" 1)<br />                                     ("TRAYICONS" 1)<br />                                     ("TRACKPATH" 0)<br />                                     ("TRACEWID" 0.05)<br />                                     ("TOOLTIPS" 1)<br />                                     ("TOOLTIPMERGE" 0)<br />                                     ("TIMEZONE" -8000)<br />                                     ("TILEMODE" 1)<br />                                     ("THICKNESS" 0.0)<br />                                     ("TEXTSTYLE" "Standard")<br />                                     ("TEXTSIZE" 0.2)<br />                                     ("TEXTQLTY" 50)<br />                                     ("TEXTOUTPUTFILEFORMAT" 0)<br />                                     ("TEXTFILL" 1)<br />                                     ("TEXTEVAL" 0)<br />                                     ("TEMPOVERRIDES" 1)<br />                                     ("TBCUSTOMIZE" 1)<br />                                     ("TABMODE" 0)<br />                                     ("TABLETOOLBAR" 2)<br />                                     ("TABLEINDICATOR" 1)<br />                                     ("SURFV" 6)<br />                                     ("SURFU" 6)<br />                                     ("SURFTYPE" 6)<br />                                     ("SURFTAB2" 6)<br />                                     ("SURFTAB1" 6)<br />                                     ("SUNSTATUS" 1.0)<br />                                     ("SUBOBJSELECTIONMODE" 0)<br />                                     ("STEPSPERSEC" 2.0)<br />                                     ("STEPSIZE" 6.0)<br />                                     ("STATUSBAR" 0)<br />                                     ("STARTUP" 0)<br />                                     ("STANDARDSVIOLATION" 2)<br />                                     ("SSMSHEETSTATUS" 2)<br />                                     ("SSMPOLLTIME" 60)<br />                                     ("SSMAUTOOPEN" 1)<br />                                     ("SSLOCATE" 1)<br />                                     ("SPLINETYPE" 6)<br />                                     ("SPLINESEGS" 8)<br />                                     ("SPLFRAME" 0)<br />                                     ("SORTENTS" 127)<br />                                     ("SOLIDHIST" 1)<br />                                     ("SOLIDCHECK" 1)<br />                                     ("SNAPUNIT" (0.5 0.5))<br />                                     ("SNAPTYPE" 0)<br />                                     ("SNAPSTYL" 0)<br />                                     ("SNAPMODE" 0)<br />                                     ("SNAPISOPAIR" 0)<br />                                     ("SNAPBASE" (0.0 0.0))<br />                                     ("SNAPANG" 0.0)<br />                                     ("SMOOTHMESHMAXLEV" 6)<br />                                     ("SMOOTHMESHMAXFACE" 1000000)<br />                                     ("SMOOTHMESHGRID" 3)<br />                                     ("SMOOTHMESHCONVERT" 0)<br />                                     ("SKPOLY" 0)<br />                                     ("SKETCHINC" 0.1)<br />                                     ("SIGWARN" 1)<br />                                     ("SHPNAME" "")<br />                                     ("SHOWLAYERUSAGE" 0)<br />                                     ("SHOWHIST" 1)<br />                                     ("SHORTCUTMENU" 11)<br />                                     ("SHADOWPLANELOCATION" 0.0)<br />                                     ("SHADEDIF" 70)<br />                                     ("SHADEDGE" 3)<br />                                     ("SETBYLAYERMODE" 127)<br />                                     ("SELECTIONPREVIEW" 3)<br />                                     ("SELECTIONAREAOPACITY" 25)<br />                                     ("SELECTIONAREA" 1)<br />                                     ("SELECTIONANNODISPLAY" 1)<br />                                     ("SECURELOAD" 1)<br />                                     ("SAVETIME" 10)<br />                                     ("SAVEFIDELITY" 1)<br />                                     ("RTDISPLAY" 1)<br />                                     ("REPORTERROR" 1)<br />                                     ("RENDERUSERLIGHTS" 1)<br />                                     ("REMEMBERFOLDERS" 1)<br />                                     ("RE-INIT" 0)<br />                                     ("REGENMODE" 1)<br />                                     ("RECOVERYMODE" 2)<br />                                     ("RASTERTHRESHOLD" 20)<br />                                     ("RASTERPREVIEW" 1)<br />                                     ("RASTERPERCENT" 20)<br />                                     ("RASTERDPI" 300)<br />                                     ("QTEXTMODE" 0)<br />                                     ("PUCSBASE" ".")<br />                                     ("PUBLISHHATCH" 1)<br />                                     ("PUBLISHCOLLATE" 1)<br />                                     ("PUBLISHALLSHEETS" 1)<br />                                     ("PSVPSCALE" 0.0)<br />                                     ("PSTYLEPOLICY" 1)<br />                                     ("PSOLWIDTH" 0.25)<br />                                     ("PSOLHEIGHT" 4.0)<br />                                     ("PSLTSCALE" 1)<br />                                     ("PROXYSHOW" 1)<br />                                     ("PROXYNOTICE" 1)<br />                                     ("PROXYGRAPHICS" 1)<br />                                     ("PROJMODE" 1)<br />                                     ("PROJECTNAME" ".")<br />                                     ("PREVIEWFILTER" 7)<br />                                     ("PREVIEWEFFECT" 2)<br />                                     ("POLYSIDES" 4)<br />                                     ("POLARMODE" 0)<br />                                     ("POLARDIST" 0.0)<br />                                     ("POLARANG" 90.0)<br />                                     ("POLARADDANG" "")<br />                                     ("PLQUIET" 0)<br />                                     ("PLOTROTMODE" 2)<br />                                     ("PLOTOFFSET" 0)<br />                                     ("PLINEWID" 0.0)<br />                                     ("PLINETYPE" 2)<br />                                     ("PLINEGEN" 0)<br />                                     ("PLINECONVERTMODE" 0)<br />                                     ("PICKSTYLE" 1)<br />                                     ("PICKFIRST" 1)<br />                                     ("PICKDRAG" 0)<br />                                     ("PICKBOX" 3)<br />                                     ("PICKAUTO" 1)<br />                                     ("PICKADD" 1)<br />                                     ("PERSPECTIVECLIP" 5.0)<br />                                     ("PERSPECTIVE" nil)<br />                                     ("PELLIPSE" 0)<br />                                     ("PEDITACCEPT" 0)<br />                                     ("PDSIZE" 0.0)<br />                                     ("PDMODE" 0)<br />                                     ("PAPERUPDATE" 0)<br />                                     ("PALETTEOPAQUE" 0)<br />                                     ("OSOPTIONS" 3)<br />                                     ("OSNAPZ" 0)<br />                                     ("OSNAPNODELEGACY" 0)<br />                                     ("OSNAPCOORD" 2)<br />                                     ("OSMODE" 37)<br />                                     ("ORTHOMODE" 0)<br />                                     ("OLESTARTUP" 0)<br />                                     ("OLEQUALITY" 3)<br />                                     ("OLEHIDE" 0)<br />                                     ("OLEFRAME" 2)<br />                                     ("OFFSETGAPTYPE" 0)<br />                                     ("OFFSETDIST" -1.0)<br />                                     ("OBSCUREDLTYPE" 0)<br />                                     ("OBSCUREDCOLOR" 257)<br />                                     ("NOMUTT" 0)<br />                                     ("NAVSWHEELSIZEMINI" 1)<br />                                     ("NAVSWHEELSIZEBIG" 1)<br />                                     ("NAVSWHEELOPACITYMINI" 50)<br />                                     ("NAVSWHEELOPACITYBIG" 50)<br />                                     ("NAVSWHEELMODE" 0)<br />                                     ("NAVVCUBESIZE" 4)<br />                                     ("NAVVCUBEOPACITY" 50)<br />                                     ("NAVVCUBELOCATION" 0)<br />                                     ("NAVVCUBEDISPLAY" 1)<br />                                     ("MTJIGSTRING" "abc")<br />                                     ("MTEXTTOOLBAR" 2)<br />                                     ("MTEXTFIXED" 2)<br />                                     ("MTEXTED" "Internal")<br />                                     ("MSLTSCALE" 1)<br />                                     ("MSOLESCALE" 1.0)<br />                                     ("MODEMACRO" "")<br />                                     ("MLEADERSCALE" 1)<br />                                     ("MIRRTEXT" 1)<br />                                     ("MESHTYPE" 1)<br />                                     ("MENUECHO" 0)<br />                                     ("MENUCTL" 1)<br />                                     ("MEASUREMENT" 0)<br />                                     ("MEASUREINIT" 0)<br />                                     ("MBUTTONPAN" 1)<br />                                     ("MAXSORT" 1000)<br />                                     ("MAXACTVP" 64)<br />                                     ("LWUNITS" 1)<br />                                     ("LWDISPLAY" 0)<br />                                     ("LWDEFAULT" 25)<br />                                     ("LUPREC" 4)<br />                                     ("LUNITS" 2)<br />                                     ("LTSCALE" 1.0)<br />                                     ("LONGITUDE" -122.394)<br />                                     ("LOGFILEMODE" 0)<br />                                     ("LOGEXPPHYSICALSCALE" 1500.0)<br />                                     ("LOGEXPMIDTONES" 1.0)<br />                                     ("LOGEXPDAYLIGHT" 2)<br />                                     ("LOGEXPCONTRAST" 50.0)<br />                                     ("LOGEXPBRIGHTNESS" 65.0)<br />                                     ("LOFTPARAM" 7)<br />                                     ("LOFTNORMALS" 1)<br />                                     ("LOFTMAG2" 0.0)<br />                                     ("LOFTMAG1" 0.0)<br />                                     ("LOFTANG2" 1.5708)<br />                                     ("LOFTANG1" 1.5708)<br />                                     ("LOCKUI" 0)<br />                                     ("LINEARCONTRAST" 0)<br />                                     ("LINEARBRIGHTNESS" 0)<br />                                     ("LIMMIN" (0.0 0.0))<br />                                     ("LIMMAX" (12.0 9.0))<br />                                     ("LIMCHECK" 0)<br />                                     ("LIGHTSINBLOCKS" 0)<br />                                     ("LIGHTINGUNITS" 0)<br />                                     ("LIGHTGLYPHDISPLAY" 1)<br />                                     ("LENSLENGTH" 50.0)<br />                                     ("LEGACYCTRLPICK" 0)<br />                                     ("LAYOUTREGENCTL" 2)<br />                                     ("LAYLOCKFADECTL" 50)<br />                                     ("LAYERNOTIFY" 15)<br />                                     ("LAYERFILTERALERT" 2)<br />                                     ("LAYEREVAL" 1)<br />                                     ("LASTPOINT" (0.0 0.0 0.0))<br />                                     ("ISOLINES" 8)<br />                                     ("ISAVEPERCENT" 50)<br />                                     ("ISAVEBAK" 1)<br />                                     ("INTERSECTIONDISPLAY" 0)<br />                                     ("INTERSECTIONCOLOR" 257)<br />                                     ("INTERFEREVPVS" "Wireframe")<br />                                     ("INTERFEREOBJVS" "Realistic")<br />                                     ("INTERFERECOLOR" "1")<br />                                     ("INTELLIGENTUPDATE" 20)<br />                                     ("INSUNITSDEFTARGET" 1)<br />                                     ("INSUNITSDEFSOURCE" 1)<br />                                     ("INSUNITS" 1)<br />                                     ("INSNAME" "")<br />                                     ("INSBASE" (0.0 0.0 0.0))<br />                                     ("INPUTHISTORYMODE" 15)<br />                                     ("INETLOCATION" "http://www.autodesk.com")<br />                                     ("INDEXCTL" 0)<br />                                     ("IMPLIEDFACE" 1)<br />                                     ("IMAGEHLT" 0)<br />                                     ("HYPERLINKBASE" "")<br />                                     ("HPSPACE" 1.0)<br />                                     ("HPSEPARATE" 0)<br />                                     ("HPSCALE" 1.0)<br />                                     ("HPORIGINMODE" 0)<br />                                     ("HPORIGIN" (0 0))<br />                                     ("HPOBJWARNING" 10000)<br />                                     ("HPNAME" "ANSI31")<br />                                     ("HPMAXLINES" 1000000)<br />                                     ("HPINHERIT" 0)<br />                                     ("HPGAPTOL" 0.0)<br />                                     ("HPDRAWORDER" 3)<br />                                     ("HPDOUBLE" 0)<br />                                     ("HPBOUND" 1)<br />                                     ("HPASSOC" 1)<br />                                     ("HPANG" 0.0)<br />                                     ("HIGHLIGHT" 1)<br />                                     ("HIDETEXT" 1)<br />                                     ("HIDEPRECISION" 0)<br />                                     ("HALOGAP" 0)<br />                                     ("GTLOCATION" 0)<br />                                     ("GTDEFAULT" 0)<br />                                     ("GTAUTO" 1)<br />                                     ("GRIPTIPS" 1)<br />                                     ("GRIPSUBOBJMODE" 1)<br />                                     ("GRIPSIZE" 5)<br />                                     ("GRIPS" 1)<br />                                     ("GRIPOBJLIMIT" 100)<br />                                     ("GRIPHOVER" 3)<br />                                     ("GRIPHOT" 1)<br />                                     ("GRIPDYNCOLOR" 140)<br />                                     ("GRIPCOLOR" 160)<br />                                     ("GRIPBLOCK" 0)<br />                                     ("GRIDUNIT" (0.5 0.5))<br />                                     ("GRIDMODE" 0)<br />                                     ("GRIDMAJOR" 5)<br />                                     ("GRIDDISPLAY" 2)<br />                                     ("FULLPLOTPATH" 1)<br />                                     ("FONTMAP" "acad.fmp")<br />                                     ("FONTALT" "simplex.shx")<br />                                     ("FILLMODE" 1)<br />                                     ("FILLETRAD" 0.0)<br />                                     ("FILEDIA" 1)<br />                                     ("FIELDEVAL" 31)<br />                                     ("FIELDDISPLAY" 1)<br />                                     ("FACETRES" 0.5)<br />                                     ("FACETRATIO" 0)<br />                                     ("FACETERSMOOTHLEV" 1)<br />                                     ("FACETERPRIMITIVEMODE" 1)<br />                                     ("FACETERMESHTYPE" 0)<br />                                     ("FACETERMINVGRID" 0)<br />                                     ("FACETERMINUGRID" 0)<br />                                     ("FACETERMAXGRID" 4096)<br />                                     ("FACETERMAXEDGELENGTH" 0)<br />                                     ("FACETERGRIDRATIO" 0)<br />                                     ("FACETERDEVSURFACE" 0.001)<br />                                     ("FACETERDEVNORMAL" 0.698132)<br />                                     ("EXTNAMES" 1)<br />                                     ("EXPLMODE" 1)<br />                                     ("EXPERT" 0)<br />                                     ("ELEVATION" 0.0)<br />                                     ("EDGEMODE" 0)<br />                                     ("DYNTOOLTIPS" 1)<br />                                     ("DYNPROMPT" 1)<br />                                     ("DYNPIVIS" 1)<br />                                     ("DYNPIFORMAT" 0)<br />                                     ("DYNPICOORDS" 0)<br />                                     ("DYNMODE" 3)<br />                                     ("DYNDIVIS" 1)<br />                                     ("DYNDIGRIP" 31)<br />                                     ("DXEVAL" 12)<br />                                     ("DWGCHECK" 1)<br />                                     ("DWFOSNAP" 1)<br />                                     ("DWFFRAME" 2)<br />                                     ("DTEXTED" 2)<br />                                     ("DRAWORDERCTL" 3)<br />                                     ("DRAGVS" ".")<br />                                     ("DRAGP2" 25)<br />                                     ("DRAGP1" 10)<br />                                     ("DRAGMODE" 2)<br />                                     ("DONUTOD" 1.0)<br />                                     ("DONUTID" 0.5)<br />                                     ("DIVMESHTORUSSECTION" 8)<br />                                     ("DIVMESHTORUSPATH" 8)<br />                                     ("DIVMESHWEDGEBASE" 3)<br />                                     ("DIVMESHWEDGESLOPE" 3)<br />                                     ("DIVMESHWEDGEHEIGHT" 3)<br />                                     ("DIVMESHWEDGEWIDTH" 3)<br />                                     ("DIVMESHWEDGELENGTH" 4)<br />                                     ("DIVMESHSPHEREHEIGHT" 6)<br />                                     ("DIVMESHSPHEREAXIS" 12)<br />                                     ("DIVMESHPYRHEIGHT" 3)<br />                                     ("DIVMESHPYRBASE" 3)<br />                                     ("DIVMESHPYRLENGTH" 3)<br />                                     ("DIVMESHCYLHEIGHT" 3)<br />                                     ("DIVMESHCYLBASE" 3)<br />                                     ("DIVMESHCYLAXIS" 8)<br />                                     ("DIVMESHCONEHEIGHT" 3)<br />                                     ("DIVMESHCONEBASE" 3)<br />                                     ("DIVMESHCONEAXIS" 8)<br />                                     ("DIVMESHBOXHEIGHT" 3)<br />                                     ("DIVMESHBOXWIDTH" 3)<br />                                     ("DIVMESHBOXLENGTH" 3)<br />                                     ("DISPSILH" 0)<br />                                     ("DIMZIN" 0)<br />                                     ("DIMUPT" 0)<br />                                     ("DIMTZIN" 0)<br />                                     ("DIMTXT" 0.18)<br />                                     ("DIMTXSTY" "Standard")<br />                                     ("DIMTVP" 0.0)<br />                                     ("DIMTSZ" 0.0)<br />                                     ("DIMTP" 0.0)<br />                                     ("DIMTOLJ" 1)<br />                                     ("DIMTOL" 0)<br />                                     ("DIMTOH" 1)<br />                                     ("DIMTOFL" 0)<br />                                     ("DIMTMOVE" 0)<br />                                     ("DIMTM" 0.0)<br />                                     ("DIMTIX" 0)<br />                                     ("DIMTIH" 1)<br />                                     ("DIMTFILLCLR" 0)<br />                                     ("DIMTFILL" 0)<br />                                     ("DIMTFAC" 1.0)<br />                                     ("DIMTDEC" 4)<br />                                     ("DIMTAD" 0)<br />                                     ("DIMSOXD" 0)<br />                                     ("DIMSE2" 0)<br />                                     ("DIMSE1" 0)<br />                                     ("DIMSD2" 0)<br />                                     ("DIMSD1" 0)<br />                                     ("DIMSCALE" 1.0)<br />                                     ("DIMSAH" 0)<br />                                     ("DIMRND" 0.0)<br />                                     ("DIMPOST" "")<br />                                     ("DIMLWE" -2)<br />                                     ("DIMLWD" -2)<br />                                     ("DIMLUNIT" 2)<br />                                     ("DIMLTYPE" ".")<br />                                     ("DIMLTEX2" ".")<br />                                     ("DIMLTEX1" ".")<br />                                     ("DIMLIM" 0)<br />                                     ("DIMLFAC" 1.0)<br />                                     ("DIMLDRBLK" "")<br />                                     ("DIMJUST" 0)<br />                                     ("DIMJOGANG" 0.785398)<br />                                     ("DIMGAP" 0.09)<br />                                     ("DIMFXLON" 0)<br />                                     ("DIMFXL" 1.0)<br />                                     ("DIMFRAC" 0)<br />                                     ("DIMFIT" 3)<br />                                     ("DIMEXO" 0.0625)<br />                                     ("DIMEXE" 0.18)<br />                                     ("DIMDSEP" ".")<br />                                     ("DIMDLI" 0.38)<br />                                     ("DIMDLE" 0.0)<br />                                     ("DIMDEC" 4)<br />                                     ("DIMCONTINUEMODE" 1)<br />                                     ("DIMCLRT" 0)<br />                                     ("DIMCLRE" 0)<br />                                     ("DIMCLRD" 0)<br />                                     ("DIMCEN" 0.09)<br />                                     ("DIMBLK2" "")<br />                                     ("DIMBLK1" "")<br />                                     ("DIMBLK" "")<br />                                     ("DIMAZIN" 0)<br />                                     ("DIMAUNIT" 0)<br />                                     ("DIMATFIT" 3)<br />                                     ("DIMASZ" 0.18)<br />                                     ("DIMASSOC" 2)<br />                                     ("DIMARCSYM" 0)<br />                                     ("DIMAPOST" "")<br />                                     ("DIMALTZ" 0)<br />                                     ("DIMALTU" 2)<br />                                     ("DIMALTTZ" 0)<br />                                     ("DIMALTTD" 2)<br />                                     ("DIMALTRND" 0.0)<br />                                     ("DIMALTF" 25.4)<br />                                     ("DIMALTD" 2)<br />                                     ("DIMALT" 0)<br />                                     ("DIMADEC" 0)<br />                                     ("DGNOSNAP" 1)<br />                                     ("DGNFRAME" 0)<br />                                     ("DEMANDLOAD" 3)<br />                                     ("DELOBJ" 1)<br />                                     ("DEFAULTLIGHTINGTYPE" 1)<br />                                     ("DEFAULTLIGHTING" 1)<br />                                     ("DEFAULTGIZMO" 0)<br />                                     ("DBLCLKEDIT" 1)<br />                                     ("DATALINKNOTIFY" 2)<br />                                     ("CVPORT" 2)<br />                                     ("CURSORSIZE" 5)<br />                                     ("CTABLESTYLE" "Standard")<br />                                     ("CSHADOW" 0)<br />                                     ("CROSSINGAREACOLOR" 3)<br />                                     ("COPYMODE" 0)<br />                                     ("COORDS" 1)<br />                                     ("CONSTRAINTINFER" 0)<br />                                     ("COMPASS" 0)<br />                                     ("CMLSTYLE" "Standard")<br />                                     ("CMLSCALE" 1.0)<br />                                     ("CMLJUST" 0)<br />                                     ("CMLEADERSTYLE" "Standard")<br />                                     ("CMDINPUTHISTORYMAX" 20)<br />                                     ("CMDECHO" 1)<br />                                     ("CMDDIA" 1)<br />                                     ("CMATERIAL" "ByLayer")<br />                                     ("CLAYER" "0")<br />                                     ("CIRCLERAD" 0.0)<br />                                     ("CHAMMODE" 0)<br />                                     ("CHAMFERD" 0.0)<br />                                     ("CHAMFERC" 0.0)<br />                                     ("CHAMFERB" 0.0)<br />                                     ("CHAMFERA" 0.0)<br />                                     ("CENTERMT" 0)<br />                                     ("CELWEIGHT" -1)<br />                                     ("CELTYPE" "ByLayer")<br />                                     ("CELTSCALE" 1.0)<br />                                     ("CECOLOR" "ByLayer")<br />                                     ("CANNOSCALE" "1:1")<br />                                     ("CAMERAHEIGHT" 0)<br />                                     ("CAMERADISPLAY" 0)<br />                                     ("CALCINPUT" 1)<br />                                     ("BVMODE" 0)<br />                                     ("BTMARKDISPLAY" 1)<br />                                     ("BPTEXTHORIZONTAL" 1)<br />                                     ("BPARAMETERSIZE" 12)<br />                                     ("BPARAMETERFONT" "Simplex.shx")<br />                                     ("BPARAMETERCOLOR" "7")<br />                                     ("BLOCKEDITLOCK" 0)<br />                                     ("BLIPMODE" 0)<br />                                     ("BINDTYPE" 0)<br />                                     ("BGRIPOBJSIZE" 8)<br />                                     ("BGRIPOBJCOLOR" "141")<br />                                     ("BDEPENDENCYHIGHLIGHT" 1)<br />                                     ("BCONSTATUSMODE" 1)<br />                                     ("BACTIONBARMODE" 1)<br />                                     ("BACTIONCOLOR" "7")<br />                                     ("BACKGROUNDPLOT" 2)<br />                                     ("AUTOSNAP" 63)<br />                                     ("AUTOMATICPUB" 0)<br />                                     ("AUPREC" 0)<br />                                     ("AUNITS" 0)<br />                                     ("AUDITCTL" 0)<br />                                     ("ATTREQ" 1)<br />                                     ("ATTMULTI" 1)<br />                                     ("ATTMODE" 1)<br />                                     ("ATTIPE" 0)<br />                                     ("ATTDIA" 0)<br />                                     ("APERTURE" 10)<br />                                     ("APBOX" 0)<br />                                     ("ANNOTATIVEDWG" 0)<br />                                     ("ANNOAUTOSCALE" -4)<br />                                     ("ANNOALLVISIBLE" 1)<br />                                     ("ANGDIR" 0)<br />                                     ("ANGBASE" 0.0)<br />                                     ("AFLAGS" 16)<br />                                     ("ACTUI" 6)<br />                                     ("ACTPATH" "")<br />                                     ("ACADLSPASDOC" 0)<br />                                     ("3DSELECTIONMODE" 1)<br />                                     ("3DCONVERSIONMODE" 1)<br />                                     ("3DDWFPREC" 2)<br />                                 )<br />                             )<br />                         )<br />                     )<br />                 )<br />             )<br />             " of "<br />             (itoa (length lst))<br />             " system variables set."<br />         )<br />     )<br />     (princ)<br /> )

xyp1964

适合acad的哪个版本？

flyfox1047

xyp1964 发表于 2013-12-22 11:31
适合acad的哪个版本？

目前所有版本都支持啊

cable2004

支持啊支持啊

xyp1964

flyfox1047 发表于 2013-12-23 09:02
目前所有版本都支持啊

上面有些系统变量2004等低版本就不存在，如：
Error setting system variable "UCSAXISANG": AutoCAD variable setting rejected: "UCSAXISANG" 1.5708
Error setting system variable "MTEXTFIXED": AutoCAD variable setting rejected: "MTEXTFIXED" 2
Error setting system variable "LENSLENGTH": AutoCAD variable setting rejected: "LENSLENGTH" 50.0
Error setting system variable "DIMBLK2": AutoCAD variable setting rejected: "DIMBLK2" ""
Error setting system variable "DIMBLK1": AutoCAD variable setting rejected: "DIMBLK1" ""
Error setting system variable "DIMBLK": AutoCAD variable setting rejected: "DIMBLK" ""
Error setting system variable "AFLAGS": AutoCAD variable setting rejected: "AFLAGS" 16

357785513

为什么总有人不和谐呀

spp_wall

看一下！！！！！！！

flyfox1047

xyp1964 发表于 2013-12-23 12:19
上面有些系统变量2004等低版本就不存在，如：
Error setting system variable "UCSAXISANG": AutoCAD va ...

低版本没有的变量那就不设，不影响使用

flyfox1047

357785513 发表于 2013-12-23 13:16
为什么总有人不和谐呀

不明白！神马情况？

1993063

;;;要加版本判断
(if (>= (atof (substr (Getvar "acadver") 1 4)) 16.2)
    (Setvar "DYNMODE" -3)
)