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

荀中正

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

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

荀中正

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

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

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

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

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

1 概略程序框圖

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

圖1 概略程序框圖

2 工具介紹

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

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

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

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

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

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

3.1 前期準(zhǔn)備

3.1.1 安裝圖的整理

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

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

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

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

字號(hào)字體 宋體，12號(hào)

行高 20

列寬

A、B列 10

C列 60

D列 15

E列 12

F列 12

G列 20

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

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

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

3.1.4 Truetable軟件設(shè)置

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

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

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

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

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

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

圖5 安裝圖材料表格采用固定名稱(chēng)塊的流程

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

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

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

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

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

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

;;依次取選擇集里面塊名稱(chēng)

(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)，通過(guò)兩點(diǎn)獲取兩點(diǎn)內(nèi)框選對(duì)象

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

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

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

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

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

圖6 安裝圖材料匯總表

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

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

5 結(jié)束語(yǔ)

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

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

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

[3] HG/T 21581-2012，自控安裝圖冊(cè)[S].北京:中國(guó)計(jì)劃出版社,2012.

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

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

[6] 蘇雪峰.Excel在儀表工程設(shè)計(jì)中的若干應(yīng)用[J].化工自動(dòng)化及儀表,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-)，工程師，從事自動(dòng)控制的設(shè)計(jì)工作，xunzhongzheng20@163.com。