荀中正

(湖南百利工程科技股份有限公司)

儀表安裝圖材料自動統(tǒng)計方法①

荀中正

(湖南百利工程科技股份有限公司)

介紹了一種不需要制作材料庫，利用Truetable、AutoLISP和數(shù)據(jù)透析表功能進(jìn)行儀表安裝圖材料自動統(tǒng)計的方法。它不僅修改方便，而且簡單靈活，實用性強(qiáng)，提高了自控設(shè)計的工作效率和正確性。

儀表安裝圖 Truetable AutoLISP 自動提取 數(shù)據(jù)透視表

在儀表專業(yè)設(shè)計過程中，儀表安裝材料主要包括安裝圖材料、電纜敷設(shè)材料、供氣材料、接地材料和伴熱絕熱材料五大部分，其中又以儀表安裝圖材料部分最難統(tǒng)計，它涉及的圖紙量大，材料種類和規(guī)格繁多。目前各設(shè)計單位對于安裝圖材料的統(tǒng)計方法主要有：打印安裝圖后逐項手動統(tǒng)計，此方法勞動強(qiáng)度大，且非常容易出錯；編制自己單位對應(yīng)風(fēng)格的安裝圖軟件包[1]，要求設(shè)計人員相當(dāng)精通VBA等二次開發(fā)，對于一些中小型規(guī)模的單位，較難實現(xiàn)；利用AutoXlsTable等軟件實現(xiàn)AutoCAD和Excel材料同步，利用VB編程軟件對Excel進(jìn)行宏的編制，實現(xiàn)自動統(tǒng)計[2]，此方法也需要設(shè)計人員比較精通編程軟件，同時需要編制Excel材料庫等，安裝圖換版或者標(biāo)準(zhǔn)、材料更新，維護(hù)量也比較大。

筆者針對這些情況，探討了一種利用AutoCAD、Excel、Truetable和AutoLISP軟件快速實現(xiàn)儀表安裝圖材料自動統(tǒng)計的方法。

1 概略程序框圖

安裝圖材料自動統(tǒng)計概略程序框圖如圖1所示，首先需要對AutoCAD格式的安裝圖進(jìn)行整理[3]，項目中選取本項目采用的安裝圖，按格式填寫儀表位號，完成單張儀表安裝圖材料統(tǒng)計，然后利用Truetable軟件和AutoLISP自動把安裝圖里面的材料提取到安裝圖材料統(tǒng)計工作表模板中，再運(yùn)用Excel的數(shù)據(jù)透析表功能完成安裝圖材料的自動匯總。

圖1 概略程序框圖

2 工具介紹

筆者介紹的安裝圖材料自動統(tǒng)計需要用到AutoCAD、Excel、Truetable和AutoLISP軟件。

AutoCAD(Auto Computer Aided Design)用于二維繪圖、詳細(xì)繪制、設(shè)計文檔和基本三維設(shè)計。AutoCAD具有良好的用戶界面，通過交互菜單或命令行方式便可以進(jìn)行各種操作。它的多文檔設(shè)計環(huán)境，讓非計算機(jī)專業(yè)人員也能很快地學(xué)會使用，在不斷實踐的過程中更好地掌握它的各種應(yīng)用和開發(fā)技巧，從而不斷提高工作效率。

Excel可以靈活地對數(shù)據(jù)進(jìn)行整理、計算、匯總、查詢及分析等處理。

Truetable(真實表格)是一款基于AutoCAD平臺的軟件，能夠在AutoCAD和Excel間互導(dǎo)表格，能輸出、更新AutoCAD中的任意表格。

AutoLISP是一種LISP程序語言(LISP是List Processor的縮寫)。AutoLISP是編寫繪圖、編輯圖形等程序的表處理語言，易學(xué)易用且功能強(qiáng)大。通過AutoLISP程序可以輔助AutoCAD制圖提高工作效率。

3 安裝圖材料自動統(tǒng)計方法

3.1 前期準(zhǔn)備

3.1.1 安裝圖的整理

在執(zhí)行程序之前必須先根據(jù)HG/T 21581-2012《自控安裝圖冊》整理本單位風(fēng)格的AutoCAD版安裝圖，安裝圖標(biāo)準(zhǔn)圖框可以采用可編輯的屬性圖塊，方便圖紙統(tǒng)一化管理，安裝圖材料表格建議采用標(biāo)準(zhǔn)命名的圖塊，材料表格根據(jù)材料行數(shù)設(shè)置“M-1”～“M-9”常用的9個圖塊，安裝圖材料表格里面的材料文字統(tǒng)一采用字高3.0，寬度比例0.75的單行文字。安裝圖材料表格樣式和9種材料表格圖塊樣式中的“M-5” 如圖2所示。

