怎樣excelvba繪制cad圖形
Ⅰ excel VBA控制AutoCAD作圖
』將以下代昌猜鄭碼拷貝到Excel的vba文檔中，即可實現兆皮啟動AutoCAD的功能。讀取Excel中的數據，需要具體到哪行、哪列之類的,,,,在這里耐頌沒有給出。
Sub main()
Dim acadApp As Object
Dim acadDoc As Object
Dim acadline As Object
Dim adoc As Object
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True
Set adoc = acadApp.Documents.Add
Set acadDoc = acadApp.ActiveDocument
End Sub
Ⅱ 請教一下怎麼樣用excel VBA把excel 表格中的線路坐標數據在CAD中畫路線圖並標注樁號
方法是引用cad的類型庫，在EXCEL VBA中自動化cad。
當然涉及到的坐標計算部分可以編寫個模塊，專門進行坐標計算。
有了數源祥據之後就好辦，畫線，標注，添加閉告文字比較容易。 畫線的話用addlwpolyline方法雹態搏較好。
Ⅲ 如何利用Excel中的數據直接導入CAD繪圖
1、電腦和坦打開Excel表格，先列好X和Y軸數據。
Ⅳ Excel VBA調用CAD2007畫圖並顯示
我這里提供一個函數，是連接獲取cad（2004版，其他差不多）
Private Function ConnectToCAD2004() As Boolean
'連接AUTO CAD 2004
On Error Resume Next
Set acadApp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.16")
If Err Then
ConnectToCAD2004 = False
MsgBox "連接Auto CAD 2004沒有成功!" & vbNewLine & "請確認安裝的版本。或手動打開Auto CAD 2004，然後點擊連接按鈕。" _
& vbNewLine & vbNewLine & Err.Description, vbInformation, AppName
Exit Function
End If
End If
On Error GoTo 0
'獲取Auto CAD 2004當前文檔
On Error Resume Next
Set acadDoc = acadApp.ActiveDocument
If Err.number <> 0 Then
ConnectToCAD2004 = False
MsgBox "Auto CAD 2004中滑賀叢沒有活動的文檔。" _
& "請激活一個文檔或新建一個文信櫻檔。", vbInformation, AppName
Err.Clear
Exit Function
End If
ConnectToCAD2004 = True
acadApp.Visible = True
End Function
需要全局變數或者模塊及變數：
Public Const AppName = "----------------"
Public acadApp As AcadApplication
Public acadDoc As AcadDocument
每次執行畫圖拍散之前：調用函數即可：
'連接CAD2004
If ConnectToCAD2004 = False Then
Exit Sub
End If
Ⅳ 怎樣用VBA實現CAD自動讀取excel中的數據然後在CAD中自動繪制出比例圖。
用測量成消悄圖剖面計棚汪算鏈橋仔展點
Ⅵ 如何實現通過excel傳遞數據給autoCAD並繪制圖形（按行繪制尺寸不同但形狀相似的標准件）
假如數據在EXCEL中A、態碧毀B兩列中，先進行如下的轉化：
1.在C列中輸入：＝A&","&B，這樣就變成了坐標的形式
2.打慧純開CAD，輸入直線命帆備令，復制EXCEL中C列中的全部據，粘貼在在提示符後，回車即可自動生成圖形。
3.注意測量中的大地坐標系與CAD中的坐標系不同，注意轉化一下，把x和y坐標換一下位置就好了
Ⅶ 如何使用EXCEL數據繪制CAD圖形
EXCEL中的數據是可以繪制CAD圖形的，那麼大家知道如何使用EXCEL數據繪制CAD圖形嗎?下面是我整理的如何使用EXCEL數據繪制CAD圖形的 方法 ，希望能雀帆給大家解答。
使用EXCEL數據繪制CAD圖形的方法
打開 Excel ，輸入數據。
復制B列的數據。打開CAD，輸入“pl”,回車。然後在命令行直接“Ctrl+V”可以以這些點直接生成一條多段線。
上面的例子相當簡單，但是引我們皮歲謹思考。為什麼可以直接復制呢?
其實CAD是可以讀取從Excel在復制過去的內容的。那麼我們就可以把所有可以在命令行輸入的內容在Excel中編輯出來然後“Ctrl+C”“Ctrl+V”就OK了。如下面，我們就用上面的那些數據為圓心繪制半徑為1的圓。
在Excel中另起一列輸入(="C"&" "&C2&" "&1)括弧內的內容。其中C是CAD中畫圓的快捷鍵，上式C後跟一空格，在CAD中相當於確定命令，接下來C2為圓心坐標，空格，半徑1。&符燃基號在Excel中是連接符號。
下拉上式得到全部數據的命令。復制該列數據，在CAD命令行”Ctrl+V“。
從上面可以看出來使用Excel輸入在某些時候比用徒手繪制要來得簡潔。我們也可以繪制更復雜的圖形。比如上面的數據我就是從咬合樁數據得來的。我要繪制的是咬合樁樁的三維圖。我們可以以“圓柱體”命令cyl開頭寫出咬合樁的通用表達式。然後直接畫圖。也可以寫出標注的表達式然後統一標注。這些就不在詳細講述了，更多的應用還要靠自己去發現。
Ⅷ 如何實現用excel畫圖（excel生成cad圖形）
不知我這個方法對你是否有用。察銀團先用Excel把表做好，然後復制，打開CAD圖紙，打開編輯菜單
-
選擇性粘貼
-
AutoCAD
圖元-
確定。這樣，Excel表格就粘過來了。表格比例如果不合適，就用SC命令縮放搏薯到合適比例，就可以了，也可以修改。如果認為這樣修改不方便，再用X命令將表格炸開，就更容易修改了。
我這個辦法可能是個笨辦法，拋轉引玉，那位高手教個快捷的方法，
我敗橘也可以學一招。
Ⅸ 如何利用Excel中的數據直接導入CAD繪圖
舉個皮山例子： 假如根據B2單元格中的半徑畫一個圓
步驟：
打開EXCEL，在B2單元格中輸入一個圓的半徑100
按快捷鍵Alt+F11打開VBA編輯器並插入一燃頌中個模塊
引用CAD庫(前提是電腦上要裝CAD軟體):工具--引用-autoCAD 2007 Type Library（不同的版本只是數據有所變化有可能是2008,2009,2010,2012等)
輸入代碼
Sub tw()
Dim cad As New AutoCAD.AcadApplication '定義cad變數為一個CAD應用程序
cad.Documents.Add '新建CAD文件
cad.Visible = True '顯示出來
Dim p(2) As Double '定義一個圓心的坐標
p(0) = 100: p(1) = 100: p(2) = 0 '為圓心賦值，即圓心的X值為100,Y值為100,Z值為0
cad.ActiveDocument.ModelSpace.AddCircle p, Range("b1").Value '以點(100,100)為圓心畫圓
End Sub
不知道你發現沒有，其實在我們的EXCEL VBA中就可以根據表格中的數據實現自動繪圖，這只是舉了一個簡單的例子。希望能夠幫助到你。
Ⅹ 用Excel vba編程將EXCEL表格中的數據（坐標值）導入CAD中直接繪圖生成平面圖形，主要是直線
CAD支持這個功能嗎？這個不是Excel VBA來控制的，需要CAD能支持VBA。