用VB在AutoCADR14中寫TEXT的方法

1、PAGE PAGE 35用 VB 在 AutoCAD R14 中寫 TEXT 的方法 AutoCAD 可以寫不同高寬比、不同角度、不同顏色的 TEXT。無論是用 AutoCAD 的 TEXT 命令，還是用 AutoLISP，都是很容易做到的，用 VB 是否也很容易哪？我們來看下面一段示例：Public objAcad As ObjectPublic objDoc As ObjectDim ent As ObjectDim startPoint(0 To 2) As DoubleDim Point1(0 To 2) As DoubleSet objAcad = GetObject(, AutoC

2、AD.Application) 獲得AutoCAD R14對(duì)象Set objDoc = objAcad.ActiveDocument 初始化 TEXT 的起點(diǎn)startPoint(0) = 10#startPoint(1) = 10#startPoint(2) = 0# 寫一串 TEXT, 其中字高為 5Set ent = objDoc.ModelSpace.AddText(textString, startPoint, 5#) 初始化 TEXT 的調(diào)整點(diǎn)Point1(0) = 20#Point1(1) = 10#Point1(2) = 0#With ent .Color = 1 改用紅色 .

3、ObliqueAngle = 0.174444 改傾斜角度 .VerticalAlignment = 0 設(shè)垂直位置為 0 .ScaleFactor = 1# 設(shè)文字高寬比，當(dāng)需要兩端對(duì)齊時(shí)，必須任意給一個(gè)值 .HorizontalAlignment = 5 設(shè)文字為兩端對(duì)齊 .TextAlignmentPoint = Point1 設(shè)對(duì)齊點(diǎn)End WithSet objAcad = Nothinga VB應(yīng)用程序中用DDE功能開發(fā)AutoCAD for Windows目前，許多工程CAD系統(tǒng)是以AutoCAD作為支撐軟件，在其基礎(chǔ)上進(jìn)行二次開發(fā)而形成的。AutoCAD R12 for Win

4、dows 以AutoLISP和ADS作為二次開發(fā)工具，但它們都有不足之處，AutoLISP速度慢，沒有友好的開發(fā)環(huán)境，ADS是基于C語言的開發(fā)環(huán)境，而C語言面向Windows編程本身難以掌握，因此AutoLISP和ADS的使用都受到一定的限制。VB是Windows下主要的開發(fā)工具之一，它的“可視性”和“事件驅(qū)動(dòng)性”簡(jiǎn)化了面向Windows的編程，深受廣大用戶的青睞。Windows下，VB和AutoCAD都支持強(qiáng)有力的DDE(動(dòng)態(tài)數(shù)據(jù)交換)功能，用VB編寫具有DDE功能的程序來控制AutoCAD，既能與AutoCAD交換各種復(fù)雜的數(shù)據(jù)結(jié)構(gòu)，又能向AutoCAD發(fā)送命令，由此開發(fā)出的應(yīng)用程序能滿足

5、用戶的需要，同時(shí)又縮短了開發(fā)周期。本文結(jié)合實(shí)例介紹了用VB開發(fā)AutoCAD的途徑與方法。 一、直接利用DDE功能開發(fā) DDE是Windows的強(qiáng)大功能之一，它可以使應(yīng)用程序自動(dòng)地接收由其它應(yīng)用程序發(fā)送來的數(shù)據(jù)，當(dāng)傳送端的數(shù)據(jù)有變化時(shí)，接收端的數(shù)據(jù)也會(huì)隨之改變，也可將命令或鍵盤輸入傳遞給其它程序，實(shí)現(xiàn)遠(yuǎn)程控制。在VB編程環(huán)境中，創(chuàng)建應(yīng)用程序的方法很簡(jiǎn)單，首先是設(shè)計(jì)用戶界面，也就是在空白窗體中放入所需要的控件，如命令按鈕，單選鈕，文本框，標(biāo)簽，圖片框等，然后針對(duì)各控件上要發(fā)生的事件(如鼠標(biāo)單擊，鼠標(biāo)移動(dòng)等)書寫事件過程，最后將編寫的應(yīng)用程序運(yùn)行，調(diào)試，生成執(zhí)行文件即可。VB中能和其它Window

6、應(yīng)用程序建立DDE通道的控件有文本框，標(biāo)簽和圖片框。下面結(jié)合簡(jiǎn)單實(shí)例，說明VB應(yīng)用程序與AutoCAD間建立DDE通道和交換數(shù)據(jù)的方法。在VB中啟動(dòng)一個(gè)新項(xiàng)目，參見圖(1)建立窗體，其中“建立鏈接”，“直線”，“標(biāo)注”，“退出”為命令按鈕，標(biāo)有“Text1”的為文本框，用于建立DDE通道，并輸入下面的事件代碼。 Option ExplicitPrivate Sub cmdLine_Click() 畫直線Text1.LinkExecute 33line 3,3 8,8 3End SubPrivate Sub cmdText_Click() 標(biāo)注文字Text1.LinkExecute 33text

7、 10,10 1 90 AUTOCAD!10End SubPrivate Sub cmdLink_click() 建立鏈接Text1.LinkMode = 0Text1.LinkTopic = autocad.dde|systemText1.LinkMode = 2End SubPrivate Sub cmdExit_click() 退出EndEnd Sub 運(yùn)行此應(yīng)用程序，注意在運(yùn)行前，一定要先加載AutoCAD。單擊“建立鏈接”按扭，cmdLink_Click()過程被執(zhí)行，執(zhí)行時(shí)設(shè)置文本框Text1的LinkTopic和LinkMode的屬性，完成VB應(yīng)用程序與AutoCAD間DDE通道

8、的建立。LinkTopic屬性用于通知AutoCAD由誰來提供數(shù)據(jù)，它被管道符“|”分成兩部分，第一部分“AutoCAD.DDE”為應(yīng)用程序名，第二部分“System”是通訊的主題。LinkMode屬性用于切實(shí)建立鏈接，在LinkMode=0時(shí)，表示關(guān)閉以前的DDE通道，在LinkMode=2時(shí)，表示以手動(dòng)模式激活DDE通道。在完成DDE鏈接后，VB應(yīng)用程序就可以與AutoCAD間進(jìn)行數(shù)據(jù)交換或命令傳送了。單擊“直線”按扭，cmdLine_Click()過程被執(zhí)行，應(yīng)用程序通過LinkExecute方法向AutoCAD發(fā)送命令，在AutoCAD中以點(diǎn)(3,3)和(8,8)為端心，畫一條直線。語