圖2 安裝圖材料表格樣式和9種材料表格圖塊樣式之 “M-5”

3.1.2 制作安裝圖材料統(tǒng)計工作表模板

安裝圖材料統(tǒng)計工作表模板用Excel制作，主要用于存儲提取的AutoCAD安裝圖中的材料，模板如圖3所示。為了方便統(tǒng)計材料，根據(jù)筆者的經(jīng)驗，表格字體、高度等設(shè)置如下：

字號字體 宋體，12號

行高 20

列寬

A、B列 10

C列 60

D列 15

E列 12

F列 12

G列 20

圖3 安裝圖材料統(tǒng)計工作表模板

3.1.3 安裝圖材料統(tǒng)計工作表模板調(diào)用

把制作好的安裝圖材料統(tǒng)計工作表模板放在AutoCAD支持的路徑目錄下，制作調(diào)用模板程序的AutoLISP文件，制作好之后同樣放在AutoCAD支持的路徑目錄下加載，即可用命令調(diào)出安裝圖材料統(tǒng)計工作表模板。調(diào)出安裝圖材料統(tǒng)計工作表模板的AutoLISP核心程序為：command "start" "安裝圖材料統(tǒng)計工作表模板.xls"[4]。

3.1.4 Truetable軟件設(shè)置

由于AutoCAD的一些特殊符號導(dǎo)入到Excel時會以AutoCAD中符號輸入形式存在，需進(jìn)行替換，才能在Excel中以正確的形式存在。根據(jù)筆者的經(jīng)驗，Truetable軟件的文本替換選項常規(guī)設(shè)置包括：“%%C”對應(yīng)“Φ”，“%%d”對應(yīng)“°”，“%%P”對應(yīng)“±”等。為了把AutoCAD安裝圖文件中的材料，分別一張一張連續(xù)提取到打開的安裝圖材料統(tǒng)計工作表模板中，Truetable軟件的輸出設(shè)置選項需要設(shè)置為“連續(xù)輸出”。

3.2 安裝圖(AutoCAD)文件中的材料輸出到Excel

安裝圖(AutoCAD)中材料可以采用Truetable軟件的“批量輸出表格”功能，連續(xù)選取材料區(qū)域表格導(dǎo)入到Excel安裝圖材料統(tǒng)計工作表模板中，但是手動執(zhí)行對于多張AutoCAD安裝圖文件需要一張一張地選取，也非常容易出現(xiàn)差錯，工作效率也比較低。筆者采用簡單AutoLISP代碼自動提取，每張AutoCAD安裝圖文件提取材料之后，對此材料區(qū)域采用高亮的臨時虛線予以提示，防止材料漏統(tǒng)計，下面給出兩種實現(xiàn)方案。

第1種方案安裝圖標(biāo)準(zhǔn)圖框采用可編輯屬性塊，對單張圖里面的材料表格沒有要求，流程如圖4所示。

圖4 安裝圖標(biāo)準(zhǔn)圖框采用可編輯屬性塊的流程

第2種方案對安裝圖圖框沒有要求。但是對于單張圖里面的材料表格需要采用固定名稱的圖塊。一般每張安裝圖的材料行數(shù)為1～9行，制作9種材料表格圖塊與之一一對應(yīng)，并分別命名為“M-1”～“M-9”。安裝圖材料表格采用固定名稱塊的流程如圖5所示。

圖5 安裝圖材料表格采用固定名稱塊的流程

兩種方案的核心AutoLISP源代碼[5]如下：

(setq azt_clk (ssget ′((0 . "INSERT"))))

;;獲取選取區(qū)域內(nèi)的塊對象

(setq ss (ssget (cons blockname slist)))

;;獲取選取區(qū)域內(nèi)的固定塊名的塊對象

(setq blkname (cdr (assoc 2 (entget (ssname azt_clk index0)))))

;;依次取選擇集里面塊名稱

(setq clk_point (cdr (assoc 10 (entget (ssname azt_clk index0)))))

;;依次取選擇集里面塊插入點(diǎn)坐標(biāo)

(setq AZT-L (ssget "w" pt1 pt2))

;;根據(jù)塊插入點(diǎn)獲取安裝圖材料表格左下角點(diǎn)和右上角點(diǎn)，通過兩點(diǎn)獲取兩點(diǎn)內(nèi)框選對象

(command "truetable" "E" AZT-L "" "")

;;調(diào)用Truetable輸出函數(shù)，輸出表格內(nèi)容至已打開關(guān)聯(lián)的安裝圖材料統(tǒng)計工作表模板

