2021年CAD垃圾清理使用心得

1、cad垃圾清理使用心得cad垃圾清理使用心得在我们使用autocad绘图的过程中，经常会出现这种情况图中内容很少，但图文件所占的空间很大，图形生成的速度也很慢。这是为什么呢？其实原因很简单图中的垃圾很多。图文件中产生垃圾的原因很多，其中一个重要的原因就是使用了一些应用软件。应用软件为了方便用户使用，在启动图文件时增加了许多设置。增加的设置是为了适应所有可能出现的情况，因此十分全面。实际上在绘图的过程中，由于绘图内容差异，不同的图中总有一些设置不用。另一方面，在使用应用软件的过程中，许多附加过程会引入一些过渡性的信息，这些信息在没用的时候有的可能会被清除，而有些信息仍然会被保存在文件中，这些未被

2、清除的信息就成为垃圾。比如当我们插入一个图块，如果图块未被打开，有关此图块的记录就是有用信息，当图块被打开以后有关图元已不再是一个整体，但图块的有关信息仍保存在文件中，这些信息就成为无用信息即垃圾。如果一个存在垃圾的图文件又被另一个图文件引用，那么这些文件中的垃圾也就可能被转入新的文件中，造成垃圾积累。为了提高工作效率，在绘图的过程中应当经常清除垃圾。由于图中垃圾来源不同，所以清除垃圾的方法也就不同。方法一一般来说，一张cad图中最常出现的垃圾有以下几种未引用过的图层设置、线型设置；未被引用的图块（已被打开的图块）、标准字样（style）、外形等等，这些信息可以通过purge命令清除。清除过程

3、如下commandpurge（这个下箭头是接下来的意思）purgeunusedblocksdimstylelayersltypesshapesstylesallblocks无用图块；dimstyle未被使用的尺寸标注格式；layers未被使用的层设置；ltypes未被引用的线型设置；shapes无用的外形；styles未被使用过的字样设置；all以上所有各项内容。用户可以根据需要按系统提示删除不同内容。每一项被删除的内容系统都会要求用户予以确认。注意此命令的使用必须是打开一个文件后第一条命令。【使用说明效果不错，属于积累性的。后来成了我最常使用的一个命令】方法二对于上面提到的几项内容，也可以通

4、过wblock命令来完成。其过程如下commandwblockfilesname（files）blockname此方法与采用purge命令清除垃圾的方法相比，其功能更强大。它清除的内容范围除了上述这些可以用purge清除的内容之外，还包括更多的内容，比如非当前使用的用户坐标系。与使用purge命令不同，使用此命令时系统并不给出单项提示，而是直接全部清除，因此该命令的使用应谨慎，【试用说明就是把能选中的东西用块的形式重新完美组合放在新建的dwg文件中】。空字串有时图文件可能还会出现空文字串。空文字串与空图块一样，无法在图面上直接观察到，因此也就不能直接用erase命令删除。对于空字串，可以首先通

5、过qtbxt参数发现它，然后再将其删除。删除过程如下commandqtextonoff（off）on将qtext参数值设为on。commandregen按新参数值重新生成图形。这时图中文字变成矩形方框，方框的宽度与文字的高度相等，其长度与文字串的长度相等。使用此参数后空字串和文字都会变成一个个方框，这样就可以发现空字串了。有时表示空字串的方框和正常文字难以区分，这时可以使用list合作进行证实，（以文档形式观看文字内容予以鉴别）。在做完以上工作后，输入qtext,再点选off，再选择“视图”，消隐。重启下dwg文件就能改掉那些删除不掉的垃圾了。经过这样一些处理后图文件中的垃圾基本上被清除干净，