9、句中的3相當(dāng)于AutoCAD中的取消鍵Ctrl+C，空格相當(dāng)于AutoCAD中的回車鍵。單擊“標(biāo)注”按扭，執(zhí)行cmdText_Click()過程，可在AutoCAD中顯示以(10,10)為基點(diǎn)，高為1，旋轉(zhuǎn)角度為90的字符串“AutoCAD!”。語句中的10相當(dāng)于AutoCAD中的回車鍵，在標(biāo)注文字時(shí)不能用空格代替回車鍵。根據(jù)需要，可用上面的方法傳送AutoCAD的其它命令，實(shí)現(xiàn)對(duì)AutoCAD的開發(fā)。二、通過調(diào)用VB ADS開發(fā) 上面介紹了在VB應(yīng)用程序中直接利用DDE與AutoCAD作用實(shí)現(xiàn)開發(fā)的方法，此方法要求用戶自己建立與AutoCAD間的DDE通道，此外，我們還可以通過調(diào)用VB AD

10、S函數(shù)對(duì)AutoCAD進(jìn)行開發(fā)。在VB ADS函數(shù)庫(kù)中已有專門的函數(shù)負(fù)責(zé)建立應(yīng)用程序與AutoCAD間的DDE通道，而不需用戶親自建立，較為方便。另外，VB應(yīng)用程序還可以通過VB ADS函數(shù)向AutoCAD發(fā)送數(shù)據(jù)和命令，同時(shí)也可以利用VB ADS函數(shù)的返回值來獲得AutoCAD的數(shù)據(jù)，實(shí)現(xiàn)對(duì)AutoCAD更深入的開發(fā)。為了利用AutoCAD的VB ADS函數(shù)建立VB的應(yīng)用程序，AutoCAD提供了幾個(gè)VB ADS支撐文件，這些文件除DDEBAS.EXE和ACADVB.DLL存放在C:ACADWIN子目錄外，其余都存放在C:ACADWINVBNEW子目錄中。文件如下:1. DDEBAS.EXE

11、-ADS/DDE服務(wù)者，為保證VB于AutoCAD 間正常通信，此命令必須首先在AutoCAD中用XLOAD命令加載運(yùn)行。2. ACADVB.DLL-VB ADS動(dòng)態(tài)連接庫(kù)，在運(yùn)行VB應(yīng)用程序前，應(yīng)將其拷到C:WINDOWSSYSTEM子目錄下。3. GLOBAL.BAS-VB ADS應(yīng)用程序中所需要使用的全局變量定義文件。4. ADSFUNCS.BAS-VB ADS函數(shù)庫(kù)，可以在VB應(yīng)用程序中直接調(diào)用。5. ADSFUNCS.FRM-包含有應(yīng)用程序和AutoCAD間建立DDE鏈接的窗體文件。 下面結(jié)合具體的例子，說明利用VB ADS函數(shù)開發(fā)應(yīng)用程序的方法。 HJ 啟動(dòng)VB，打開C:ACADW

12、INVBNEWNEWPROJ.MAK項(xiàng)目文件，參見圖 2建立新窗體，并輸入如下的事件代碼。 Option ExplicitPrivate Sub Form_Load()DDE_TIMEOUT = -1 等待DDE事件txtX.Text = 5 圓心，半徑的隱含值txtY.Text = 5txtRadius = 3End SubPrivate Sub cmdCircle_Click() 畫圓過程Dim ret As IntegerDim pt As ads_point 定義Ads點(diǎn)類型Dim Radius As DoubleDim Apndll As ApndLLType 定義增加鏈表類型Dim

