CADexpress命令详解.docVIP

ACAD使用技巧（内附EXPRESS命令详解） 提交日期：2003-08-10?? 浏览: 3176 　　为DWG文件“减肥” 由于工作需要，我们经常把大量的Auto－CAD绘制的DWG图形文件作为电子邮件的附件在互联网上传输，为经济快捷起见，笔者近来特意琢磨如何为DWG文件“减肥”，得到经验三条，在此介绍给大家。 方法一：用PURGE命令。 用PURGE命令把图形中没有使用过的块、图层、线型等全部删除，可以达到减小文件的目的。如果文件仅用于传送给对方看看或是永久性存档，在使用PURGE命令前还可以作如下工作： 一、把图形中插入的块炸开，使图形中根本不含有块； 二，把线型相同的图层上的元素全部放置在一个图层上，减少图层数量。这样一来就能使更多的图块、图层成为没有使用的，从而可以被PURGE删除，更加精减文件尺寸。使用PURGE命令，用选项All（键入参数a）比较方便。示例如下： Command:purge PurgeunusedBlocks/Dimstyles/LAyers/LTypes/SHapes/styles/Mlinestyles/All:aNamestopurge＊:（直接回车） Verifyeachnametobepurged?（直接回车） Purgeblockcz08?y Purgeblockcz16?y PurgelayerCEN?y PurgelayerHAT?y Nounreferencedlinetypesfound. Nounreferencedtextstylesfound. Nounreferencedshapefilesfound. PurgedimensionstyleLEAD?y Nounreferencedmlinestylesfound. 笔者还发现，连续多次使用PURGE命令，并且每次均用选项All，直至出现如下提示，就已经“减肥”到极点了。 Command:purge PurgeunusedBlocks/Dimstyles/LAyers/LTypes/SHapes/styles/Mlinestyles/All:a Namestopurge＊:（直接回车） Verifyeachnametobepurged?（直接回车） Nounreferencedblocksfound. Nounreferencedlayersfound. Nounreferencedlinetypesfound. Nounreferencedtextstylesfound. Nounreferencedshapefilesfound. Nounreferenceddimensionstylesfound. Nounreferencedmlinestylesfound. 方法二：程序解决（最好的方法） 程序一：炸开当前图中的所有图块 (defunT-EXPLODE() (setqS(ssgetX(list(cons0INSERT)))) (setqP(sslengths)) (setqN0) (setqp(-p1)) (while(=np) (setqnam(ssnamesn)) (commandEXPLODEnam) (setqn(+n1))))把以上程序加入文件acad.lsp中。 程序二：清除图中所有的图块 改造菜单，加命令…[清除图块]^C^CSCRIPTPURGE [炸开图块]^C^CT-EXPLODE 用文本编辑器编一命为PURGE.SCR的文件，把其存于\ACAD2000\SUPPORT\目录下，文 件的内容为: purgebyyyyyyyyyyy yyyyyyyyyyyyyyy yyyyyyyyyyyyyyy yyyyyyyyyyyyyyy 方法三：用WBLOCK命令。 把需要传送的图形用WBLOCK命令以块的方式产生新的图形文件，把新生成的图形文件作为传送或存档用。目前为止，这是笔者发现的最有效的“减肥”方法。现简明示例如下： Command:wblock （在弹出的对话框中输入文件名及文件存放位置，由于非常简单，故在此省略对话框图形） Blockname:（直接回车） Insertionbasepoint:（任选一点） Selectobjects:（选择完毕后回车） Command: 这样就在你指定的文件夹中生成了一个新的图形文件。 比较以上两种方法，各有长短：用PURGE命令操作简便，但“减肥”效果稍差；用WBLOCK命令最大优点就是“减肥”效果好，最大的缺点就是不能对新生成的图形进行修改（甚至不作任何修改）存盘，否则文件又变大了。笔者对自己的DWG文件用两种方法精简并对比效果发现