6、图文件的容量可以降到最低，文件的运行速度也可以大大加快。【试用说明此方法可以删除你看不到，选不中的，妨碍你正常视图的不利因素的空字串大坏蛋】上面方法我只试用了其中3个，（本人使用的是07版本的cad，07版本中绝对的管用），此方法也是我网上找到的，我将它更加简明的叙述给大家，希望大家能更好的理解这些方法！。扩展阅读cad清理垃圾源代码(vl-load-com)(promptntt.n.);(defunc:tt(/catchit)(setqcatchit(vl-catch-all-applydcl_load)(if(vl-catch-all-error-pcatchit)(progn(princ

7、n:)(princ(vl-catch-all-error-messagecatchit)(princn!)(princ););(defundcl_load(/dcl_iddialog_returnkeykeyskey1dcl_filefsshcountflst)(setqdcl_id(load_dialog(setqdcl_file(write_dcl);(vl-file-deletedcl_file);dcl(setqdialog_return2)(setqsh(vlax-create-objectshell.application);shell.application(setqfs(vla

8、x-create-objectscripting.filesystemobject);fso(setqflstnil)(while(dialog_return1);-(new_dialogdcldcl_id);-(setqkeys(errac$tmpdwllogpltsv$bakusruedzerosftflfpfufpathsubacceptcancel);(foreachkeykeys;(if(eval(read(strcatkey_bak)(set_tilekey(eval(read(strcatkey_bak);(action_tilekey(action_dcl_keys$key$v

9、alue);)(setqkey1(errac$tmpdwllogpltsv$bakzerousr)(action_tileall(all_selectkey1);(action_tileclr(all_clear(consallkey1);(action_tilesel(selectfolderfssh);(action_tileshow(showfilefssh);(action_tilesa(selectall);(action_tileda(deselectall);(action_tilehelp(helpmsg);-(progn;(princ(strcatn(vlax-getfile

10、name)(if(vl-catch-all-error-p(vl-catch-all-applyvlax-invoke(listpfiledelete1)(setqerr(1+err)(setqcnt(1+cnt);(princ(strcatn(vlax-getfilepath)(setqels(cdrels)(setqi(1+i)(princ(strcatn(itoacnt)(princ(strcatn(itoaerr)(princ)(princn!)(princn!)(done_dialog1);dialog_return1)(=keycancel);(princn!)(done_dial

11、og0);dialog_return0);(defunselectfolder(fssh/pap)(setqpa(vlax-invokeshbrowseforfolder017);(ifpa(progn(setqp(vlax-get(vlax-getpaself)path)(if(/=(vlax-invokefsfolderexistsp)0)(progn(and(strlenp)3)(setqp(strcatp)(set_tilepathp)(set_tileuf1)(ifpa(vlax-release-objectpa)(princ);(bug,)(defunselectall(/stri

12、)(setqstr)(setqi0)(repeat(lengthflst)(setqstr(strcatstr(itoai)(setqi(1+i)(set_tilelststr)(set_tilesa0)(set_tileda0);(defundeselectall()(set_tilelst)(set_tilesa0)(set_tileda0);(defunshowfile(fssh/filtfoldlstsizestr)(setqlst(get_dcl_data)(setqlst(getfilterlst)(setqsize(carlst)(setqfilt(cadrlst)(setqfo

13、ld(caddrlst)(if(or(carsize)filt)(progn(andfilt(removedupfilt)(setqfold(removedupfold)(setqflstnil)(start_listlst)(foreachpfold(if(/=(vlax-invokefsfolderexistsp)0)(searchfspsizefilt)(end_list)(setqflst(reverseflst)(selectall);(defunremovedup(lst/tmpln)(setqtmp(mapcarstrcaselst)(setqtmp(acad_strlsortt

14、mp)(whiletmp(setqn(cartmp)(setql(consnl)(while(and(cadrtmp)(=(cartmp)(cadrtmp)(setqtmp(cdrtmp)(setqtmp(cdrtmp)(reversel);(defuncheckfile(fsfilesizefillst/nameidxsufres1res2)(and(carsize)(setqres1(=(vlax-getfilesize)0)(cond(member*.*fillst)(setqres2t)(setqname(vlax-getfilename)(setqidx(vl-string-posi

15、tion(ascii.)name0t)(ifidx(setqsuf(strcase(substrname(+2idx)res2(membersuffillst)(orres1res2);(defunsearch(fsfoldersizefillst/rfdfilesfilefdsfdisshow)(if(/=(vlax-invokefsfolderexistsfolder)0);()(progn(setqrfd(vlax-invokefsgetfolderfolder);(setqfiles(vlax-getrfdfiles);(vlax-forfilefiles(if(checkfilefs

16、filesizefillst);(progn(add_list(vlax-getfilename);(setqflst(consfileflst);(setqisshowt)(ifisshow(progn(add_listfolder)(setqflst(consrfdflst);(if(=(cdrsize)1);(progn(setqfds(vlax-getrfdsubfolders);(vlax-forfdfds(searchfs(vlax-getfdpath)sizefillst););(vlax-release-objectfiles);(vlax-release-objectrfd)

17、;(defungetfilter(klst/keylstpathsizesufussidxsub)(setqlstklst)(repeat8(setqkey(carlst)(if(=(cdrkey)1)(setqsuf(cons(carkey)suf);)(setqlst(cdrlst)(setqkey(carlst)(if(=(cdrkey)1);(progn(setquss(cdadrlst);(cond(or(=uss*.*)(=uss.*)(=uss*)(setqsuf(cons*.*suf);)(setqidx(vl-string-position(ascii.)uss0t)(set

18、qsuf(cons(substruss(+2idx)suf);()(/=uss)(setqsuf(consusssuf);)(setqlst(cddrlst)(setqkey(carlst)(if(=(cdrkey)1)(setqsize0);)(setqlst(cdrlst)(if(=(cdr(assoctflst)1)(setqpath(cons(getvartempprefix)path);)(if(=(cdr(assocsflst)1)(setqpath(cons(getvarsavefilepath)path);)(if(=(cdr(assoclflst)1)(setqpath(co

19、ns(strcat(getspecialpath2)path);)(if(=(cdr(assocpflst)1)(setqpath(cons(getvardwgprefix)path);)(if(=(cdr(assocuflst)1)(setqpath(cons(cdr(assocpathlst)path);)(setqsize(conssize(get_tilesub);(andsuf(setqsuf(mapcarstrcasesuf)(listsizesufpath);(defunall_select(keys)(if(=(get_tileall)1)(progn(foreachnkeys

20、(set_tilen1)(set_tileclr0);(defunall_clear(keys)(if(=(get_tileclr)1)(foreachn(consclrkeys)(set_tilen0);(defunhelpmsg()(alert:nnn-nsoadi;n.*.dwgdwg*nvlisp;nnn-nnhighflybird201*.);(defunget_dcl_data(/keylstvalue)(foreachkeykeys(setqvalue(get_tilekey)(setqlst(cons(conskeyvalue)lst)(set(read(strcatkey_b

21、ak)value)(reverse(cddrlst);(defungetspecialpath(n/fsopath)(setqfso(vlax-create-objectscripting.filesystemobject)(setqpath(vlax-get(vlax-invokefsogetspecialfoldern)path)(vlax-release-objectfso)path);dcl(defunwrite_dcl(/dcl_filefilestr)(setqdcl_file(vl-filename-mktempnilnil.dcl)(setqfile(opendcl_filew)(foreachstr(listdcl:dialoglabel=cad;:row:column:boxed_columnlabel=;:togglekey=err;label=(.err);:togglekey=ac$;label=(.ac$);:togglekey=tmp;label=(.tmp);:togglekey=dwl;label=(.dwl,dwl2);:togglekey=log;label=(.log);:togglekey=plt;labe