TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Yoland on February 27, 2007, 08:28:26 AM
-
Hi,
Is possible know the differences of variables between two drawings??
I know the sysvdlg from Express Tools and program called CompareDwg, but are there any more ways?
Thanks
Yolanda
-
ToolPac (http://www.dotsoft.com/toolpac.htm) includes a tool to compare drawings.
See also: http://www.dotsoft.com/images/tpdwgcomp.png
-
I usually xref the old drawing on top of the new and change the all the layer colors of the old dwg to red and the new dwg to blue. Nice easy way to see changes.
-
I usually xref the old drawing on top of the new and change the all the layer colors of the old dwg to red and the new dwg to blue. Nice easy way to see changes.
Unfortunately, you can't compare sysvars this way.
...the differences of variables between two drawings...
-
I usually xref the old drawing on top of the new and change the all the layer colors of the old dwg to red and the new dwg to blue. Nice easy way to see changes.
Unfortunately, you can't compare sysvars this way.
...the differences of variables between two drawings...
there are a few sysvar gathering lisps out there... brute force and list of vars
you could take the list from each drawing and compare
-
I usually xref the old drawing on top of the new and change the all the layer colors of the old dwg to red and the new dwg to blue. Nice easy way to see changes.
Unfortunately, you can't compare sysvars this way.
...the differences of variables between two drawings...
DOH! Must read before reply :ugly:
-
Thanks for your answers.
I saw the toolpac program and I will try it.
One time more, thanks.
Yolanda
And sorry, my English is poor
-
Hi Yoland,
if I not wrong interpreted,you want know different command variable between drawing "A" and drawing "B",test this code maybe can help you,I'm not sure it can solve your problem.
as tutorial you could test drawing "A",that result save in AA.lsp,then test drawing "B" ,and save again in BB.lsp.
now follow this
http://discussion.autodesk.com/thread.jspa?threadID=547221 (http://discussion.autodesk.com/thread.jspa?threadID=547221)
; ccv is stand for Check Command Variable
; Design by : Adesu <Ade Suharna>
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Create : 21 April 2005
; Program no.: 231/04/2005
; Edit by :
; Idea from John Uhden, Cadlantic/formerly CADvantage
(defun c:ccv (/ comvar varlen cnt cn liscomvar)
(setq comvar '("ACADLSPASDOC" "ACADPREFIX" "ACADVER" "ACISOUTVER" "AFLAGS"
"ANGBASE" "ANGDIR" "APBOX" "APERTURE" "AREA" "ATTDIA" "ATTMODE"
"ATTREQ" "AUDITCTL" "AUNITS" "AUPREC" "AUTOSNAP" "BACKZ" "BINDTYPE"
"BLIPMODE" "CDATE" "CECOLOR" "CELTSCALE" "CELTYPE" "CELWEIGHT"
"CHAMFERA" "CHAMFERB" "CHAMFERC" "CHAMFERD" "CHAMMODE" "CIRCLERAD"
"CLAYER" "CMDACTIVE" "CMDDIA" "CMDECHO" "CMDNAMES" "CMLJUST"
"CMLSCALE" "CMLSTYLE" "COMPASS" "COORDS" "CPLOTSTYLE" "CPROFILE"
"CTAB" "CURSORSIZE" "CVPORT" "DATE" "DBMOD" "DCTCUST" "DCTMAIN"
"DEFLPLSTYLE" "DEFPLSTYLE" "DELOBJ" "DEMANDLOAD" "DIASTAT" "DIMADEC"
"DIMALT" "DIMALTD" "DIMALTF" "DIMALTRND" "DIMALTTD" "DIMALTTZ" "DIMALTU"
"DIMALTZ" "DIMAPOST" "DIMASO" "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" "DIMTXSTY" "DIMTXT" "DIMTZIN" "DIMUNIT" "DIMUPT" "DIMZIN"
"DISPSILH"
"DISTANCE"
"DONUTID"
"DONUTOD"
"DRAGMODE"
"DRAGP1"
"DRAGP2"
"DWGCHECK"
"DWGCODEPAGE"
"DWGNAME"
"DWGPREFIX"
"DWGTITLED"
"EDGEMODE"
"ELEVATION"
"EXPERT"
"EXPLMODE"
"EXTMAX"
"EXTMIN"
"EXTNAMES"
"FACETRATIO"
"FACETRES"
"FILEDIA"
"FILLETRAD"
"FILLMODE"
"FONTALT"
"FONTMAP"
"FRONTZ"
"FULLOPEN"
"GRIDMODE"
"GRIDUNIT"
"GRIPBLOCK"
"GRIPCOLOR"
"GRIPHOT"
"GRIPS"
"GRIPSIZE"
"HANDLES"
"HIDEPRECISION"
"HIGHLIGHT"
"HPANG"
"HPBOUND"
"HPDOUBLE"
"HPNAME"
"HPSCALE"
"HPSPACE"
"HYPERLINKBASE"
"IMAGEHLT"
"INDEXCTL"
"INETLOCATION"
"INSBASE"
"INSNAME"
"INSUNITS"
"INSUNITSDEFSOURCE"
"INSUNITSDEFTARGET"
"ISAVEBAK"
"ISAVEPERCENT"
"ISOLINES"
"LASTANGLE"
"LASTPOINT"
"LASTPROMPT"
"LENSLENGTH"
"LIMCHECK"
"LIMMAX"
"LIMMIN"
"LISPINIT"
"LOCALE"
"LOGFILEMODE"
"LOGFILENAME"
"LOGFILEPATH"
"LOGINNAME"
"LTSCALE"
"LUNITS"
"LUPREC"
"LWDEFAULT"
"LWDISPLAY"
"LWUNITS"
"MAXACTVP"
"MAXSORT"
"MBUTTONPAN"
"MEASUREINIT"
"MEASUREMENT"
"MENUCTL"
"MENUECHO"
"MENUNAME"
"MIRRTEXT"
"MODEMACRO"
"MTEXTED"
"NOMUTT"
"OFFSETDIST"
"OFFSETGAPTYPE"
"OLEHIDE"
"OLEQUALITY"
"OLESTARTUP"
"ORTHOMODE"
"OSMODE"
"OSNAPCOORD"
"PAPERUPDATE"
"PDMODE"
"PDSIZE"
"PELLIPSE"
"PERIMETER"
"PFACEVMAX"
"PICKADD"
"PICKAUTO"
"PICKBOX"
"PICKDRAG"
"PICKFIRST"
"PICKSTYLE"
"PLATFORM"
"PLINEGEN"
"PLINETYPE"
"PLINEWID"
"PLOTID"
"PLOTROTMODE"
"PLOTTER"
"PLQUIET"
"POLARADDANG"
"POLARANG"
"POLARDIST"
"POLARMODE"
"POLYSIDES"
"POPUPS"
"PROJECTNAME"
"PROJMODE"
"PROXYGRAPHICS"
"PROXYNOTICE"
"PROXYSHOW"
"PSLTSCALE"
"PSPROLOG"
"PSQUALITY"
"PSTYLEMODE"
"PSTYLEPOLICY"
"PSVPSCALE"
"PUCSBASE"
"QTEXTMODE"
"RASTERPREVIEW"
"REFEDITNAME"
"REGENMODE"
"RTDISPLAY"
"SAVEFILE"
"SAVEFILEPATH"
"SAVENAME"
"SAVETIME"
"SCREENBOXES"
"SCREENMODE"
"SCREENSIZE"
"SDI"
"SHADEDGE"
"SHADEDIF"
"SHORTCUTMENU"
"SHPNAME"
"SKETCHINC"
"SKPOLY"
"SNAPANG"
"SNAPBASE"
"SNAPISOPAIR"
"SNAPMODE"
"SNAPSTYL"
"SNAPTYPE"
"SNAPUNIT"
"SOLIDCHECK"
"SORTENTS"
"SPLFRAME"
"SPLINESEGS"
"SPLINETYPE"
"SURFTAB1"
"SURFTAB2"
"SURFTYPE"
"SURFU"
"SURFV"
"SYSCODEPAGE"
"TABMODE"
"TARGET"
"TDCREATE"
"TDINDWG"
"TDUCREATE"
"TDUPDATE"
"TDUSRTIMER"
"TDUUPDATE"
"TEMPPREFIX"
"TEXTEVAL"
"TEXTFILL"
"TEXTQLTY"
"TEXTSIZE"
"TEXTSTYLE"
"THICKNESS"
"TILEMODE"
"TOOLTIPS"
"TRACEWID"
"TRACKPATH"
"TREEDEPTH"
"TREEMAX"
"TRIMMODE"
"TSPACEFAC"
"TSPACETYPE"
"TSTACKALIGN"
"TSTACKSIZE"
"UCSAXISANG"
"UCSBASE"
"UCSFOLLOW"
"UCSICON"
"UCSNAME"
"UCSORG"
"UCSORTHO"
"UCSVIEW"
"UCSVP"
"UCSXDIR"
"UCSYDIR"
"UNDOCTL"
"UNDOMARKS"
"UNITMODE"
"VIEWCTR"
"VIEWDIR"
"VIEWMODE"
"VIEWSIZE"
"VIEWTWIST"
"VISRETAIN"
"VSMAX"
"VSMIN"
"WHIPARC"
"WMFBKGND"
"WORLDUCS"
"WORLDVIEW"
"WRITESTAT"
"XCLIPFRAME"
"XEDIT"
"XFADECTL"
"XLOADCTL"
"XLOADPATH"
"XREFCTL"
"ZOOMFACTOR"))
(setq varlen (length comvar))
(setq cnt 0)
(setq cn 1)
(repeat varlen
(setq liscomvar
(strcat (nth cnt comvar)
" "
"="
" "
(vl-princ-to-string (getvar (nth cnt comvar)))))
(princ "\n")(princ cn)(princ ".")(princ liscomvar)
(setq cnt (1+ cnt))
(setq cn (1+ cn))
)
(princ)
)
Thanks for your answers.
I saw the toolpac program and I will try it.
One time more, thanks.
Yolanda
And sorry, my English is poor