13、 Resbuf As ResbufType 定義結(jié)果緩沖器pt.X = val(Trim(txtX.Text)給圓心，半徑賦值pt.Y = val(Trim(txtY.Text) Radius = val(Trim(txtRadius.Text)ret% = ads_newrb(10, Resbuf)建立新的結(jié)果緩沖器Resbuf.hResbuf = 0 Apndll.apType = RTSTR說明鏈表類型為字符串Apndll.apString = circle + Chr$(0)鏈表賦值ret% = ApndLLNode(Resbuf, Apndll) 增加鏈表到結(jié)果緩沖器Apndll.a

14、pType = RTPOINTApndll.apPoint = ptret% = ApndLLNode(Resbuf, Apndll)Apndll.apType = RTREALApndll.apReal = Radiusret% = ApndLLNode(Resbuf, Apndll) Apndll.apType = RTNONE 鏈表結(jié)束值類型ret% = ApndLLNode(Resbuf, Apndll)ret% = ads_cmd(Resbuf) 執(zhí)行結(jié)果緩沖器的命令ret% = ads_relrb(Resbuf) 釋放結(jié)果緩沖器End SubPrivate Sub cmdExit_

15、Click() 退出過程EndEnd Sub在應(yīng)用程序運(yùn)行前，必須首先運(yùn)行AutoCAD，并用命令(XLOAD DDEBAS)加載DDEBAS. EXE。在上面的應(yīng)用程序中，除語句DDE_TimeOut-1外，沒有其它涉及建立DDE通道的語句，因?yàn)閼?yīng)用程序與AutoCAD間建立DDE通道所需要的代碼已保存在VB ADS 函數(shù)庫(kù)中，打開支撐文件adsfuncs.bas，可以發(fā)現(xiàn)Sub OPENDDE()過程，它負(fù)責(zé)VB應(yīng)用程序與AutoCAD間DDE通道的建立，所以用戶在開發(fā)應(yīng)用程序時(shí)，只管調(diào)用VB ADS函數(shù)即可。例子中的cmdCircle_Click()過程，是在VB 4.0編程環(huán)境通過調(diào)用

16、VB ADS函數(shù)開發(fā)的，運(yùn)行程序后在文本框中輸入半徑和圓心的值，單擊“畫圖”按扭，即可在AutoCAD中得到所需的圓。c VB應(yīng)用程序編制實(shí)例 VB自1991年問世以來，已從1.0版步入到功能十分強(qiáng)大的5.0版。VB以其開發(fā)軟件周期短、操作簡(jiǎn)單、可視化程度高的優(yōu)點(diǎn)倍受編程人員的青睞。近幾年來，許多Windows程序員應(yīng)用VB作為編程語言，開發(fā)了大量的應(yīng)用軟件。本文通過幾個(gè)實(shí)例說明了VB的強(qiáng)大功能。一、工具棒的建立方法 Windows應(yīng)用程序的操作界面都含有大量的圖標(biāo)，這些圖標(biāo)集中放在某一個(gè)區(qū)域形成工具棒(Toolbars), 工具棒中的圖標(biāo)用圖示的方法表示某一種功能，可以加速操作，在某些Win

17、dows應(yīng)用程序中還把這些工具棒直接稱為加速棒（Speedbars）。下面介紹編制工具棒的方法。 在窗體上畫一個(gè)足夠大的圖片框，使用這個(gè)圖片框可以存放圖標(biāo)。設(shè)置圖片框的Align屬性，使圖片框列在窗口的頂部，即窗體名控件名Align=1. 在圖片框中增加影像控件(Image Control)數(shù)組或者三維命令控制按鈕數(shù)組(3D Command Button Control)。改變控件的Picture屬性，輸入圖形，圖形的格式為：*.BMP,*.DIB,*.WMF,*.ICO。 下面的實(shí)例介紹了工具棒的建立方法，具體步驟為： 1建立一個(gè)圖片框，取名為Demo(即Name屬性為Demo)，設(shè)置Ali

18、gn屬性，即 Demo.Align=1 2在圖片框上增加三維命令按鈕，設(shè)置Name屬性為Tool，設(shè)置Index的屬性為0(第一個(gè)控件)，改變 Picture 屬性，輸入圖示化的圖形(文件)。改變提示信息，設(shè)置Caption取值為空。 3增加三維命令按鈕控件，設(shè)置Name屬性為Tool，注意使Index屬性分別為1，2，。 4建立窗體Paint事件過程Sub FormPaint()Demo.ScaleHeight = Tool(0).Height 設(shè)置工具棒的高度iw = Tool(0).Width 獲取第一個(gè)圖標(biāo)的寬度，用于設(shè)置其他的圖標(biāo)寬度For i = 0 To 3Tool(i).Hei

19、ght = Demo.ScaleheihtTool(i).Width = iwTool(i).AutoSize = 1 設(shè)置圖標(biāo)中的圖形充滿整個(gè)圖形框Tool(i).Move iw i, 0 重新排列所有圖標(biāo)的位置Next iEnd Sub 5.建立圖標(biāo)事件過程 為工具棒中的每一個(gè)圖標(biāo)增加一個(gè)過程，執(zhí)行相應(yīng)的命令：Sub Tool_Click(index As Integer)If index = 0 ThenTool (0). Picture = Load(animal.bmp) 更換第一個(gè)圖標(biāo)中圖像ElseIf index = 1 Thenj = Shell(calc.exe, 1) 執(zhí)行

20、WINDOWS95計(jì)算重新CALC.EXEElseIf index = 2 Then End 中止程序的執(zhí)行End IfEnd Sub在實(shí)際應(yīng)用中，程序員可以發(fā)揮自己的想象力，從而完善工具棒的功能。AutoCAD中表格自動(dòng)化工程圖紙中經(jīng)常遇到大量表格填寫，例如工程勘察中的成果表、設(shè)計(jì)的材料表，在AutoCAD中文字處理比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫的表格既不美觀，還容易出錯(cuò)。在一些雜志中有關(guān)表格填寫程序介紹，但是使用不方便，也不能連續(xù)填寫多個(gè)表格，長(zhǎng)距離線路勘察中線轉(zhuǎn)點(diǎn)少則幾十個(gè)，多則上千，中線數(shù)據(jù)可由計(jì)算直接生成，能否利用中線數(shù)據(jù)直接填表出圖。利用AutoCAD

21、二次開發(fā)，編寫中線成果填寫程序（zxcglsp），改變以往出圖工序（填寫、校對(duì)），大大提高工作效率。一、程序功能與編寫說明1、本程序具有下列功能：（1）直接在文本編輯器（EDIT、QE、WPS等等）編輯、修改數(shù)據(jù)，免去AutoCAD文字編輯、修改之不便；（2）可以自動(dòng)分頁(yè)，自動(dòng)填寫工程名稱、檔案號(hào)、日期等等；（3）可以自動(dòng)處理中線成果數(shù)據(jù)前后的空格，例如：“123123123”將自動(dòng)轉(zhuǎn)化為“123123123”；（4）可以自動(dòng)識(shí)別兩種工程名稱數(shù)據(jù)文件；（5）文本狀態(tài)下數(shù)據(jù)正確無誤，出圖前無需在AutoCAD中修改，調(diào)圖速度和重新成圖速度相差無幾，可直接保存數(shù)據(jù)文件，節(jié)省磁盤空間。2、程序說明：

22、程序利用AutoLISP的計(jì)算、判斷、字符處理、循環(huán)結(jié)構(gòu)以及調(diào)用Text命令等功能對(duì)讀入的數(shù)據(jù)進(jìn)行處理后填寫，與本程序?qū)?yīng)的Zxcgdwg圖形文件含四個(gè)表格圖塊，程序中的有關(guān)參數(shù)均取決于四個(gè)圖塊。二、使用說明1、關(guān)于中線成果數(shù)據(jù)格式：（1）無曲線第一行，總點(diǎn)數(shù)（N）第二至七行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標(biāo)X、Y、轉(zhuǎn)角（B）重復(fù)二至七行（沒有數(shù)據(jù)項(xiàng)用空行代替）（2）有曲線第一行，總點(diǎn)數(shù)（N）第二至十一行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標(biāo)X、Y、轉(zhuǎn)角B，半徑R，切線長(zhǎng)T、曲線長(zhǎng)L、外矢矩E重復(fù)二至十一行（沒有數(shù)據(jù)項(xiàng)用空行代替）2、關(guān)于工程名稱數(shù)據(jù)格式：（1）單標(biāo)題第

