怎樣運用AutoCAD連接excel進行數據繪圖

 　　如圖，今天就是要完成如何在AutoCAD中畫出如下圖所示的坐標的圖形。

　　當然如果學會了此種繪圖的辦法之後，還可以更改數據後進行更高級的繪圖了。

　　具體操作步驟如下所示：

　　1、打開CAD工具菜單下宏下的Visual Basic編輯器，新建一個模塊，輸入如下代碼：

　　Dim xlapp As Excel.Application

　　Dim xlbook As Excel.workbook

　　Dim xlsheet As Excel.worksheet

　　Sub aa() '宏名

　　Set xlapp = CreateObject("excel.application")

　　Set xlbook = xlapp.workbooks.Open("D:cadvbafzcp.xls") '打開的EXCEL路徑

　　xlapp.Visible = False

　　Set xlsheet = xlbook.worksheets("sj") '打開EXCEL中的工作表

　　i = xlsheet.Cells(1, 6) 'i為線條線數

　　m = xlsheet.Cells(2, 6) '這裡表示第2行第6列

　　n = xlsheet.Cells(3, 6)

　　t = xlsheet.Cells(4, 6)

　　For p = 0 To i - 2 Step 1

　　p = p

　　k1 = 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 點 As AcadLine

　　Dim 起點(2) As Double

　　Dim 端點(2) As Double

　　起點(0) = k1 + m

　　起點(1) = h1 + n

　　起點(2) = k3 + t

　　端點(0) = k2 + m

　　端點(1) = h2 + n

　　端點(2) = h3 + t

　　Set 點 = ThisDrawing.ModelSpace.AddLine(起點, 端點)

　　Next

　　xlbook.Close

　　xlapp.Quit

　　Set xlapp = Nothing

　　End Sub

　　2、同時打開編輯器的工具菜單下的引用，找到Microsoft Excel 11.0 Object Library，如果沒有此項，可浏覽打開EXCEL啟動文件即可。

　　做好這幾步之後就保存編輯內容，然後就可以關閉編輯器了。

　　3、返回CAD後按快捷鍵Alt+F8啟動宏，然後啟動名字為aa的那個宏，此時CAD上就會自動將圖畫好了。

　　4、以下是畫弧所用的代碼：

　　Private Sub CommandButton1_Click()

　　Dim curves(0 To 1) As AcadEntity

　　Dim centerpoint(0 To 2) As Double

　　Dim radius As Double

　　Dim startangle As Double

　　Dim endangle As Double

　　centerpoint(0) = (圓心X坐標): centerpoint(1) = (圓心Y坐標): centerpoint(2) = (圓心Z坐標) '{圓心坐標}

　　radius =(所畫弧處圓的半徑) '{半徑}

　　startangle = (所畫弧起點弧度值) '角度/180*3.141592653

　　endangle = (所畫弧終點弧度值)

　　Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerpoint, radius, startangle, endangle)

　　End Sub

　　注意事項

　　此種辦法在進行坐標繪圖時可能不會完全全面，只需要你再進行適當簡單的修補就行了，總體來講它可以為我們節省很多時間，並且可以讓我們更容易去進行繪圖和操作，而且精度都是靠你輸入的數值進行保留的。