- 相關(guān)推薦
利用VBA編程實(shí)現(xiàn)從EXCEL表到AUTOCAD表轉(zhuǎn)換
摘要：該程序可將Excel表格中的所有單元格全部按原來大小、風(fēng)格轉(zhuǎn)換到AutoCAD文件中來。在轉(zhuǎn)換過程中，表格線條的轉(zhuǎn)換和文字轉(zhuǎn)換是重點(diǎn)。文字轉(zhuǎn)換采用了直接利用AddMtext命令提供的屬性進(jìn)行轉(zhuǎn)換，避免了已往修改形文件來進(jìn)行文字標(biāo)注的方法，直接控制表格文字字體、大小、下劃線、上下腳標(biāo)，傾斜，加粗等，使每個(gè)文字的風(fēng)格均可以得到很好的控制，極大提高了文字標(biāo)注的靈活性。
關(guān)鍵詞：計(jì)算機(jī)
---- 一、前言
---- Microsoft Excel 軟件具有十分強(qiáng)大的制表、表格計(jì)算等功能，是普通人員常用的制表工具�？梢酝ㄟ^其內(nèi)嵌的VBA語(yǔ)言可以控制Microsoft Excel 的整個(gè)操作過程。
---- AutoCAD是由AutoDesk公司的工程繪圖軟件，是CAD市場(chǎng)的主流產(chǎn)品，功能十分強(qiáng)大，是工程制圖人員常用的軟件之一。AutoDesk公司從R14版以后，為其提供了VBA語(yǔ)言接口。
---- 在工程制圖中，常常需要在圖中插入繪制表格，一般有兩種方法。其一，是利用剪貼板，將Microsoft Excel表格拷貝至剪貼板中，然后打開AutoCAD文件，再將剪貼板中的文件粘貼至所需位置。這種方法十分簡(jiǎn)單，但有其固有的缺點(diǎn)。①在保存文件必須將.xls和.dwg文件保存在一起，一旦缺少excel環(huán)境，則再對(duì)表格繼續(xù)修改。②同時(shí)打開多個(gè)表格操作，需要占據(jù)較大的內(nèi)存空間。③文件體積變得很大，表格有時(shí)在.dwg文件中以圖標(biāo)形式顯示，不便于觀察。
---- 第二種方法，即利用Microsoft Excel、AutoCAD都提供的VBA功能，編制程序進(jìn)行轉(zhuǎn)換，將Microsoft Excel表格按原來樣子轉(zhuǎn)換，即把Microsoft Excel表格中的文字和線條信息全部讀取出來，在AutoCAD文件里按照一一對(duì)應(yīng)的方式寫出來，確保轉(zhuǎn)換后的表格與原表格一致。這樣徹底避免了前種方法的缺點(diǎn)，便于表格內(nèi)容編輯。本文著重介紹此方法。
---- 二、表格轉(zhuǎn)換工作機(jī)理分析及具體實(shí)現(xiàn)方法
---- 1．表格轉(zhuǎn)換工作機(jī)理分析
---- 在制表過程中，經(jīng)常遇到兩個(gè)概念，表和方格。
---- 在Microsoft Excel中，與表對(duì)應(yīng)的對(duì)象是工作表（Sheet或Worksheet）,與每一個(gè)表格方格相對(duì)應(yīng)的對(duì)象是單元格區(qū)域（range），它可以僅包括一個(gè)單元格（cell）,也可以由多個(gè)單元格合并而成。
---- 在AutoCAD中，沒有與表對(duì)應(yīng)的對(duì)象，但表可以理解由若干條線和文字對(duì)象組合而成。
---- 根據(jù)上述分析，可以發(fā)現(xiàn)如下的轉(zhuǎn)換方法：
---- 讀取Microsoft Excel文件中的最小對(duì)象----單元格區(qū)域(range)的主要信息---線條和文字，然后在AutoCAD文件里在指定圖層、位置畫線條，書寫文字。通過循環(huán)，遍歷所有單元格區(qū)域(range),邊讀邊寫，最終完成表格的轉(zhuǎn)換。轉(zhuǎn)換過程中，保持線條、文字及其相關(guān)屬性不發(fā)生改變。
---- 下面就轉(zhuǎn)換工作的兩個(gè)主要對(duì)象表格線條和表格文字進(jìn)行討論。
---- 2、表格線條的轉(zhuǎn)換
---- Microsoft Excel 中內(nèi)嵌的VBA為我們獲取Excel文件信息提供了極大便利。通常，通過訪問range對(duì)象，可以獲得許多信息。訪問分析表格的屬性應(yīng)從分析range開始。每一個(gè)range包括許多對(duì)象和屬性,例如,font對(duì)象可以返回range的字體信息。通過遍歷,即可獲得整個(gè)表格信息。獲取表格信息的目的在于準(zhǔn)確地按照位置畫表格線，同時(shí)確定文字位置。
---- 在獲取表格信息時(shí)，存在一個(gè)最佳算法問題。以下就畫線問題為例，闡明問題和解決方法。
---- 假設(shè)表格由a(a
【利用VBA編程實(shí)現(xiàn)從EXCEL表到AUTOCAD表轉(zhuǎn)換】相關(guān)文章：
Visual C＃的Excel編程03-19
利用注冊(cè)表對(duì)WINDOWS 98進(jìn)行管理與維護(hù)03-18
利用相位調(diào)制器實(shí)現(xiàn)占空比可調(diào)的NRZ到RZ碼的碼型轉(zhuǎn)換03-07
抗生素效價(jià)測(cè)定中EXCEL表的多碟兼容性03-02
FoxproDBF數(shù)據(jù)庫(kù)轉(zhuǎn)換成SQLServer6.5表的幾種方法03-18
淺談利用VBA對(duì)word操作自動(dòng)評(píng)分提高課堂實(shí)效性研究03-01
Foxpro DBF數(shù)據(jù)庫(kù)轉(zhuǎn)換成SQL Server 6.5表的幾種方法03-20
論文開題報(bào)告表03-18