教你如何使用CAD連接EXCEL進(jìn)行數(shù)據(jù)繪圖

1、.教你如何使用CAD連接EXCEL進(jìn)行數(shù)據(jù)繪圖今天給大家要講的東西是一個(gè)非常實(shí)用且好用的CAD借用EXCEL的數(shù)據(jù)進(jìn)行繪圖的辦法。當(dāng)然我們在這里需要用到CAD的宏下的VBA功能。如圖，今天就是要完成如何在CAD中畫出如下圖所示的坐標(biāo)的圖形。當(dāng)然如果學(xué)會(huì)了此種繪圖的辦法之后，還可以更改數(shù)據(jù)后進(jìn)行更高級的繪圖了。步驟閱讀工具/原料 AutoCAD 2004正式版與EXCEL。步驟/方法1. 1打開CAD工具菜單下宏下的Visual Basic編輯器，新建一個(gè)模塊，輸入如下代碼：Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim

2、 xlsheet As Excel.worksheetSub aa() 宏名Set xlapp = CreateObject(excel.application)Set xlbook = (D:cadvbafzcp.xls) 打開的EXCEL路徑xlapp.Visible = FalseSet xlsheet = xlbook.worksheets(sj) 打開EXCEL中的工作表i = xlsheet.Cells(1, 6) i為線條線數(shù)m = xlsheet.Cells(2, 6) 這里表示第2行第6列n = xlsheet.Cells(3, 6)t = xlsheet.Cells(4,

3、6)For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(2 + p, 1)h1 = xlsheet.Cells(2 + p, 2)k3 = xlsheet.Cells(2 + p, 3)k2 = xlsheet.Cells(3 + p, 1)h2 = xlsheet.Cells(3 + p, 2)h3 = xlsheet.Cells(3 + p, 3)Dim 點(diǎn) As AcadLineDim 起點(diǎn)(2) As DoubleDim 端點(diǎn)(2) As Double起點(diǎn)(0) = k1 + m起點(diǎn)(1) = h1 + n起點(diǎn)(2) = k3 + t端點(diǎn)(

4、0) = k2 + m端點(diǎn)(1) = h2 + n端點(diǎn)(2) = h3 + tSet 點(diǎn) = (起點(diǎn), 端點(diǎn))Nextxlbook.Closexlapp.QuitSet xlapp = NothingEnd Sub步驟閱讀2. 2同時(shí)打開編輯器的工具菜單下的引用，找到Microsoft Excel 11.0 Object Library，如果沒有此項(xiàng)，可瀏覽打開EXCEL啟動(dòng)文件即可。做好這幾步之后就保存編輯內(nèi)容，然后就可以關(guān)閉編輯器了。步驟閱讀步驟閱讀步驟閱讀3. 3返回CAD后按快捷鍵Alt+F8啟動(dòng)宏，然后啟動(dòng)名字為aa的那個(gè)宏，此時(shí)CAD上就會(huì)自動(dòng)將圖畫好了。步驟閱讀4. 4以下是畫弧

5、所用的代碼：Private Sub CommandButton1_Click()Dim curves(0 To 1) As AcadEntityDim centerpoint(0 To 2) As DoubleDim radius As DoubleDim startangle As DoubleDim endangle As Doublecenterpoint(0) = (圓心X坐標(biāo)): centerpoint(1) = (圓心Y坐標(biāo)): centerpoint(2) = (圓心Z坐標(biāo)) 圓心坐標(biāo)radius =(所畫弧處圓的半徑) 半徑startangle = (所畫弧起點(diǎn)弧度值) 角度/180*3.141592653endangle = (所畫弧終點(diǎn)弧度值) Set curves(0) = (centerpoint, radius, startangle, endangle)End SubEND注意事項(xiàng) 此種辦法在進(jìn)行坐標(biāo)