一種提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法
【技術(shù)領(lǐng)域】
[0001]本發(fā)明屬AutoCAD 二次開(kāi)發(fā)領(lǐng)域，尤其涉及一種提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法。
【背景技術(shù)】
[0002]AutoCAD是由Autodesk公司開(kāi)發(fā)的計(jì)算機(jī)輔助設(shè)計(jì)軟件，在國(guó)內(nèi)企業(yè)中得到了廣泛運(yùn)用。然而，工程技術(shù)人員在享受其所帶來(lái)便利的同時(shí)，又必須花費(fèi)大量時(shí)間來(lái)處理圖紙中的文檔信息。工藝路線文件是企業(yè)進(jìn)行順利生產(chǎn)的基礎(chǔ)，其物料基本信息主要來(lái)源于圖紙中的明細(xì)表。目前，明細(xì)表中的信息無(wú)法直接與外部文件進(jìn)行傳遞，現(xiàn)常用的方法為根據(jù)圖紙手動(dòng)錄入數(shù)據(jù)和利用軟件進(jìn)行自動(dòng)化提取。由于實(shí)際圖紙的多樣性，利用現(xiàn)有軟件提取出來(lái)的結(jié)果往往不盡人意，而手動(dòng)錄入數(shù)據(jù)不僅效率低，而且容易出錯(cuò)；因此，如何高效率、準(zhǔn)確的提取出明細(xì)表信息顯得極其重要。
[0003]有鑒于此，有必要提供一種提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法，以解決上述問(wèn)題。

【發(fā)明內(nèi)容】