3.3 Excel的數(shù)據(jù)透視表功能

Excel的數(shù)據(jù)透視表功能是一項非常強(qiáng)大的功能[6]。數(shù)據(jù)透視表是一種交互式的表，可以進(jìn)行某些計算，如求和、計數(shù)等，并且可以動態(tài)地改變它們的版面布置，以便按照不同方式分析數(shù)據(jù)，也可以重新安排行號、列標(biāo)和頁字段。每一次改變版面布置時，數(shù)據(jù)透視表會立即按照新的布置重新計算數(shù)據(jù)。另外，如果原始數(shù)據(jù)發(fā)生更改，則可以更新數(shù)據(jù)透視表，完成重新統(tǒng)計。

前面把AutoCAD安裝圖中的材料提取到Excel的安裝圖材料統(tǒng)計工作表模板后，執(zhí)行“數(shù)據(jù)”菜單下的“數(shù)據(jù)透視表和數(shù)據(jù)透視圖”功能，選擇“新建工作表”，一般材料匯總參數(shù)只需要“材料名稱及規(guī)格”、“材料材質(zhì)”兩項，因此把“材料名稱及規(guī)格”、“材料材質(zhì)”兩項拖動到行字段作為分類依據(jù)，把“總數(shù)量”拖動到列字段，作為求和項，Excel自動會完成安裝圖材料分類匯總[7]。應(yīng)用數(shù)據(jù)透視表整理安裝圖材料非常實用、快捷。整理后的安裝圖材料匯總表如圖6所示。

圖6 安裝圖材料匯總表

4 存在問題的改進(jìn)

由于儀表安裝圖涉及的儀表測量管路所用閥門、管件、法蘭及緊固件等材料規(guī)格非常多，使用上述方法使統(tǒng)計效率得到了大幅提高，并且不容易出錯，但是因為AutoCAD安裝圖中材料規(guī)格多，同一種材料在多張安裝圖中出現(xiàn)，如果個別字符不一致，會導(dǎo)致分類統(tǒng)計、匯總分類比較多，相對采用Excel材料庫統(tǒng)計方法后期還需要人為區(qū)分才能匯進(jìn)儀表材料表，只能在安裝圖整理初期盡量保證同一材料在多張AutoCAD安裝圖中的統(tǒng)一性，避免此類情況。

5 結(jié)束語

儀表安裝圖材料自動統(tǒng)計方法在許多工程中得到了應(yīng)用。利用Truetable、AutoLISP軟件把AutoCAD中的材料自動提取到Excel模板，然后利用Excel的數(shù)據(jù)透視表功能進(jìn)行安裝圖材料自動統(tǒng)計，成功解決了當(dāng)前AutoCAD圖形文件材料統(tǒng)計效率不高的問題，同時也提高了自控設(shè)計工作的準(zhǔn)確性。

[1] 趙正光.利用電子表格軟件進(jìn)行儀表安裝圖的材料統(tǒng)計[J].石油化工自動化,2001，37(5):7～8.

[2] 陳松華.儀表安裝材料的自動統(tǒng)計[J].石油化工自動化,2010,46 (4):51～53.

[3] HG/T 21581-2012，自控安裝圖冊[S].北京:中國計劃出版社,2012.

[4] 二代龍震工作室.AutoCAD LISP/VLISP函數(shù)庫查詢詞典[M].北京:中國鐵道出版社，2003.

[5] 李學(xué)志.Visual LISP程序設(shè)計[M].北京:清華大學(xué)出版社,2010.

[6] 蘇雪峰.Excel在儀表工程設(shè)計中的若干應(yīng)用[J].化工自動化及儀表,2013,40(7):947～950.

[7] Excel Home.Excel數(shù)據(jù)透視表應(yīng)用大全[M].北京:人民郵電出版社,2009.

AutomaticStatisticalMethodforMaterialsStipulatedbyInstrumentInstallationDrawings

XUN Zhong-zheng

(HunanBailiEngineeringScience&TechnologyCo.,Ltd.)

The automatic statistical method which asking for no material database was introduced, including application of Truetable, AutoLISP and Pivottable to automatically count materials stipulated by the instrument installation drawing. This method has characteristics such as simple and flexible structure, strong practicability and high work efficiency and correctness in control design.

instrument installation drawing,Truetable, AutoLISP,automatic extraction, Pivottable

TH86；TP391

B

1000-3932(2017)08-0763-04

2017-01-20，

2017-04-07)

荀中正(1986-)，工程師，從事自動控制的設(shè)計工作，xunzhongzheng20@163.com。