vba調用cad命令

① 如何用VBA向CAD2004發送作圖指令

'需引用鏈接cad庫，然後打開cad文檔，在CAd活動文檔實時操作
Public sub 讀文本畫圖（文件 as 帶路徑文件名）
Set acadApp = GetObject(, "AutoCAD.Application")
Set DOC = acadApp.ActiveDocument
DOC.WindowState = acMax '旁明中最大化
Dim pline3DObj As Acad3DPolyline
Dim points3D() As Double: ReDim points3D(0)
i=-1:J=0』去掉第一行

Open 文件 For Input As #1'讀文本文件
Do While Not EOF(1) ' 檢查文件尾。
Line Input #1, InputData ' 讀入一行數據。
if i=0 then
points3D(0)= val(InputData)
elseif i>0 then』轉成3d
ReDim Preserve points3D(j)
points3D(j)= val(InputData)
if ( i mod 2)=1 then
j=j+1
ReDim Preserve points3D(j)
points3D(j)= 0
end if
end if
I=i+1 :j=j+1
Loop
Close #1
Set pline3DObj = DOC.ModelSpace.Add3DPoly(points3D)
DOC.SendCommand "_zoom" & vbCr & "a" & vbCr
End sub
變數申明、錯誤處理、新建CAD另加，我比較槐弊喜歡多段線，所以按3d點編制，希望有運山所啟發

② 怎麼利用EXCEL vba 在CAD上畫多段線

1、復制計算出的坐標到excel中，分為X、Y兩列坐標
2、把X、Y坐標備滲胡用逗號（英文狀態）連接在一起，excel里用公式&","&連接
3、選中坐標組，復制（這樣數據暫時都保存在粘貼板里）
4、打開cad軟體喊搭，新建文件或者在你需要繪制的文件里，輸入spl命令（或者點擊工具欄圖標『樣條曲線』）
5、直接Ctrl+V粘貼（或者在命仿攔令行右鍵菜單「粘貼」）剛才復制的坐標組，然後回車確定
6、雙擊滾輪顯示全部對象，可以看到曲線已經畫好了

③ vba程序中調用cad命令遇到的困難

mysql_select_db($database_conn_news, $conn_news);
$query_newsType1 = "SELECT * FROM newstable ORDER BY newsTime DESC";
$newsType1 = mysql_query($query_newsType1, $conn

④ 請問一下:在excel使用vba粘貼數據到cad命令框里怎麼寫代碼

你的問題大概是想讓CAD執行某些命令吧，比如畫線命令，EXCEL表格中有線的拐點坐標了，根據這些坐標在CAD中畫線，步聚如下：

1、把單元格中的數據，變成逗號分隔 如圖：

2、選中這些變好的單元格，按 Ctrl+C也就是復制

3、到CAD界面中，在命令行中鍵入PLINE,回車後，會提示你輸入起點坐標，這時候，你在提示後邊點一下滑鼠，然後按Ctrl+V，也就是把剛才復制的東西粘貼上去，這樣你會發現線條畫出來了---------------你試試吧，祝你工作愉快

===========如果你真的是想用VBA在CAD命令行中輸入一些東西，那麼另外再回答你

⑤ 怎麼用vba編的程序調用cad里的全選和刪除圖形的命令

在歷明你的襲昌程序拍爛扒前面加上
Dim obj As AcadObject
For Each obj In ThisDrawing.ModelSpace
obj.Delete
Next

⑥ 怎麼在autocad命令行運行VBA編的程序

這個怎麼樣.........................PHP代碼:
[拷貝到剪切板]vl-vbarun
函數
語法
(vl-vbarun
macroname)
功能
運行
Visual
Basic
宏。
說明
參數
macroname
為字元串，表示要載入的
Visual
Basic
宏。
返回值：
macroname。
樣例：
1）載入
VBA
工程文件：
_$
(vl-vbaload
"c:/program
files/acad2000/sample/vba/cntrline.dvb")
"c:\program
files\acad2000\sample\vba\cntrline.dvb"
2）運行載入工程中的宏：
_$
(vl-vbarun
"cntrline")
"豎握cntrline"
請參見
vl-vbaload
函數。PHP代碼:
[拷貝到剪切板]vl-vbaload函數
語法
(vl-vbaload
filename)
功能
加悄毀載
Visual
Basic
工程。
說明
參數
filename
為字元串，指定要載入的
Visual
Basic
工程。
返回值：
如果成功，則啟纖備返回值未確定。
樣例：
_$
(vl-vbaload
"c:/program
files/acad2000/sample/vba/cntrline.dvb")
"c:\program
files\acad2000\sample\vba\cntrline.dvb"
請參見
vl-vbarun
函數。

⑦ VBA程序代碼有了，怎麼應用到CAD中去。也就是代碼應該寫在哪才能用APPLOAD命令載入。求步驟。

Alt+F11打開VBA編輯器，按照你的代碼提供者說明的要求將代碼貼在相應的地方，一般是李洞新建一個模塊，碧擾首粘貼到模塊裡面。
保存該項目為一個.DVB文件。使用時用appload選擇該文件載入就可以了，也可以直接打開AutoCAD以後，直接將該DVB文件直接拖到繪圖窗口裡面，這樣也可以載入。然後你運行該VBA項目裡面的(命悔數令VBARUN)宏調用命令就可以了。

⑧ 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中怎樣在命令行中調用

在VBA窗口雙擊左側緩手缺列表框的thisworkbook在右邊窗口粘貼下面的代碼PrivateSubWorkbook_Open()userform1.show'如果你更改了窗體的名稱那就改為窗體名稱.showEndSub這樣打開這個工作薄就直接調用你建的擾辯窗體.還有一種就是創建一個過程宏調用,可以寫在任意工作薯薯表的代碼中或者模塊中調用sub載入操作窗體()userform1.showendsub