設(shè)計(jì)院少不了的是不停的改圖，發(fā)圖，審圖。其中轉(zhuǎn)PDF文件確實(shí)是一個(gè)費(fèi)力氣的活。往往圖紙有幾十張甚至上百?gòu)垼粡堃粡埖拇蛴≈鴮?shí)費(fèi)時(shí)費(fèi)力。網(wǎng)上也有一些轉(zhuǎn)PDF的軟件，自己也嘗試了一些，用起來都不是很滿意。我想要的是一個(gè)點(diǎn)一下，其他都不操心的批量打印軟件。于是決定自己動(dòng)手，恰好自己工作了這幾年，用VB和Office與AutoCAD打交道積累的經(jīng)驗(yàn)也不少了。
先說說自己對(duì)于批量打印或者說批量轉(zhuǎn)PDF的需求。
- 支持.xls/.doc/.dwg文件轉(zhuǎn)PDF。
- 支持文件夾掃描文件批量打開多個(gè)文件并打印。
- 并能將生成的PDF文件整理到文件夾中。
- 支持對(duì)于文件的簽署。也就是貼上簽名的圖片。
- 支持DWG文件中查找不到的大字體的替換。
- 支持匹配圖紙尺寸、范圍打印，自動(dòng)旋轉(zhuǎn)等設(shè)置。
于是目前最終的界面是這樣子的：
實(shí)際上這個(gè)軟件是自己不斷補(bǔ)充，逐次把功能加上去的。回顧下自己做這個(gè)軟件的歷程。
之前自己也對(duì)轉(zhuǎn)圖的機(jī)械操作工作量有所體會(huì)。五十張圖紙自己要轉(zhuǎn)兩個(gè)多小時(shí)。也想過能不能有批量轉(zhuǎn)圖的方法。當(dāng)時(shí)還沒想到從網(wǎng)上找現(xiàn)成的工具。實(shí)際上直到自己開始寫代碼，找資料才發(fā)現(xiàn)這類的工具已經(jīng)有不少了。
有一天有個(gè)人問我有沒有批量打印word的程序。我以為是想讓我寫個(gè)程序，于是和她說，沒有寫過，不過這個(gè)應(yīng)該很簡(jiǎn)單。由于Office軟件可以錄制宏得到代碼，于是加上個(gè)批量遍歷打開文件，加上錄制出來的發(fā)送到打印機(jī)的設(shè)置代碼也就不用兩個(gè)小時(shí)就可以搞定出來。于是發(fā)給他，得到一個(gè)回復(fù)“你真是一個(gè)神奇的人”。才明白，是問我有沒有現(xiàn)成的工具。不過開了個(gè)頭，就要有收尾。
再加上Excel文件的批量打印更不必說了，VBA與Excel是親密搭檔。
于是開始思考打印DWG文件。其實(shí)網(wǎng)上搜了一下，就找到了相關(guān)的VB代碼。加上遍歷打開文件就初步差不多了。不過還要解決打印設(shè)置的問題。和Office文檔不一樣的是，Excel文件、Word文件中已經(jīng)把打印設(shè)置設(shè)置好了，只需要發(fā)送到打印機(jī)就可以。而DWG圖紙里的打印設(shè)置極有可能是不正確的。所以還要考慮如何設(shè)置打印樣式的問題。其實(shí)主要是設(shè)置打印范圍的問題。
鑒于一般我院作圖都極度不規(guī)范，判斷圖框確實(shí)是個(gè)大問題，既不能用塊名稱來判斷，因?yàn)閴K很可能被更名，也不能用塊或多段線的的尺寸是否匹配圖框大小來打印，因?yàn)榭赡鼙豢s放或者塊直接被打碎了。不過有一個(gè)必須要遵守的規(guī)范就是：最終的文件，一張DWG里面只能有一張圖。于是索性將打印范圍設(shè)置為“范圍”，這個(gè)問題就輕松解決了。
上面這些最開始是使用VBA編寫的，由于VBA是寄生在主程序中的。也就是最初這版做的是在Word中批量打印DOC文件，在Excel中批量打印XLS文件，在AutoCAD中批量打印DWG文件。于是有了下一個(gè)計(jì)劃：將這幾個(gè)批量打印程序整合到一起。
將各個(gè)程序整合到一起，需要解決的問題是：1.VBA代碼轉(zhuǎn)寫為VB代碼，部分常量需要轉(zhuǎn)換。2.VB調(diào)用本機(jī)需要考慮版本不兼容的問題，例如2003版不帶轉(zhuǎn)PDF功能，只能發(fā)送到虛擬打印機(jī)。AutoCAD低版本相比高版本有些環(huán)境變量直接沒有，而我到現(xiàn)在也沒找到如何在低版本設(shè)置這些變量的方法。只好放棄對(duì)低版本的支持。
這時(shí)發(fā)現(xiàn)，Office高版本（2007版之后）已經(jīng)自帶了轉(zhuǎn)PDF個(gè)功能，效率比發(fā)送到虛擬打印機(jī)快多了。做這個(gè)程序的時(shí)候，自己找了幾種轉(zhuǎn)PDF的方式。首先是PDF虛擬打印機(jī)。例如Adobe和pdfFactory打印機(jī)。其二是軟件自帶的轉(zhuǎn)PDF功能，例如上文說到的Office自帶的SaveAsPDFandXPS功能。而AutoCAD自帶轉(zhuǎn)PDF功能其實(shí)也是有的例如DWG to PDF的打印機(jī)驅(qū)動(dòng)，或者是發(fā)布功能，不過最終我沒有考慮。不僅因?yàn)橐恍┑桶姹緵]這功能，而且我也沒找到如何通過VB調(diào)用AutoCAD的發(fā)布功能。
然后最棘手的問題來了，如何判斷是否本機(jī)有缺失的字體，因?yàn)楹?jiǎn)單字體還好說，AutoCAD如果找不到的話有個(gè)默認(rèn)字體，直接替換了。但是大字體需要自己選，如果使用VB程序打開根本不會(huì)提示用戶替換字體，于是很可能打印出來的是缺字的。很多人畫圖根本不管圖紙上設(shè)置的字體本機(jī)有沒有，每次都不厭其煩的點(diǎn)替換字體，設(shè)置還有默認(rèn)取消字體替換的。于是在做最初的一版的時(shí)候告知了打架如何設(shè)置字體，替換字體。如何使用acad.fmp設(shè)置默認(rèn)替換字體。不過，我估計(jì)也沒幾個(gè)人能聽懂。
不過字體替換這個(gè)問題最終還是解決了，在打開AutoCAD的時(shí)候查找字體路徑，并將有的字體存入數(shù)組，在打開圖紙的時(shí)候查看大字體，缺失的字體直接替換成hztxt.shx。
還需要解決的一個(gè)問題是，將生成的PDF文件按照源文件的路徑格式整理好。使用SaveAsPDFandXPS功能很好實(shí)現(xiàn)。但是發(fā)送到打印機(jī)的就不好設(shè)置了。首選想到的是怎么讓Adobe打印機(jī)如我所愿的更改保存路徑，在查找了注冊(cè)表之后還是讓我找到了。于是Adobe打印機(jī)生成的路徑可以控制了。然后發(fā)現(xiàn)pdfFactory打印機(jī)更簡(jiǎn)單，它的默認(rèn)保存路徑是固定的。只要把二者設(shè)置為不打印預(yù)覽就可以讓打印機(jī)默默為我工作了。
最后是自動(dòng)簽名功能。其實(shí)很簡(jiǎn)單，在模板中加入的代號(hào)文字，打開的時(shí)候查找替換成相應(yīng)的圖片就可以了。DWG圖紙則是添加的image圖片路徑。
還有增加了停止按鈕功能，只是加個(gè)時(shí)間判斷就可以了。
后記，用了這個(gè)批量打印之后，轉(zhuǎn)多少圖都不怕了。速度快，而且一點(diǎn)也不累。但是卻少了最后檢查一遍圖紙的動(dòng)力了。哎。。。
