想用vb連接cad自影片圖，已經在工程中參考了cad物件，為什么還是報錯“ActiveX控制元件不能創建物件”
這是我的代碼
Private Sub Command1_Click()
Dim cad As AcadApplication
Set cad = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set cad = CreateObject("AutoCAD.Application")
End If
cad.Visible = True
End Sub
我覺得沒有錯啊，一開始以為是cad版本的問題然后試了試具體版本號的代碼(我的cad是2014)
Private Sub Command1_Click()
Dim cad As AcadApplication
Set cad = GetObject(, "AutoCAD.Application.19")
If Err Then
Err.Clear
Set cad = CreateObject("AutoCAD.Application.19")
End If
cad.Visible = True
End Sub
還是不能解決，抓狂！求大神幫忙，分數已經快沒了，真心感謝1
uj5u.com熱心網友回復：
你裝的是不是“綠色版”的CAD?你在VB的參考里面能不能看到CAD？
uj5u.com熱心網友回復：
應該不是吧。
他已經“參考”了，肯定能“看到”啊。
要不然，在 Dim cad As AcadApplication 就提示“型別沒有定義”（大概是這樣的錯誤提示吧）之類的了。
uj5u.com熱心網友回復：
我在想，會不會是CAD軟體本身的問題啊。它的“COM介面”兼容性（或“適應性”）不好，某些環境中不能正常運作。
uj5u.com熱心網友回復：
Dim cad As new AcadApplication走起
uj5u.com熱心網友回復：
小心一點按鈕，然后提示“OLE自動化錯誤”之類的（大概是這個意思的……）。
uj5u.com熱心網友回復：
不要以為用了New、代碼中不用寫 CreateObject了，那么“Create”的程序就真的跳過了……事實上只是“它幫你做了”而已。
uj5u.com熱心網友回復：
但是有個奇怪的問題，當我把Set MyCad = GetObject(, "AutoCad.application.19")去掉，直接在cad未打開的情況下用createobject，可以連接cad
然后再cad已打開的情況下用getobject，就可以get到cad。。。。，氣炸了。。。。
uj5u.com熱心網友回復：
但是我再代碼最前面加上 on error resume next，然后去掉if 的判斷陳述句，就可以運行代碼，但是我不想用on erroe resume next，
怕后面的程式有錯誤，找不出來，其實用onerror和if err都是為了判斷cad是否打開，為什么就是 if err陳述句每次都會出現無法創建
物件的錯誤呢，哎
uj5u.com熱心網友回復：
在64位Windows下：64位exe和dll在目錄c:\windows\system32目錄下；
32位exe和dll在目錄c:\windows\syswow64目錄下；
所以要注意：
在win64位系統下注冊32位ocx或dll需要將32位ocx或dll拷貝到c:\windows\syswow64\目錄下。
且注冊要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll
64 位 Windows 平臺注意點之檔案系統重定向 http://www.cnblogs.com/jiake/p/4981555.html
64 位 Windows 平臺注意點之注冊表重定向 http://www.cnblogs.com/jiake/p/4956218.html
uj5u.com熱心網友回復：
明明是“有錯誤的”，你用 on error resume next ，能“正確運行”才怪！！！
“可以運行”，跟“能正確運行”相比，是天壤之別！！！
uj5u.com熱心網友回復：
不是這個意思，我大概知道原因了，比如這段代碼
Private Sub Command2_Click()
Dim p1(2) As Double, p2(2) As Double, p3(2) As Double
Dim MyCad As AcadApplication 'mechaniacal 物件
Dim MyDoc As AcadDocument
Dim MyLine As AcadLine
Dim dima As AcadDimAligned
On Error Resume Next
Set MyCad = GetObject(, "AutoCad.application")
If Err Then
Err.Clear
Set MyCad = CreateObject("AutoCad.application")
End If
MyCad.Visible = True
end sub
我不加 on error resume next，那么我再cad運行的時候，用 Set MyCad = GetObject(, "AutoCad.application")，肯定會出錯
然后出錯了，程式自然也不會往下一行讀取 If Err 陳述句，自然起不到判斷cad是否在運行的作用，但是加上on on error resume next，出錯后程式繼續
往下執行，才能執行
If Err Then
if err
Err.Clear
Set MyCad = CreateObject("AutoCad.application")
End If
您覺得是這樣嗎
uj5u.com熱心網友回復：
這個破論壇bug太多了，修改回復也不能修改了，是在cad未運行的時候執行 getobject自然會出錯，修正一下上一個回復
uj5u.com熱心網友回復：
哎，我還以為你的代碼就是以command1作為啟動CAD的嘛，所以看你只有getobject沒有createc才讓你 dim as new。誰知道你還有別的地方啟動了CAD物件。你把這個 MyCad作為全域變數，一開始啟動的時候獲得到CAD物件，之后一直保持住，用完了再關掉不就得了。
uj5u.com熱心網友回復：
不是用來啟動cad，是自動出cad圖，如果有cad就get物件，如果沒有啟動cad就，啟動cad啊
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50041.html
標籤：VBA
上一篇：求助一個CAD VBA的詭異問題