23、一行，工程名稱第二行，檔案號(hào)（如測(cè)3777表，只需輸入3777）第三行，日期（可省略，取當(dāng)前日期）（2）雙標(biāo)題第一行，工程名稱大標(biāo)題第二行，工程名稱小標(biāo)題第三行，檔案號(hào)（如測(cè)3777表，只需輸入3777）第四行，日期（可省略，取當(dāng)前日期）三、加載及運(yùn)行在AutoCADR12（或AutoCADforWindows）中，把Zxcglsp和Zxcgdwg拷貝到SUPPORT子目錄下，用鼠標(biāo)點(diǎn)文件（File）下應(yīng)用程序（Applications），或在Command：下敲入Appload加載Zxcglsp，或在Command：下敲入（Load“Zxcg”）即可。然后在Command：下敲入ZX運(yùn)行程序

24、，本程序?qū)⒅形奶崾?。四、結(jié)束語該應(yīng)用程序提供了兩種形式的表格，有興趣的AutoCAD用戶不妨增加幾種表格，修改程序中對(duì)應(yīng)的參數(shù)即可。附源程序 ERROR（DEFUNERR（X）；IFANERROR（SUCHASCTRLC）OCCURS；WHILETHISCOMMANDISACTIVE（IF（AND（XFUNCTIONCANCELLED）（XQUITEXITABORT）（PPINC（STRCATnERROR：X）（SETVARCMDECHO1）（SETVERBLIPMODE1）（IF（TYPERF）FILE）（CLOSERF）（IF（TYPERN）FILE）（CLOSERN）（SETQRFNIL

25、）（SETQRNNIL）（SETQERROROLDERR）；RESTOREOLDERRORHANDLER（PRINC）FILETOREAD（DEFUNINPUT（）（IF（FF1nil）（SEFQFF1（GETVARDWGPREFIX）（SETQF1（GETFILED請(qǐng)輸入中線成果數(shù)據(jù)文件FF1DAT12）（SETQLF（STRLENF1）FF1（SUBSTRF11（LF4）（IF（FF2nil）（SETQFF2FF1）（SETQF2（GETFILED請(qǐng)輸入工程名稱文件FF2TXT12）（SETQLF（STRLENF2）FF2（SUBSTRF21（LF4）（initgetYesNo）（setq

26、YN（getkwordn請(qǐng)選擇有曲線元素YesNo：（N）（if（YNnil）（SETQYNNo）DATAFORPROGRAMME（DEFUNDDAT（）（SETQRF（OPENF1r）（SETQRN（OPENF2r）（SETQGN（READLINERN）GG1DAH（READLINERN）（IF（ATOIDAH）0）（PROGN（SETQGG2GN2DAHDAH（READLINERN）（SETQDAT（READLINERN）（IF（DATNIL）（PROGN（SETQDAT（GETVARCDATE）；取當(dāng)前日期（SETQDAT（FIXDAT）（SETQDAT（ITOADAT）（SETQYY（

27、SUBSTRDAT14）MM（SUBSTRDAT52）（SETQDD（SUBSTRDAT72）DAT（STRCATYYMMDD）（SETQNO（READLINERF）N（ATOINO）（SETQNF26NN29）；首、次頁(yè)行數(shù)（SETQM（FIX（NNF）NN）2）：計(jì)算頁(yè)數(shù)（SETQNL（REM（NNF）NN）（IF（NL0）（SETQM（M1）NLNN）（IF（NNF）PROGN（SETQM1）（SETQNLN）（princ共讀入）（PRINCN）（PRINC點(diǎn)，分）（PRINCM）（PRINC頁(yè)填寫?。⊿ETQYY8XX230）；行距、頁(yè)距（SETQI1X00Y00DAH（STRCAT

28、測(cè)DAH）（IF（YNNO）（SETQDI（LIST678581035812508150081800820808）（SETQDI（LIST10719088391055812261140301568317286188072080023273）；表格項(xiàng)數(shù)及各項(xiàng)橫坐標(biāo)（X）（SETQYYF2850YYN3057）；首、次頁(yè)第一行縱坐標(biāo)刪除數(shù)據(jù)前后空格（QKG）（DEFUNQKG（）（SETQLE1）（WHILE（LE（STRLENTXT）（RPOGN（SETQLF（1LE）（WHILE（SUBSTRTXT11）（PROGN（SETQTXT（SUBSTRTXT2（STRLENTXT）（SETQLE（S

29、TRLENTXT）（IF（LE2）（WHILE（AND（SUBSTRTXTLE1）（LE2）（PROGN（SETQLE（LE1）TXT（SUBSTRTXT1LE）ZXTX（DEFUNZXTX（）（PRINCn正在填寫中線成果數(shù)據(jù)，請(qǐng)稍候！）（WHILE（IM）（PROGN（SETQPT0（LISTX0Y0）（SETQP1（LIST（X02360）3485）（SETQP2（LIST（X02070）3420）（SETQP3（LIST（X02270）3420）（SETQP4（LIST（X02222）3356）（IF（YNNo）（IF（I1）（SETQZXPZXF）（SETQZXPZXN）；圖塊選擇（

30、IF（I1）（SETQZXQZXF）（SETQZXQZXN）（COMMANDINSERTZXPT010）（IF（I1）（PROGN（SETQP2（LIST（X02070）3360）（SETQP3（LIST（X02270）3360）（SETQP4（LIST（X02222）3296）（SETQP5（LIST（X01251）3295）（SETQP6（LIST（X01859）3295）（IF（GG2）（PROGN（SETQP5（LIST（X01251）3335）（SETQP6（LIST（X01859）3335）（SETQP7（LIST（X01351）3235）（SETQP8（LIST（X01759）3

31、235）（COMMANDTEXTSHZJAP5P6GN）（COMMANDTEXTJMP4250DAT）（IF（GG2）（COMMAND）TEXTJAP7P8GNZ）（IF（I1）（SETQJNF）（SETQJNN）用VB5直接控制Excel 97用VB5可編寫直接控制Excel操作的程序,方法是用VB的OLE自動(dòng)化技術(shù)獲取Excel 97 的控制句柄,從而直接控制Excel 97的一系列操作。與用VBA語言編寫的Excel控制程序相比,兩者主要有如下差異: 1. 實(shí)現(xiàn)VB5對(duì)Excel的直接控制后,可在用戶所編的程序中調(diào)用Ex cel,即從控制界面直接調(diào)入Excel,且退出Excel后又回到控

