批次填入autocad檔名

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-25 18:30 | 只看該作者

批次填入autocad檔名

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

因工作需要

希望cad檔檔名填入圖畫某位置

(defun c:ppp(/)
  (command ".style" "htx1" "" "" "" "" "" "" "")
  (setq p1(getvar"dwgname"))
  (setq p2 (substr p1 1 (- (strlen p1) 4)))
  (command "Text" '(345 7) 2.3 0 p2)
)
-----------------------------------------------------------------
.style是字型

但是不曉得怎樣和excel檔結合

補充說明
將ppp.txt放入 c:

開啟autocad 在下方指令輸入
(load"c:\\ppp.txt")

匯入成功後再輸入

(c:ppp)

就能將檔案名稱放在cad裡特定的位置

但是檔案很多希望可用excel批次完成

ppp.rar (208 Bytes)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

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

2^#

發表於 2011-5-25 22:55 | 只看該作者

可能要麻煩你提供接近實際情形的範例檔案,
不然不知你要抓什麼資料要到底是要放到哪裡去?
上面那些程式指令不是 Excel VBA 的嗎?
好像不曾看過呢.

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

3^#

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

回復 2# luhpro

上面指令是autolisp

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兔年全勤獎章

4^#

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

回復 carzyindex
希望cad檔檔名填入圖畫某位置
VBA好像沒這功能

帖子: 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裡面有很多輔助程式不知該如何完成動作

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

7^#

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

回復 6# GBKEE

感謝版大回覆

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 當掉及重開機的心理準備,
請自行斟酌是否要採用.