Dim objJPG As AcadRasterImage
FilePath="D:\L00\R00000005\C00000004.jpg"
b(0)=600000.590212514
b(1)=100000.327829989
b(0)=0
factor=50000
Set objJPG = ThisDrawing.ModelSpace.AddRaster(FilePath, b, factor, 0)
我錯在哪里0 0
uj5u.com熱心網友回復：
引數資料型別都是對的啊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
uj5u.com熱心網友回復：
呃呃呃。我并沒有參考新的OCX或者DLL啊
uj5u.com熱心網友回復：
注釋掉所有On Error Resume Next陳述句，在VB6 IDE中運行，出錯后點擊除錯，游標會停在出錯的那條陳述句處，
或者
事先在懷疑可能有邏輯錯誤的陳述句處設定斷點，運行經過斷點時中斷，
此時可以在立即視窗中使用
?變數名
或
?函式名(函式引數)
或
程序名(引數)
輔助除錯。
uj5u.com熱心網友回復：
在VBA IDE中運行，uj5u.com熱心網友回復：
主要是我別的函式里面的這個set陳述句運行沒有問題
引數改成如上的時候就提示 無效的程序呼叫或引數
開發幫助手冊里面說是引數值不合法，但是和函式里面要求的引數值又沒有什么區別
設定斷點也找不出錯誤啊
這個是CAD二次開發里面的內容
uj5u.com熱心網友回復：
這就需要你自己去查看cad物件的引數幫助啦。 這是第三方庫， 不是VB標準庫里的。uj5u.com熱心網友回復：
VBA for AutoCAD下一樣可以注釋掉所有On Error Resume Next陳述句，在VBA IDE中運行，
出錯后點擊除錯，游標會停在出錯的那條陳述句處，
或者
事先在懷疑可能有邏輯錯誤的陳述句處設定斷點，運行經過斷點時中斷，
此時可以在立即視窗中使用
?變數名
或
?函式名(函式引數)
或
程序名(引數)
輔助除錯。
吧。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/54317.html
標籤：VBA
上一篇：VB和S7-300PLC通訊