;;Spy_var (c) g-eaux 03/01/2006 10:22:55 
;***************************************************************************
;§**/debug/enregistre l'état des variables/none
(defun c:spy_var1 ( / spy-l-var )
 (setq l-val-var1 nil)
 (setq  spy-l-var
  '("_LINFO" "_PKSER" "_SERVER" "_TOOLPALETTEPATH" "_VERNUM" "ACGIDUMPMODE" "ADCSTATE" "ASSISTSTATE"
"AUXSTAT" "AXISUNIT" "BGRDPLOTTIMEOUT" "CPUTICKS" "DBCSTATE" "DEFAULTVIEWCATEGORY" "ENTEXTS" "ENTMODS"
"ERRNO" "FLATLAND" "GLOBCHECK" "GRIPLEGACY" "LAZYLOAD" "MACROTRACE" "MAXOBJMEM" "MILLISECS"
"MSMSTATE" "NFWSTATE" "NODENAME" "OPMSTATE" "OSNAPNODELEGACY" "PHANDLE" "PRODUCT" "PROGRAM"
"QAFLAGS" "QAUCSLOCK" "QUEUEDREGENMAX" "R14RASTERPLOT" "RE-INIT" "SPACESWITCH" "SSMSTATE" "TBCUSTOMIZE"
"TPSTATE" "USEACIS" "WHIPTHREAD" "ACADLSPASDOC" "ACADPREFIX" "ACADVER" "ACISOUTVER" "AFLAGS"
"ANGBASE" "ANGDIR" "APBOX" "APERTURE" "AREA" "ATTDIA" "ATTMODE" "ATTREQ"
"AUDITCTL" "AUNITS" "AUPREC" "AUTOSNAP" "BACKGROUNDPLOT" "BACKZ" "BINDTYPE" "BLIPMODE"
"CDATE" "CECOLOR" "CELTSCALE" "CELTYPE" "CELWEIGHT" "CHAMFERA" "CHAMFERB" "CHAMFERC"
"CHAMFERD" "CHAMMODE" "CIRCLERAD" "CLAYER" "CLEANSCREENSTATE" "CMDACTIVE" "CMDDIA" "CMDECHO"
"CMDNAMES" "CMLJUST" "CMLSCALE" "CMLSTYLE" "COMPASS" "COORDS" "CPLOTSTYLE" "CPROFILE"
"CTAB" "CTABLESTYLE" "CURSORSIZE" "CVPORT" "DATE" "DBMOD" "DCTCUST" "DCTMAIN"
"DEFLPLSTYLE" "DEFPLSTYLE" "DELOBJ" "DEMANDLOAD" "DIASTAT" "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" "DIMSTYLE" "DIMTAD"
"DIMTDEC" "DIMTFAC" "DIMTIH" "DIMTIX" "DIMTM" "DIMTMOVE" "DIMTOFL" "DIMTOH"
"DIMTOL" "DIMTOLJ" "DIMTP" "DIMTSZ" "DIMTVP" "DIMTXT" "DIMTZIN" "DIMUNIT"
"DIMUPT" "DIMZIN" "DISTANCE" "DONUTID" "DONUTOD" "DRAGMODE" "DRAGP1" "DRAGP2"
"DRAWORDERCTL" "DWGCHECK" "DWGCODEPAGE" "DWGNAME" "DWGPREFIX" "DWGTITLED" "EDGEMODE" "ELEVATION"
"EXPERT" "EXPLMODE" "EXTMAX" "EXTMIN" "EXTNAMES" "FACETRATIO" "FIELDDISPLAY" "FIELDEVAL"
"FILEDIA" "FILLETRAD" "FONTALT" "FONTMAP" "FRONTZ" "FULLOPEN" "GFANG" "GFCLR1"
"GFCLR2" "GFCLRLUM" "GFCLRSTATE" "GFNAME" "GFSHIFT" "GRIDMODE" "GRIDUNIT" "GRIPBLOCK"
"GRIPCOLOR" "GRIPHOT" "GRIPHOVER" "GRIPOBJLIMIT" "GRIPS" "GRIPSIZE" "GRIPTIPS" "HANDLES"
"HIDEPRECISION" "HIDETEXT" "HIGHLIGHT" "HPANG" "HPASSOC" "HPBOUND" "HPDOUBLE" "HPDRAWORDER"
"HPGAPTOL" "HPNAME" "HPSCALE" "HPSPACE" "HYPERLINKBASE" "IMAGEHLT" "INDEXCTL" "INETLOCATION"
"INSBASE" "INSNAME" "INSUNITS" "INSUNITSDEFSOURCE" "INSUNITSDEFTARGET" "ISAVEBAK" "ISAVEPERCENT" "LASTANGLE"
"LASTPOINT" "LASTPROMPT" "LAYOUTREGENCTL" "LENSLENGTH" "LIMCHECK" "LIMMAX" "LIMMIN" "LISPINIT"
"LOCALE" "LOCALROOTPREFIX" "LOGFILEMODE" "LOGFILENAME" "LOGFILEPATH" "LOGINNAME" "LTSCALE" "LUNITS"
"LUPREC" "LWDEFAULT" "LWDISPLAY" "LWUNITS" "MAXACTVP" "MAXSORT" "MBUTTONPAN" "MEASUREINIT"
"MEASUREMENT" "MENUCTL" "MENUECHO" "MENUNAME" "MIRRTEXT" "MODEMACRO" "MSOLESCALE" "MTEXTED"
"MTEXTFIXED" "MTJIGSTRING" "MYDOCUMENTSPREFIX" "NOMUTT" "OFFSETDIST" "OFFSETGAPTYPE" "OLEFRAME" "OLEHIDE"
"OLESTARTUP" "ORTHOMODE" "OSMODE" "OSNAPCOORD" "OSNAPHATCH" "PALETTEOPAQUE" "PDSIZE" "PEDITACCEPT"
"PELLIPSE" "PERIMETER" "PFACEVMAX" "PICKADD" "PICKAUTO" "PICKBOX" "PICKDRAG" "PICKFIRST"
"PICKSTYLE" "PLATFORM" "PLINEGEN" "PLINETYPE" "PLINEWID" "PLOTOFFSET" "PLOTROTMODE" "POLARADDANG"
"POLARANG" "POLARDIST" "POLARMODE" "POLYSIDES" "POPUPS" "PROJECTNAME" "PROJMODE" "PROXYGRAPHICS"
"PROXYNOTICE" "PROXYWEBSEARCH" "PSLTSCALE" "PSPROLOG" "PSQUALITY" "PSTYLEMODE" "PSVPSCALE" "PUCSBASE"
"QTEXTMODE" "RASTERPREVIEW" "REFEDITNAME" "REGENMODE" "REMEMBERFOLDERS" "REPORTERROR" "ROAMABLEROOTPREFIX" "RTDISPLAY"
"SAVEFILE" "SAVEFILEPATH" "SAVENAME" "SAVETIME" "SCREENBOXES" "SCREENMODE" "SCREENSIZE" "SDI"
"SHADEDGE" "SHADEDIF" "SHORTCUTMENU" "SHPNAME" "SIGWARN" "SKETCHINC" "SKPOLY" "SNAPANG"
"SNAPBASE" "SNAPMODE" "SNAPSTYL" "SNAPTYPE" "SNAPUNIT" "SOLIDCHECK" "SORTENTS" "SPLINESEGS"
"SPLINETYPE" "SSFOUND" "SSLOCATE" "SSMAUTOOPEN" "STANDARDSVIOLATION" "STARTUP" "SURFTAB1" "SURFTAB2"
"SURFTYPE" "SURFU" "SURFV" "SYSCODEPAGE" "TARGET" "TDCREATE" "TDINDWG" "TDUCREATE"
"TDUPDATE" "TDUSRTIMER" "TDUUPDATE" "TEMPPREFIX" "TEXTEVAL" "TEXTFILL" "TEXTQLTY" "TEXTSIZE"
"THICKNESS" "TILEMODE" "TOOLTIPS" "TRACEWID" "TRACKPATH" "TREEDEPTH" "TREEMAX" "TRIMMODE"
"TSPACEFAC" "TSPACETYPE" "TSTACKALIGN" "TSTACKSIZE" "UCSAXISANG" "UCSBASE" "UCSFOLLOW" "UCSICON"
"UCSNAME" "UCSORG" "UCSORTHO" "UCSVIEW" "UCSVP" "UNDOCTL" "UNDOMARKS" "UNITMODE"
"UPDATETHUMBNAIL" "USERI1" "USERI2" "USERI3" "USERI4" "USERI5" "USERR1" "USERR2"
"USERR3" "USERR4" "USERR5" "USERS1" "USERS2" "USERS3" "USERS4" "USERS5"
"VIEWCTR" "VIEWDIR" "VIEWMODE" "VIEWSIZE" "VIEWTWIST" "VISRETAIN" "VPMAXIMIZEDSTATE" "VSMAX"
"VSMIN" "WHIPARC" "WMFBKGND" "WMFFOREGND" "WORLDUCS" "WORLDVIEW" "WRITESTAT" "XCLIPFRAME"
"XEDIT" "XFADECTL" "XLOADCTL" "XLOADPATH" "XREFCTL" "XREFNOTIFY" "XREFTYPE" "ZOOMFACTOR")
 )
 (foreach l spy-l-var
  (setq l-val-var1 (cons (list l (getvar l)) l-val-var1))
 )
)
;***************************************************************************
;§**/debug/enregistre l'état des variables dans un fichier ini/none
(defun c:write_var2ini ( / spy-l-var s )
 (if (setq fini (getfiled "Nom du fichier ini :" "" "ini" 1))
  (progn
   (setq s (open fini "w"))
   (write-line "[l-val-var1]" s)
   (foreach l l-val-var1
     (write-line (pw_ch_de_lst (mapcar 'pw_guil_make l) ",") s)
   )
   (close s)
  )
 )
)

;***************************************************************************
;§**/debug/ ;;affiche les varaiables qui ont changé depuis l'appel spy_var1/none

(defun c:spy_var2 ( / l-val-var2 res)
 (foreach l l-val-var1
  (setq l-val-var2 (cons (list (car l) (getvar (car l))) l-val-var2))
 )
 (setq res (pw_l1-l2 l-val-var1 l-val-var2))
 (setq l-val-var1 nil)
  res
)

;***************************************************************************
;§**/debug/compare l'état des variables actuel a celui stocké dans un fichier ini/none
(defun c:compare_var_from_ini ( / spy-l-var )
  (if (setq fini (getfiled "Nom du fichier ini ŕ comparer :" "" "ini" 0))
   (progn
    (pw_charger_ini fini)
    (setq l-val-var1 (mapcar '(lambda (x)
				(list (car x) (pw_to_type (cadr x)))
			      )
			     l-val-var1
		     )
    )
	 (foreach l l-val-var1
	  (setq l-val-var2 (cons (list (car l) (getvar (car l))) l-val-var2))
	 )
	 (setq res (pw_l1-l2 l-val-var1 l-val-var2))
	 ;(setq l-val-var1 nil)
         (foreach l  res
	   (princ (pw_ch_de_lst l " "))
	   (prompt "\n")
	 )
   )
  )
)