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