[0004]本發(fā)明的目的是:為了克服現(xiàn)有技術(shù)缺陷，從而提供一種能從AutoCAD圖紙中提取多種形式的明細(xì)內(nèi)容至Excel表格的方法。
[0005]為了實(shí)現(xiàn)上述目的，本發(fā)明所采用的技術(shù)方案是:一種提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法，前提是CAD軟件已安裝VBA模塊，其特征在于，該方法的具體步驟是:
1)在桌面新建Excel表格，在表格的第一行依次輸入明細(xì)行各項(xiàng)對(duì)應(yīng)的名稱，將表格命名為“明細(xì)存放”;
2)打開(kāi)CAD軟件，在MicrosoftVisual Basic模式下插入過(guò)程及窗體，過(guò)程的功能是顯示窗體，窗體為選擇明細(xì)形式，保存并命名為acd.dvb文件，然后將其拷貝至CAD的安裝目錄下；
3)在CAD軟件里新添命令按鈕“提取明細(xì)”，并將該命令指向步驟2)中的插入過(guò)程；
4)提取明細(xì):在CAD窗口點(diǎn)擊“提取明細(xì)”，根據(jù)步驟2)中窗體提示進(jìn)行選取，然后依次選取明細(xì)行所在區(qū)域的左下角點(diǎn)和右上角點(diǎn)，即實(shí)現(xiàn)明細(xì)行中的內(nèi)容按照原始相對(duì)位置傳遞至“明細(xì)存放”表格中。
[0006]如上所述的提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法，其特征在于，若明細(xì)數(shù)據(jù)為本文格式，則其位置關(guān)系按如下公式計(jì)算:
xlsheet.Cells ((loc (I) - pointl (I) + H * k) \ (H * k) + i, I) = ENT.TextString
其中H為行高，k為圖紙比例，i為當(dāng)前表格中的行數(shù)；k = (point2(0) - pointl (0))/ X，X為圖紙比例1:1時(shí)明細(xì)行總長(zhǎng)。
[0007]本發(fā)明的有益效果:由于采用上述技術(shù)方案，本發(fā)明與現(xiàn)有技術(shù)相比具有如下積極效果:本發(fā)明涉及的提取CAD圖紙中明細(xì)內(nèi)容至Excel表格的方法考慮了明細(xì)形式的多樣性及常用形式，同時(shí)保證明細(xì)內(nèi)容整體實(shí)現(xiàn)“空間轉(zhuǎn)移”，對(duì)用戶的后續(xù)引用無(wú)影響，極大的提高了工作效率。
【附圖說(shuō)明】
[0008]圖1是本發(fā)明提取CAD圖紙明細(xì)內(nèi)容至ExceI表格的方法的流程圖。
[0009]圖2是本發(fā)明的提取明細(xì)窗體。
【具體實(shí)施方式】
[0010]為了更好地理解本發(fā)明，下面結(jié)合實(shí)施例進(jìn)一步闡明本發(fā)明的內(nèi)容，但本發(fā)明的內(nèi)容不僅僅局限于下面的實(shí)施例。本領(lǐng)域技術(shù)人員可以對(duì)本發(fā)明作各種改動(dòng)或修改，這些等價(jià)形式同樣在本申請(qǐng)所列權(quán)利要求書限定范圍之內(nèi)。
[0011]如圖1所示，本發(fā)明的提取CAD圖紙明細(xì)表內(nèi)容至Excel表格的方法，在已安裝VBA模塊的前提下，該方法的具體步驟是:
I)在桌面新建Excel表格，在表格的第一行依次輸入目標(biāo)圖紙明細(xì)行各項(xiàng)對(duì)應(yīng)的名稱，如序號(hào)、代號(hào)、名稱、數(shù)量，將表格命名為“明細(xì)存放”;對(duì)于同類圖紙，無(wú)需每次新建此表格。
[0012]2)打開(kāi)AutoCAD，在Microsoft Visual Basic模式下插入過(guò)程及窗體，見(jiàn)附圖2。過(guò)程的功能是顯示窗體，窗體為選擇明細(xì)形式，其中，若明細(xì)數(shù)據(jù)為本文格式，則其位置關(guān)系按如下公式計(jì)算，
xlsheet.Cells ((loc (I) - pointl (I) + H * k) \ (H * k) + i, I) = ENT.TextString
其中H為行高，k為圖紙比例，i為當(dāng)前表格中的行數(shù)。
[0013]k = (point2 (0) - pointl (0)) / X，X 為圖紙比例 1:1 時(shí)明細(xì)行總長(zhǎng)。
[0014]保存并命名為acd.dvb文件，然后將其拷貝至CAD的安裝目錄下，該步完成后，提取明細(xì)時(shí)直接進(jìn)入步驟4 )。
[0015]3)在AutoCAD里“工具”菜單下新添命令按鈕“提取明細(xì)”，并將該命令指向步驟
2)中的插入過(guò)程；命令建好后，以后使用則無(wú)需重復(fù)創(chuàng)建。
[0016]4)打開(kāi)目標(biāo)圖紙，點(diǎn)擊“工具“提取明細(xì)”，根據(jù)彈出窗體的提示進(jìn)行選取，本步驟以選擇窗體中明細(xì)形式為“其它”為例，首先選擇“其它”，然后再輸入圖紙比例為1:1時(shí)明細(xì)行高度值及其它各項(xiàng)的寬度值(若實(shí)際圖紙與窗體中的各項(xiàng)不一致，則根據(jù)窗體中的序號(hào)依次輸入即可)再點(diǎn)擊“提取明細(xì)”按鈕，然后依次選取明細(xì)行所在區(qū)域的左下角點(diǎn)和右上角點(diǎn)，即實(shí)現(xiàn)明細(xì)行中的內(nèi)容按照原始相對(duì)位置傳遞至“明細(xì)存放”表格中，對(duì)于同類圖紙，無(wú)需每次都輸入數(shù)值，程序自動(dòng)保存第一次輸入的值。重復(fù)執(zhí)行該步，即可提取其它圖紙的明細(xì)，所有提取的明細(xì)數(shù)據(jù)保存在同一 Excel表格中。
[0017]最后應(yīng)當(dāng)說(shuō)明的是，以上內(nèi)容僅用以說(shuō)明本發(fā)明的技術(shù)方案，而非對(duì)本發(fā)明保護(hù)范圍的限制，本領(lǐng)域的普通技術(shù)人員對(duì)本發(fā)明的技術(shù)方案進(jìn)行的簡(jiǎn)單修改或者等同替換，均不脫離本發(fā)明技術(shù)方案的實(shí)質(zhì)和范圍。
【主權(quán)項(xiàng)】
1.一種提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法，前提是CAD軟件已安裝VBA模塊，其特征在于，該方法的具體步驟是: 1)在桌面新建Excel表格，在表格的第一行依次輸入明細(xì)行各項(xiàng)對(duì)應(yīng)的名稱，將表格命名為“明細(xì)存放”; 2)打開(kāi)CAD軟件，在MicrosoftVisual Basic模式下插入過(guò)程及窗體，過(guò)程的功能是顯示窗體，窗體為選擇明細(xì)形式，保存并命名為acd.dvb文件，然后將其拷貝至CAD的安裝目錄下； 3)在CAD軟件里新添命令按鈕“提取明細(xì)”，并將該命令指向步驟2)中的插入過(guò)程； 4)提取明細(xì):在CAD窗口點(diǎn)擊“提取明細(xì)”，根據(jù)步驟2)中窗體提示進(jìn)行選取，然后依次選取明細(xì)行所在區(qū)域的左下角點(diǎn)和右上角點(diǎn)，即實(shí)現(xiàn)明細(xì)行中的內(nèi)容按照原始相對(duì)位置傳遞至“明細(xì)存放”表格中。2.根據(jù)權(quán)利要求1所述的提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法，其特征在于，若明細(xì)數(shù)據(jù)為本文格式，則其位置關(guān)系按如下公式計(jì)算:xlsheet.Cells ((loc (I) - pointl (I) + H * k) \ (H * k) + i, I) = ENT.TextString 其中H為行高，k為圖紙比例，i為當(dāng)前表格中的行數(shù)；k = (point2(0) - pointl (O))/ X，X為圖紙比例1:1時(shí)明細(xì)行總長(zhǎng)。
【專利摘要】本發(fā)明屬AutoCAD二次開(kāi)發(fā)領(lǐng)域，尤其涉及一種提取CAD圖紙明細(xì)內(nèi)容至Excel表格的方法。其技術(shù)方案是：新建Excel模板文件，打開(kāi)目標(biāo)圖紙，點(diǎn)擊“工具”菜單下的“提取明細(xì)”按鈕，窗體顯示選擇明細(xì)表的具體形式，然后依次選擇明細(xì)行所在區(qū)域的左下角點(diǎn)和右上角點(diǎn)，明細(xì)行內(nèi)容按照原有相對(duì)位置傳遞至Excel表格并給出提取成功的提示。本發(fā)明具有操作簡(jiǎn)單，準(zhǔn)確性和效率高的特點(diǎn)，適用于多種形式明細(xì)表內(nèi)容的提取。
【IPC分類】G06F9/44
【公開(kāi)號(hào)】CN105159685
【申請(qǐng)?zhí)枴緾N201510623382
【發(fā)明人】劉建洋, 張磊, 賀映才
【申請(qǐng)人】武漢中冶易新科技有限公司
【公開(kāi)日】2015年12月16日
【申請(qǐng)日】2015年9月28日