32、制界面,使人看起來就如Excel是依附于用戶程序上。這給既想獲取Excel的強(qiáng)大支持,又想編寫傻瓜軟件交給不熟悉計(jì)算機(jī)的用戶使用的程序員來說,其好處是不言而喻的。VBA則必須依附于特定的Excel環(huán)境,且只有先進(jìn)入確定的Excel環(huán)境后,才能運(yùn)行VBA程序。 2. 用VB5實(shí)現(xiàn)Excel的控制后,所有程序可編譯成完整的EXE執(zhí)行文件,直接在Win 95 /NT平臺(tái)上執(zhí)行,運(yùn)行環(huán)境更為簡(jiǎn)潔明了,程序更易加密。不會(huì)因?yàn)橛卸鄠€(gè)程序指令塊帶來管理麻煩,也不易因用戶的不小心使用而出現(xiàn)程序丟失,造成功能短缺。VBA編寫的程序最大的不方便是不能編譯成執(zhí)行文件,不能脫離其主應(yīng)用程序獨(dú)立運(yùn)行。 3. VBA在E

33、xcel環(huán)境中,幾乎是一個(gè)萬能的工具,可通過建立功能強(qiáng)大的宏指令來擴(kuò)展或模擬Excel的全部功能。而VB的OLE自動(dòng)技術(shù)目前還不能實(shí)現(xiàn)Excel所有功能的模擬與控制。 操作步驟 用VB5控制Excel 97的操作步驟如下: 1. 引用Microsoft Excel類型庫(kù): *從工程菜單中選擇引用欄; *選擇Microsoft Excel 8.0 Object Library; *選擇確定。 2. 聲明顯式數(shù)據(jù)類型: Dim x1 as Excel.Application 3. 創(chuàng)建新實(shí)例,獲取Excel的控制句柄: Set x1=CreatObject(Excel.Application) 4

34、. 由于Excel 97啟動(dòng)為不可見,調(diào)用后需使其顯示出來: x1.Visible=True 5. 交還Excel控制句柄: Set x1=Nothing 同理,用此方法也可直接控制Word、Access等Microsoft Office 97的其他應(yīng)用軟件,享受其便利和支持。 操作程序 Private Sub Contral_Excel_97() Dim x1 as Excel.Application 聲明顯式數(shù)據(jù)類型 Set x1=CreateObject(Excel.Application) 創(chuàng)建新實(shí)例 x1.Workbooks.Add 添加新工作簿 x1.Range(A1).Value

35、=5A1格賦值 x1.Range(A2).Value=8A2格賦值 x1.Range(A3).Value=16 A3格賦值 x1.Range(A4).Value=7A4格賦值 x1.Charts.Add 插入圖形 x1.ActiveChart.ChartType=x1ColumnClustered 柱狀圖 x1.ActiveChart.SetSourceData Source:=x1.Sheets(Sheet1) .Range(A1:A4) PlotBy:=x1Columns 圖形數(shù)據(jù)來源 With x1.ActiveChart 圖標(biāo)題 .HasTitle=False 沒有總標(biāo)題 .Axes(

36、x1Category,x1Primary).HasTitle=False .Axes(x1Value,x1Primary).HasTitle=True 有Y軸標(biāo)題 .Axes(x1Value,x1Primary).AxisTitle.Characters .Text=銷售電視機(jī)(臺(tái)) End With With x1.ActiveChart.PageSetup 圖形頁(yè)面設(shè)置 .CenterHeader=&28 & ListSTNM(Combo2. ListIndex)&逐日電視機(jī)銷售 標(biāo)題 .CenterFooter=&12x x x 商場(chǎng)下邊落款 .RightFooter=Format(No

37、w,yyyy-m-d-h:n) 右下角顯示時(shí)間 .Orientation=x1Landscape 打印紙頁(yè)面橫向 End With x1.ActiveChart.PlotArea.Interior.ColorIndex=x1None 無背景色 x1.ActiveWindow.SelectedSheets.PrintPreview 打印預(yù)覽 x1.Visible=True 顯示圖形 Set x1=Nothing 交還控制句柄 VB中使用Word的“藝術(shù)字”工具Word 97中的“藝術(shù)字”工具(WordArt)能創(chuàng)建出各種各樣的文字，令人賞心悅目。如果能在VB中使用“藝術(shù)字”該有多好?。∮捎谟辛嗣?/p>

38、向?qū)ο蠹夹g(shù)中的代碼重用思想，現(xiàn)在就可以輕松地實(shí)現(xiàn)這個(gè)愿望了。 代碼重用主要有兩種形式，即二進(jìn)制代碼重用與源代碼重用。前者是通過創(chuàng)建和使用對(duì)象來實(shí)現(xiàn)的；后者，顧名思義，是通過繼承實(shí)現(xiàn)的，后者在C+語言中被廣泛使用。由于Visual Basic不支持繼承，所以在VB中的代碼重用主要是指二進(jìn)制代碼重用，并且VB算得上是二進(jìn)制代碼重用的先驅(qū)。它的基本思路是：首先將待重用的代碼和數(shù)據(jù)編譯為二進(jìn)制文件，稱為ActiveX服務(wù)器部件，然后在客戶應(yīng)用程序里創(chuàng)建部件中類的對(duì)象來調(diào)用該部件。在VB中最為人們所熟悉的控件就是典型的二進(jìn)制代碼重用的例子，每個(gè)控件都是一個(gè)ActiveX部件，在向窗體中添加一個(gè)控件的同時(shí)

