返回列表 上一主題 發帖

批次填入autocad檔名

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

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章終身榮譽會員勳章
1# 跳轉到 »
發表於 2011-5-27 23:18 | 顯示全部帖子
本帖最後由 沙拉油 於 2011-5-27 23:25 編輯

不需要用EXCEL，Autocad 本身就能執行 VBA
底下是 Autocad VBA 喔∼不能在 Excel VBA 裡面執行的
  1.     Dim cadapp, caddoc, DWG_Dir, DWG_Name
  2.     Set cadapp = Application
  3.     '開啟 C:\ 底下所有的 dwg 檔案
  4.     DWG_Dir = "C:\"
  5.     DWG_Name = Dir(DWG_Dir & "*.dwg", 0)
  6.     Do While DWG_Name <> ""
  7.         Set caddoc = cadapp.Documents.Open(DWG_Dir & DWG_Name)
  8.         '在檔案執行命令
  9.         caddoc.SendCommand "(load""c:\\ppp.txt"")" & vbCr
  10.         '在檔案執行命令
  11.         caddoc.SendCommand "ppp" & vbCr
  12.         DWG_Name = Dir
  13.     Loop
複製代碼
一卵三四、驚到嘸代誌

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題