批次填入autocad檔名

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

11^#

發表於 2011-5-28 16:39 | 只看該作者

回復 10# 沙拉油

感謝沙拉油大的幫忙

沙拉油

　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主 Rank: 8 Rank: 8

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

10^#

發表於 2011-5-27 23:18 | 只看該作者

本帖最後由沙拉油於 2011-5-27 23:25 編輯

不需要用EXCEL，Autocad 本身就能執行 VBA
底下是 Autocad VBA 喔～不能在 Excel VBA 裡面執行的

Dim cadapp, caddoc, DWG_Dir, DWG_Name
Set cadapp = Application
'開啟 C:\ 底下所有的 dwg 檔案
DWG_Dir = "C:\"
DWG_Name = Dir(DWG_Dir & "*.dwg", 0)
Do While DWG_Name <> ""
Set caddoc = cadapp.Documents.Open(DWG_Dir & DWG_Name)
'在檔案執行命令
caddoc.SendCommand "(load""c:\\ppp.txt"")" & vbCr
'在檔案執行命令
caddoc.SendCommand "ppp" & vbCr
DWG_Name = Dir
Loop

複製代碼

一卵三四、驚到嘸代誌

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

9^#

發表於 2011-5-27 08:05 | 只看該作者

回復 8# luhpro

感謝你的回覆

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

8^#

發表於 2011-5-27 00:04 | 只看該作者

本帖最後由 luhpro 於 2011-5-27 00:08 編輯

回復 5# carzyindex
因為自己沒有AutoCad軟體所以不能實作相關程式,
不過還是可以提供一些建議給你參考 :
先依照該網頁建立 AutoCad 相關的存取元件, (Dim ... Set ... 那兩行)
然後按 F8 單步執行完那兩行, (底下可以先放一些不影響結果的程式敘述例如 : iI = 1 之類的以讓程式有地方可以暫停而不是跑到 End Sub)
接著手動輸入 oAutoCat. 於輸入 . 後應該會看到一堆可用方法或變數名稱(例如 : Visible 之類的),
(或是也可以開啟 "即時運算" 視窗打上 oAutoCat. )
選任一個項目後看是按 Enter 鍵還是打上 ( 亦或是 = (可以知到它需要什麼東西來完成動作)
接著按 F8 執行該指令後可依據錯誤訊息可以看出如何去完善它.(若於 "即時運算" 視窗則可直接按 Enter 鍵執行它)

不過這是暴力諮詢 Excel 的方式,
要有 Excel 當掉及重開機的心理準備,
請自行斟酌是否要採用.

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

7^#

發表於 2011-5-26 11:19 | 只看該作者

回復 6# GBKEE

感謝版大回覆

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-5-26 11:08 | 只看該作者

回復 5# carzyindex
那就要請有AutoCad的來回答了.
我對AutoCad完全是門外漢

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

5^#

發表於 2011-5-26 10:39 | 只看該作者

本帖最後由 carzyindex 於 2011-5-26 10:44 編輯

回復 4# GBKEE

vba可以開啟autocad不是嗎
http://blog.xuite.net/pertonchang/prog/14795319

批次開啟清單中cad檔再用cad裡面的功能動作
例如
9164ARP0-0012.dwg OCTPA-LCX66005A-001-00.dwg
9164ARP0-0013.dwg OCTPA-LCX66005A-002-00.dwg
9164ARP0-0014.dwg OCTPA-LCX66005A-003-00.dwg

cad裡面有很多輔助程式不知該如何完成動作