39、就創(chuàng)建了該控件類的一個(gè)新實(shí)例，然后通過調(diào)用該控件的屬性、方法和事件就重用了該控件中的代碼。 Word 97本身就是一個(gè)龐大的代碼部件，也就是說，Word 97中的整個(gè)對(duì)象庫(kù)是對(duì)外開放的，它允許其他應(yīng)用程序?qū)ζ溥M(jìn)行編程。換句話說，Word 97中的對(duì)象能被其他應(yīng)用程序所調(diào)用。而“藝術(shù)字”正是Word 97中的一種對(duì)象，因此可以方便地在VB中調(diào)用它。 要使用“藝術(shù)字”，必須先把Word 97的對(duì)象庫(kù)加入到程序中，然后創(chuàng)建一個(gè)對(duì)象變量來保持對(duì)Word應(yīng)用程序?qū)ο蟮囊?，可以用兩種方法創(chuàng)建對(duì)Word應(yīng)用程序?qū)ο蟮囊?，一種方法是直接聲明一個(gè)Word應(yīng)用程序的對(duì)象變量，例如： Dim w As New

40、Word.Application 這種方法稱為前期綁定，它速度較快；另一種方法是聲明一個(gè)對(duì)象變量w，然后把用CreateObject函數(shù)創(chuàng)建出的Word應(yīng)用程序?qū)ο筚x給w，例如： Dim w As Object Set w=CreateObject(Word.Application) 這種方法稱為后期綁定，它速度較慢。在創(chuàng)建了Word應(yīng)用程序?qū)ο蠛螅涂梢砸源a的方式像在Word中進(jìn)行具體操作那樣創(chuàng)建新文檔，并在文檔中加入“藝術(shù)字”。在創(chuàng)建好“藝術(shù)字”之后，用剪貼板將其傳給窗體。在創(chuàng)建Word應(yīng)用程序?qū)ο髸r(shí)，VB會(huì)在后臺(tái)自動(dòng)打開Word，因此，在程序結(jié)束時(shí)，應(yīng)該先關(guān)閉Word，其代碼如下： w

41、.Quit wdDoNotSaveChanges 下面用一個(gè)具體的項(xiàng)目實(shí)例幫你輕松學(xué)習(xí)如何在VB中使用Word對(duì)象。 (1)啟動(dòng)Microsoft Visual Basic 5.0，選擇“標(biāo)準(zhǔn)EXE”，創(chuàng)建一個(gè)新項(xiàng)目； (2)選擇“項(xiàng)目”菜單中的“引用”選項(xiàng)，顯示“引用”對(duì)話框，選中Microsoft Word 8.0 Object Library和Microsoft Office 8.0 Object Library兩項(xiàng)，單擊“確定”按鈕（見圖1）； 添加對(duì)Word對(duì)象庫(kù)的引用 (3)將下列代碼加入到Form1的“通用”|“聲明”選項(xiàng)中： Dim w As New Word.Applicat

42、ion (4)將下列代碼加入到Form1的Load事件中： Private Sub Form_Load() w.Documents.Add.Select w.ActiveDocument.Shapes.AddTextEffect(0,藝術(shù)字,隸書,48#,-1,0,183.75,70.5).Select End Sub 這里顯示的字樣是隸書的“藝術(shù)字”三個(gè)字，你可以根據(jù)自己的喜好來改變字體（如宋體、楷體等）以及改變字樣； (5)將下列代碼加入到Form1的Click事件中： Private Sub Form_Click() w.Selection.ShapeRange.TextEffect.P

43、resetTextEffect = Int(Rnd(1) * 30) w.Selection.ShapeRange.TextEffect.FontName = 隸書 w.Selection.Copy Picture = Clipboard.GetData() End Sub (6)將下列代碼加入到Form1的Unload事件中： Private Sub Form_Unload(Cancel As Integer) w.Quit wdDoNotSaveChanges Set w = Nothing End Sub (7)在窗體上放置一個(gè)按鈕，其Caption屬性為Exit，并在它的Click事件

44、中處理退出： Private Sub Command1_Click() End End Sub (8)運(yùn)行程序后，當(dāng)鼠標(biāo)在窗體上單擊時(shí)，會(huì)隨機(jī)地顯示出一種“藝術(shù)字”字型（Word中共有30種內(nèi)建“藝術(shù)字”字型），下圖分別給出了隸書與宋體兩種不同字體的字樣為“藝術(shù)字”的幾種情形。 在VB窗體中顯示的Word中的“藝術(shù)字”，左面是隸書，右面是相應(yīng)的宋體 同樣，由這個(gè)實(shí)例可以舉一反三，即我們也可以在VB中使用Excel的圖表、PowerPoint的幻燈片，因?yàn)镺ffice 97中的產(chǎn)品都是代碼部件，這些產(chǎn)品中的對(duì)象庫(kù)都是可以被其他應(yīng)用程序調(diào)用的，所以只要了解這些對(duì)象的外部接口（屬性、方法和事件），就

45、可以方便地調(diào)用這些對(duì)象了。PCC 基于AutoCAD R14和VB5開發(fā)的數(shù)控自動(dòng)編程系統(tǒng)1引言數(shù)控零件加工程序的編制是進(jìn)行數(shù)控加工的一個(gè)重要步驟，國(guó)內(nèi)外數(shù)控加工統(tǒng)計(jì)說明，造成數(shù)控機(jī)床等待約20%30%是編程不及時(shí)所致，可見數(shù)控編程直接影響著數(shù)控機(jī)床的加工效率。隨著數(shù)控技術(shù)應(yīng)用的日益擴(kuò)大，我國(guó)企業(yè)在數(shù)控自動(dòng)編程應(yīng)用方面已有較大發(fā)展，目前主要有以下三種自動(dòng)編程方式。(1)采用數(shù)控編程語言的自動(dòng)編程。最著名的是APT(Automatically Programmed Tools)語言。(2)計(jì)算機(jī)輔助圖形設(shè)計(jì)的自動(dòng)編程。采用CAD方法，將設(shè)計(jì)好的零件圖形顯示在屏幕上，編程人員指定要加工的表面，并回

