; ********************************************************************** ; * SysVar.lsp 2007 Lloyd Beachy * ; ********************************************************************** ; * Function to compare system variables from one drawing to another. * ; * (Creates a tab-delimited (*.tab) file for import into Excel) * ; * ------------------------------------------------------------------ * ; * Notes: * ; * 1) If you specify a new (*.tab) file, all system variables will be * ; * recorded for the current drawing. * ; * 2) If you specify an existing (*.tab) file, differing variables * ; * from the current drawing will be added in a separate column. * ; * 3) There is no limit to the number of drawings that can be added. * ; ********************************************************************** (Defun C:SV_COMPARE (/ _tab _temp a b _line _val _val2) (setq _tab(getfiled "System Variable Compare" "" "tab" 37) _temp(strcat(getvar "tempprefix")(vl-filename-base _tab)".tab")) (cond((findfile _tab); ----------------------- if _tab file already exists... (vl-file-copy _tab _temp) ;create copy in temp folder (setq a(open _tab "w") ;open _tab file b(open _temp "r")) ;open _temp file (write-line(strcat(read-line b) "\t" (getvar "dwgname"))a);add drawing name to header (while(setq _line(read-line b)) ;read through each line (setq _val(vl-prin1-to-string(getvar(read _line))));value in current drawing (if(or(null(wcmatch(strcase _line)(strcat "*\t"(strcase _val))));if the values differ, (wcmatch _line "*\t*\t*")) ;or this is third or more comparison... (write-line(strcat _line "\t" _val)a);record comparison value );end if );end while (close a) (close b) (vl-file-delete _temp) ;delete _temp file );end cond list ((null b); ------------------------------ if _tab file does not already exist... (setq a(open _tab "w")) ;open _tab file (write-line(strcat "VARIABLE\t" (getvar "dwgname"))a);write document header (foreach _val(_sysvars) ;for each system variable... (write-line(strcat _val "\t" (vl-prin1-to-string(getvar _val)))a);record value );end foreach (close a) ));end cond list -------------------------------------------------------------------- (princ) ;exit quietly );end C:SV_COMPARE (Defun C:SVC () (C:SV_COMPARE) ) ; System variable list for AutoCAD 2007 ; - comment out any unwanted variables (i.e. "DWGNAME") (defun _sysvars () (list ; "*_TOOLPALETTEPATH" ; "_PKSER" ; "_VERNUM" ; "3DDWFPREC" ; "ACADLSPASDOC" "ACADPREFIX" "ACADVER" "ACISOUTVER" "ADCSTATE" "AFLAGS" "ANGBASE" "ANGDIR" "APBOX" "APERTURE" "APSTATE" "AREA" ; "ASSISTSTATE" "ATTDIA" "ATTMODE" "ATTREQ" "AUDITCTL" "AUNITS" "AUPREC" "AUTOSNAP" "BACKGROUNDPLOT" "BACKZ" "BACTIONCOLOR" ; "BDEPENDENCYHIGHLIGHT" ; "BGRIPOBJCOLOR" ; "BGRIPOBJSIZE" ; "BINDTYPE" ; "BLIPMODE" "BLOCKEDITLOCK" "BLOCKEDITOR" "BPARAMETERCOLOR" "BPARAMETERFONT" "BPARAMETERSIZE" "BTMARKDISPLAY" "BVMODE" "CALCINPUT" "CAMERADISPLAY" "CAMERAHEIGHT" "CDATE" "CECOLOR" "CELTSCALE" "CELTYPE" "CELWEIGHT" "CENTERMT" "CHAMFERA" "CHAMFERB" "CHAMFERC" "CHAMFERD" "CHAMMODE" "CIRCLERAD" "CLAYER" "CLEANSCREENSTATE" "CLISTATE" "CMATERIAL" "CMDACTIVE" "CMDDIA" "CMDECHO" "CMDINPUTHISTORYMAX" "CMDNAMES" "CMLJUST" "CMLSCALE" "CMLSTYLE" "COMPASS" "COORDS" "CPLOTSTYLE" "CPROFILE" ; "CROSSINGAREACOLOR" ; "CSHADOW" "CTAB" "CTABLESTYLE" "CURSORSIZE" "CVPORT" ; "DASHBOARDSTATE" "DATE" ; "DBCSTATE" ; "DBLCLKEDIT" ; "DBMOD" "DCTCUST" "DCTMAIN" "DEFAULTLIGHTING" "DEFAULTLIGHTINGTYPE" "DEFLPLSTYLE" "DEFPLSTYLE" "DELOBJ" "DEMANDLOAD" "DIASTAT" "DIMADEC" "DIMALT" "DIMALTD" "DIMALTF" "DIMALTRND" "DIMALTTD" "DIMALTTZ" "DIMALTU" "DIMALTZ" "DIMAPOST" "DIMARCSYM" "DIMASO" "DIMASSOC" "DIMASZ" "DIMATFIT" "DIMAUNIT" "DIMAZIN" "DIMBLK" "DIMBLK1" "DIMBLK2" "DIMCEN" "DIMCLRD" "DIMCLRE" "DIMCLRT" "DIMDEC" "DIMDLE" "DIMDLI" "DIMDSEP" "DIMEXE" "DIMEXO" "DIMFIT" "DIMFRAC" "DIMFXL" "DIMFXLON" "DIMGAP" "DIMJOGANG" "DIMJUST" "DIMLDRBLK" "DIMLFAC" "DIMLIM" "DIMLTEX1" "DIMLTEX2" "DIMLTYPE" "DIMLUNIT" "DIMLWD" "DIMLWE" "DIMPOST" "DIMRND" "DIMSAH" "DIMSCALE" "DIMSD1" "DIMSD2" "DIMSE1" "DIMSE2" "DIMSHO" "DIMSOXD" "DIMSTYLE" "DIMTAD" "DIMTDEC" "DIMTFAC" "DIMTFILL" "DIMTFILLCLR" "DIMTIH" "DIMTIX" "DIMTM" "DIMTMOVE" "DIMTOFL" "DIMTOH" "DIMTOL" "DIMTOLJ" "DIMTP" "DIMTSZ" "DIMTVP" "DIMTXSTY" "DIMTXT" "DIMTZIN" "DIMUNIT" "DIMUPT" "DIMZIN" "DISPSILH" "DISTANCE" "DONUTID" "DONUTOD" "DRAGMODE" "DRAGP1" "DRAGP2" "DRAGVS" "DRAWORDERCTL" "DRSTATE" "DTEXTED" "DWFFRAME" "DWFOSNAP" "DWGCHECK" "DWGCODEPAGE" ;;; "DWGNAME" ;;; "DWGPREFIX" "DWGTITLED" ; "DYNDIGRIP" ; "DYNDIVIS" ; "DYNMODE" ; "DYNPICOORDS" ; "DYNPIFORMAT" ; "DYNPIVIS" ; "DYNPROMPT" ; "DYNTOOLTIPS" "EDGEMODE" "ELEVATION" ; "ENTERPRISEMENU" "ERRNO" "ERSTATE" "EXPERT" "EXPLMODE" "EXTMAX" "EXTMIN" "EXTNAMES" "FACETRATIO" "FACETRES" "FIELDDISPLAY" "FIELDEVAL" "FILEDIA" "FILLETRAD" "FILLMODE" "FONTALT" "FONTMAP" "FRONTZ" "FULLOPEN" "FULLPLOTPATH" "GFANG" "GFCLR1" "GFCLR2" "GFCLRLUM" "GFCLRSTATE" "GFNAME" "GFSHIFT" "GRIDDISPLAY" "GRIDMAJOR" "GRIDMODE" "GRIDUNIT" "GRIPBLOCK" "GRIPCOLOR" "GRIPDYNCOLOR" "GRIPHOT" "GRIPHOVER" "GRIPOBJLIMIT" "GRIPS" "GRIPSIZE" "GRIPTIPS" "GTAUTO" "GTDEFAULT" "GTLOCATION" "HALOGAP" "HANDLES" "HIDEPRECISION" "HIDETEXT" "HIGHLIGHT" "HPANG" "HPASSOC" "HPBOUND" "HPDOUBLE" "HPDRAWORDER" "HPGAPTOL" "HPINHERIT" "HPNAME" "HPOBJWARNING" "HPORIGIN" "HPORIGINMODE" "HPSCALE" "HPSEPARATE" "HPSPACE" "HYPERLINKBASE" "IMAGEHLT" "IMPLIEDFACE" "INDEXCTL" "INETLOCATION" "INPUTHISTORYMODE" "INSBASE" "INSNAME" "INSUNITS" "INSUNITSDEFSOURCE" "INSUNITSDEFTARGET" "INTELLIGENTUPDATE" "INTERFERECOLOR" "INTERFEREOBJVS" "INTERFEREVPVS" "INTERSECTIONCOLOR" "INTERSECTIONDISPLAY" "ISAVEBAK" "ISAVEPERCENT" "ISOLINES" "LASTANGLE" "LASTPOINT" "LASTPROMPT" "LATITUDE" "LAYERFILTERALERT" "LAYOUTREGENCTL" "LEGACYCTRLPICK" "LENSLENGTH" "LIGHTGLYPHDISPLAY" "LIGHTLISTSTATE" "LIMCHECK" "LIMMAX" "LIMMIN" "LISPINIT" "LOCALE" "LOCALROOTPREFIX" "LOCKUI" "LOFTANG1" "LOFTANG2" "LOFTMAG1" "LOFTMAG2" "LOFTNORMALS" "LOFTPARAM" "LOGFILEMODE" ;;; "LOGFILENAME" "LOGFILEPATH" "LOGINNAME" "LONGITUDE" "LTSCALE" "LUNITS" "LUPREC" "LWDEFAULT" "LWDISPLAY" "LWUNITS" "MATSTATE" "MAXACTVP" "MAXSORT" "MBUTTONPAN" "MEASUREINIT" "MEASUREMENT" "MENUCTL" "MENUECHO" "MENUNAME" "MIRRTEXT" "MODEMACRO" "MSMSTATE" "MSOLESCALE" "MTEXTED" "MTEXTFIXED" "MTJIGSTRING" "MYDOCUMENTSPREFIX" "NODENAME" "NOMUTT" "NORTHDIRECTION" "OBSCUREDCOLOR" "OBSCUREDLTYPE" "OFFSETDIST" "OFFSETGAPTYPE" "OLEFRAME" "OLEHIDE" "OLEQUALITY" "OLESTARTUP" "OPMSTATE" "ORTHOMODE" "OSMODE" "OSNAPCOORD" "OSNAPHATCH" "OSNAPNODELEGACY" "OSNAPOVERRIDE" "OSNAPZ" "OSOPTIONS" "PALETTEOPAQUE" "PAPERUPDATE" "PDMODE" "PDSIZE" "PEDITACCEPT" "PELLIPSE" "PERIMETER" "PFACEVMAX" "PICKADD" "PICKAUTO" "PICKBOX" "PICKDRAG" "PICKFIRST" "PICKSTYLE" "PLATFORM" "PLINEGEN" "PLINETYPE" "PLINEWID" "PLOTOFFSET" "PLOTROTMODE" "PLQUIET" "POLARADDANG" "POLARANG" "POLARDIST" "POLARMODE" "POLYSIDES" "POPUPS" "PREVIEWEFFECT" "PREVIEWFILTER" "PRODUCT" "PROGRAM" "PROJECTNAME" "PROJMODE" "PROXYGRAPHICS" "PROXYNOTICE" "PROXYSHOW" "PROXYWEBSEARCH" "PSLTSCALE" "PSOLHEIGHT" "PSOLWIDTH" "PSPROLOG" "PSQUALITY" "PSTYLEMODE" "PSTYLEPOLICY" "PSVPSCALE" "PUBLISHALLSHEETS" "CSBASE" "QCSTATE" "QTEXTMODE" "RASTERDPI" "RASTERPREVIEW" "RASTERTHRESHOLD" "RECOVERYMODE" "REFEDITNAME" "REGENMODE" "RE-INIT" "REMEMBERFOLDERS" "REPORTERROR" "ROAMABLEROOTPREFIX" "RTDISPLAY" ;;; "SAVEFILE" "SAVEFILEPATH" "SAVENAME" "SAVETIME" "SCREENBOXES" "SCREENMODE" "SCREENSIZE" "SDI" "SELECTIONAREA" "SELECTIONAREAOPACITY" "SELECTIONPREVIEW" "SHADEDGE" "SHADEDIF" "SHADOWPLANELOCATION" "SHORTCUTMENU" "SHOWHIST" "SHOWLAYERUSAGE" "SHPNAME" "SIGWARN" "SKETCHINC" "SKPOLY" "SNAPANG" "SNAPBASE" "SNAPISOPAIR" "SNAPMODE" "SNAPSTYL" "SNAPTYPE" "SNAPUNIT" "SOLIDCHECK" "SOLIDHIST" "SORTENTS" "SPACESWITCH" "SPLFRAME" "SPLINESEGS" "SPLINETYPE" "SSFOUND" "SSLOCATE" "SSMAUTOOPEN" "SSMPOLLTIME" "SSMSHEETSTATUS" "SSMSTATE" "STANDARDSVIOLATION" "STARTUP" "STEPSIZE" "STEPSPERSEC" "SUNPROPERTIESSTATE" "SUNSTATUS" "SURFTAB1" "SURFTAB2" "SURFTYPE" "SURFU" "SURFV" "SYSCODEPAGE" "TABLEINDICATOR" "TABMODE" "TARGET" "TBCUSTOMIZE" "TDCREATE" "TDINDWG" "TDUCREATE" "TDUPDATE" "TDUSRTIMER" "TDUUPDATE" "TEMPOVERRIDES" "TEMPPREFIX" "TEXTEVAL" "TEXTFILL" "TEXTQLTY" "TEXTSIZE" "TEXTSTYLE" "THICKNESS" "TILEMODE" "TIMEZONE" "TOOLTIPMERGE" "TOOLTIPS" "TPSTATE" "TRACEWID" "TRACKPATH" "TRAYICONS" "TRAYNOTIFY" "TRAYTIMEOUT" "TREEDEPTH" "TREEMAX" "TRIMMODE" "TSPACEFAC" "TSPACETYPE" "TSTACKALIGN" "TSTACKSIZE" "UCSAXISANG" "UCSBASE" "UCSDETECT" "UCSFOLLOW" "UCSICON" "UCSNAME" "UCSORG" "UCSORTHO" "UCSVIEW" "UCSVP" "UCSXDIR" "UCSYDIR" "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" "VSBACKGROUNDS" "VSEDGECOLOR" "VSEDGEJITTER" "VSEDGEOVERHANG" "VSEDGES" "VSEDGESMOOTH" "VSFACECOLORMODE" "VSFACEHIGHLIGHT" "VSFACEOPACITY" "VSFACESTYLE" "VSHALOGAP" "VSHIDEPRECISION" "VSINTERSECTIONCOLOR" "VSINTERSECTIONEDGES" "VSINTERSECTIONLTYPE" "VSISOONTOP" "VSLIGHTINGQUALITY" "VSMATERIALMODE" "VSMAX" "VSMIN" "VSMONOCOLOR" "VSOBSCUREDCOLOR" "VSOBSCUREDEDGES" "VSOBSCUREDLTYPE" "VSSHADOWS" "VSSILHEDGES" "VSSILHWIDTH" "VSSTATE" "VTDURATION" "VTENABLE" "VTFPS" "WHIPARC" "WHIPTHREAD" "WINDOWAREACOLOR" "WMFBKGND" "WMFFOREGND" "WORLDUCS" "WORLDVIEW" "WRITESTAT" "WSCURRENT" "XCLIPFRAME" "XEDIT" "XFADECTL" "XLOADCTL" "XLOADPATH" "XREFCTL" "XREFNOTIFY" "XREFTYPE" "ZOOMFACTOR" "ZOOMWHEEL" ));end _sysvars