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; 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