46、答軟件提出的一些問題，諸如對(duì)刀點(diǎn)、走刀方式、切削用量參數(shù)等，然后由系統(tǒng)進(jìn)行自動(dòng)編程，形成刀位數(shù)據(jù)文件或APT程序，再經(jīng)后置處理，變成機(jī)床所需的NC代碼。(3)從CAD獲取信息的自動(dòng)編程。編程所需的零件形狀信息直接從CAD那里得到，一般利用AutoCAD提供的圖形交換文件DXF接口，編程人員只需進(jìn)行適當(dāng)工藝處理。由于圖紙上給出的零件形狀數(shù)據(jù)往往比較少，而數(shù)控系統(tǒng)的插補(bǔ)功能要求有較多的數(shù)據(jù)才能控制機(jī)床。尤其是當(dāng)數(shù)控系統(tǒng)插補(bǔ)功能要求輸入的數(shù)據(jù)與零件形狀給出的數(shù)據(jù)不一致時(shí)，就需要進(jìn)行復(fù)雜的數(shù)學(xué)運(yùn)算，而在運(yùn)算過程中可能產(chǎn)生人為的錯(cuò)誤。而這些復(fù)雜的數(shù)學(xué)運(yùn)算可由計(jì)算機(jī)快速、準(zhǔn)確地完成。NC程序作為數(shù)控加工的

47、信息載體，其正確與否直接影響零件加工質(zhì)量。目前實(shí)際生產(chǎn)使用的NC程序，在投入加工之前通常采用機(jī)床空運(yùn)行和木模、蠟?zāi)５脑嚽?，完成NC程序的檢查。該方法加工準(zhǔn)備周期長(zhǎng)，生產(chǎn)成本增加，難以實(shí)現(xiàn)數(shù)控機(jī)床的高效生產(chǎn)。圖形仿真是目前CAD/CAPP/CAM系統(tǒng)中通用的NC檢驗(yàn)方法。本文介紹了作者開發(fā)的數(shù)控軟件(Numerical Control Automatic Programming SystemNCAPS)設(shè)計(jì)方案和實(shí)現(xiàn)方法。操作人員在實(shí)際操作數(shù)控銑床加工工件之前，先用該系統(tǒng)進(jìn)行模擬操作。通過計(jì)算機(jī)屏幕可清晰地看到所編輯的加工程序運(yùn)行的刀具切削模擬過程，并可方便地反復(fù)修改加工程序，直到被加工的“工件

48、”符合要求為止。且該過程都在AutoCAD環(huán)境下實(shí)現(xiàn)。這無疑對(duì)新產(chǎn)品的開發(fā)、安全生產(chǎn)、提高生產(chǎn)效率及減少?gòu)U品都具有實(shí)際意義。2ActiveX Automation對(duì)象及開發(fā)工具介紹2.1ActiveX Automation對(duì)象(1)頂層是AutoCAD Application,它除具有對(duì)象的屬性和方法外，還包括兩個(gè)重要的對(duì)象Preferences(參數(shù)對(duì)象)和Document(文檔對(duì)象)。Preferences對(duì)象是與AutoCAD系統(tǒng)中參數(shù)設(shè)置相對(duì)應(yīng)的對(duì)象，Document對(duì)象則是包括圖形文件的所有對(duì)象集合，如Blocks Collection、ModelSpace Entities Col

49、lection、PaperSpace Entities Collection等一系列對(duì)象。(2)圖形對(duì)象。Blocks Collection等屬于圖形對(duì)象，它是用戶使用頻繁的對(duì)象，是實(shí)現(xiàn)參數(shù)化、變量化及三維實(shí)體造型等功能的主要方式。(3)輸出對(duì)象。輸出對(duì)象控制圖形文件的輸出格式，如設(shè)置坐標(biāo)原點(diǎn)、方向等。(4)實(shí)用對(duì)象。該對(duì)象提供AutoCAD中常用的數(shù)據(jù)轉(zhuǎn)換、輔助計(jì)算等功能。2.2開發(fā)工具本文以Visual Basic 5.0為開發(fā)工具，給出了實(shí)例。由于編程思想是相同的，所以該方法可移到Visual C、Delphi等開發(fā)工具上。用VB5實(shí)現(xiàn)ActiveX Automation開發(fā)的關(guān)鍵是要獲

50、得AutoCAD對(duì)象的指針，及創(chuàng)建AutoCAD.Application對(duì)象，進(jìn)而創(chuàng)造AutoCAD的文檔對(duì)象，以實(shí)現(xiàn)對(duì)AutoCAD中其它對(duì)象的訪問，完成與AutoCAD的通訊。3系統(tǒng)的組成與功能圖形交互式自動(dòng)編程系統(tǒng)處理零件程序的一般過程是：輸入零件圖形輸入工藝參數(shù)運(yùn)動(dòng)軌跡計(jì)算加工模擬后置處理程序清單輸出。NCAPS是針對(duì)數(shù)控銑床開發(fā)的，系統(tǒng)框架結(jié)構(gòu)如圖1所示，它主要包括進(jìn)入AutoCAD R14系統(tǒng)繪制零件圖、工藝處理、動(dòng)態(tài)校驗(yàn)和數(shù)控加工程序輸出等功能模塊。具體步驟如下：(1)進(jìn)入AutoCAD R14系統(tǒng)繪制零件圖它是AutoCAD實(shí)體建模過程。(2)工藝處理 圖1NCAPS系統(tǒng)框架結(jié)

51、構(gòu)示意圖它是第(1)步操作后對(duì)圖形數(shù)據(jù)進(jìn)行再加工的核心模塊。利用計(jì)算機(jī)圖形學(xué)技術(shù)，直接在AutoCAD環(huán)境下進(jìn)行工藝干預(yù)。工藝干預(yù)內(nèi)容包括輪廓和點(diǎn)位二種方式，干預(yù)過程通過鼠標(biāo)事件選擇實(shí)體來實(shí)現(xiàn)。用鼠標(biāo)選取實(shí)體的先后來組成加工環(huán)(加工路線)?，F(xiàn)以VB5編寫的源程序說明如何直接從AutoCAD環(huán)境下選擇實(shí)體，形成加工路線(該程序只是該模塊的部分)。Option ExplicitPublic objAcad As Object,objDoc As ObjectPrivate Sub FormLoad()StartAutoCAD-為對(duì)AutoCAD訪問做準(zhǔn)備End SubPrivate Sub Sta

52、rtAutoCAD()Dim DwgName As StringSet objAcad=GetObject(,“AutoCAD.Application”)End SubPrivate Sub SelectCutTypeClick()Dim EntityName As StringDim EntityMessager(1 To 6) As VariantDim ent As Object,sset As ObjectSet objDoc=objAcad.ActiveDocumentSet sset=objDoc.SelectionSets.Add(“SS1”)設(shè)置sset到一個(gè)名為SS1的選擇集

53、中sset.SelectOnScreenDim msgstr As String,appName As StringappName=App.CompanyNameFor Each ent In ssetIf ent.EntityName=“AcDbLine”Then為直線EntityName=ent.EntityNameEntitymessager(1)=ent.StarPoint:EntityMessager(2)=ent.EndPointElseIf ent.EntityName=“AcDbCircle”Then為圓EntityName=ent.EntityNameEntityMessag

54、er(1)=ent.Center:EntityMessager(2)=ent.RadiusElseIf ent.EntityName=“AcDbArc”Then為圓弧EntityName=ent.EntitynameEntityMessager(1)=ent.Center:EntityMessager(2)=ent.RadiusEntityMessager(3)=ent.StartAngle:EntityMessager(4)=ent.EndAngleEntityMessager(5)=ent.StartPoint:EntityMessager(6)=ent.EndPointElseEntit

55、yName=ent.EntityName為其它實(shí)體End IfNext ent選擇集中的下一個(gè)實(shí)體End Sub(3)NC代碼生成經(jīng)過工藝干預(yù)(即確定刀具走刀路線)后，便可將圖形幾何信息和工藝干預(yù)信息轉(zhuǎn)換成ISO標(biāo)準(zhǔn)數(shù)控加工程序代碼。同時(shí)以（*.NC)形成的文件名永久保存。(4)動(dòng)態(tài)校驗(yàn)上述生成的NC代碼是否正確還要進(jìn)行校驗(yàn)方能制作控制介質(zhì)輸出。本模塊采用時(shí)間分割插補(bǔ)算法進(jìn)行動(dòng)態(tài)模擬，以校驗(yàn)ISO數(shù)控加工程序代碼是否正確，以及刀具與工件是否產(chǎn)生干涉等。如果校驗(yàn)不正確，則需對(duì)上述各個(gè)環(huán)節(jié)進(jìn)行反復(fù)調(diào)試，直到正確為止。為使刀位數(shù)據(jù)易于獲得，避免傳統(tǒng)數(shù)值積分法(DDA)精度較差與運(yùn)算繁瑣等缺點(diǎn)，本系統(tǒng)

56、在加工仿真過程中引入方向性概念，使刀心軌跡在算法上簡(jiǎn)潔明了，程序可讀性強(qiáng)。對(duì)于CNC系統(tǒng)刀補(bǔ)功能，以往的直線過渡刀補(bǔ)算法，常利用三角函數(shù)關(guān)系式來計(jì)算各轉(zhuǎn)接點(diǎn)的坐標(biāo)值。這些方法公式推導(dǎo)復(fù)雜，計(jì)算量大，不宜歸納和簡(jiǎn)化。本系統(tǒng)引入運(yùn)動(dòng)矢量和刀具半徑矢量來計(jì)算，對(duì)直線到直線、直線到圓弧、圓弧到直線和圓弧到圓弧各種轉(zhuǎn)接情況進(jìn)行了分析，綜合為兩個(gè)統(tǒng)一公式進(jìn)行計(jì)算，大大簡(jiǎn)化了CNC系統(tǒng)的刀具補(bǔ)償?shù)挠?jì)算量。(5)文本編輯模塊此模塊允許操作人員把已編好的ISO代碼形式的數(shù)控加工程序通過文本編輯送到計(jì)算機(jī)，對(duì)其加工過程模擬演示，以便驗(yàn)證所編的數(shù)控零件加工程序的正確性。(6)數(shù)控加工程序輸出經(jīng)調(diào)試和檢驗(yàn)后的正確數(shù)控

57、加工程序可以通過拷貝、打印、通訊接口的方式輸出。4實(shí)例本文以二維零件數(shù)控銑削加工為例，首先在AutoCAD環(huán)境下繪制零件輪廓，如圖2所示。工藝干預(yù)可得沿圖2所示1-2-3-4-5-6-7-8-9-10-11順時(shí)針方向走刀的ISO數(shù)控加工程序，且此程序已通過動(dòng)態(tài)校核檢驗(yàn)(如圖3)。圖2工藝干預(yù)結(jié)果圖3數(shù)控加工(銑削)仿真結(jié)果5結(jié)束語綜上所述，本系統(tǒng)具有如下優(yōu)點(diǎn)：(1)直接在AutoCAD環(huán)境下經(jīng)圖形轉(zhuǎn)換，自動(dòng)生成數(shù)控指令代碼。由指令代碼可以動(dòng)態(tài)模擬刀具運(yùn)動(dòng)軌跡，校驗(yàn)代碼的正確性。(2)代碼可以直接和數(shù)控機(jī)床通訊，加工出新設(shè)計(jì)的圖形，實(shí)現(xiàn)了CAD/CAM一體化。(3)該系統(tǒng)已與數(shù)控機(jī)床連通，并進(jìn)行

58、了實(shí)際切削。實(shí)驗(yàn)表明，該系統(tǒng)具有運(yùn)行準(zhǔn)確、直觀，能顯著提高數(shù)控編程效率等特點(diǎn)，對(duì)其中一些功能繼續(xù)完善，可滿足實(shí)際加工需要。目前，該系統(tǒng)被我校CAM課程自動(dòng)編程實(shí)驗(yàn)室采用。利用VBA編程實(shí)現(xiàn)從EXCEL表到AUTOCAD表轉(zhuǎn)換(1) 一、前言 Microsoft Excel 軟件具有十分強(qiáng)大的制表、表格計(jì)算等功能，是普通人員常用的制表工具?？梢酝ㄟ^其內(nèi)嵌的VBA語言可以控制Microsoft Excel 的整個(gè)操作過程。 AutoCAD是由AutoDesk公司的工程繪圖軟件，是CAD市場(chǎng)的主流產(chǎn)品，功能十分強(qiáng)大，是工程制圖人員常用的軟件之一。AutoDesk公司從R14版以后，為其提供了VBA語

59、言接口。 在工程制圖中，常常需要在圖中插入繪制表格，一般有兩種方法。其一，是利用剪貼板，將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)

60、換，即把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ì)象，但表可以理解由