[問題]功能變數檔案名稱 Diesel 表示式
+15
leo890kimo
zero0917
Mr.Chang
VREA
lawfall22
王小美
Trevor
prettycat
sachindkini
jkop
blacker112
shackle_2005
lmt112233
wuwubaibai
Tiger&蘋果爸
19 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共2頁)
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
這個必須使用 Field功能變數「Diesel表示式」
▼Diesel表示式語法 *回覆可見*:
▼Diesel表示式語法 *回覆可見*:
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
aeleaf, sachindkini, smallpower84, 絕世寶馬 and 明玉 like this post
回復: [問題]功能變數檔案名稱 Diesel 表示式
好神奇呀!!
原本想說這個需要lisp才能實現了說
快來試試看~謝謝蘋果爸
原本想說這個需要lisp才能實現了說
快來試試看~謝謝蘋果爸
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
thx for sharing
lmt112233- 贊助會員
- 文章總數 : 107
年齡 : 65
來自 : hk
職業 : 結構繪圖
愛好 : 旅遊
個性 : 樂觀
使用年資 : 16
使用版本 : acad2012
經驗值 : 5842
威望值 : 30
注冊日期 : 2010-02-21
回復: [問題]功能變數檔案名稱 Diesel 表示式
學一下 Autolisp 或 VBA, 這是入門小程式, 應該不難.
字串 = "台積電test-201212"
以 VBA 為例, instr(字串, "-") 找到 "-" 的位置, 抽出"台積電test"
再用 ASCII code 抽出英文字母, 然後把檔案 rename, 或 kill, save as 就好了.
字串 = "台積電test-201212"
以 VBA 為例, instr(字串, "-") 找到 "-" 的位置, 抽出"台積電test"
再用 ASCII code 抽出英文字母, 然後把檔案 rename, 或 kill, save as 就好了.
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
shackle_2005 寫到:學一下 Autolisp 或 VBA, 這是入門小程式, 應該不難.
字串 = "台積電test-201212"
以 VBA 為例, instr(字串, "-") 找到 "-" 的位置, 抽出"台積電test"
再用 ASCII code 抽出英文字母, 然後把檔案 rename, 或 kill, save as 就好了.
不懂英文所以覺得學起來很難
目前只能用別人寫好的做些簡單的修改
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
把檔案都放到 c:test 資料夾下面 ( VBA 教學 )
Option Explicit
Public tm As AcadModelSpace
Public tu As AcadUtility
Public Sub file_name()
On Error Resume Next
Set tm = ThisDrawing.ModelSpace: Set tu = ThisDrawing.Utility
Dim MyFile, MyPath, MyName
Dim i_count As Integer
Dim new_name As String
Dim char As String
Dim asc_char As Integer
Dim old_name As String
Dim count As Integer
MyPath = "c:\test\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> "" ' 迴圈去抽出每一個圖檔的檔名
new_name = ""
If MyName <> "." And MyName <> ".." Then
old_name = MyPath & MyName
For i_count = 1 To Len(MyName) ' 從檔名第一個字元到 "-" 字元, 一一抽出來檢查是不是英文字母.
char = Mid(MyName, i_count, 1): asc_char = Asc(char) ' 轉換成 ASCII code 號碼
If asc_char = 45 Then Exit For ' 遇到 "-" 就結束
If asc_char > 47 And asc_char < 58 Then new_name = new_name & char ' 數字
If asc_char > 64 And asc_char < 91 Then new_name = new_name & char ' 英文大寫
If asc_char > 96 And asc_char < 123 Then new_name = new_name & char ' 英文小寫
Next i_count
new_name = MyPath & new_name & "-p" & Trim(Str(count)) & ".dwg" ' 加數字 -p1, -p2, -p3 ....
Name old_name As new_name ' 改名
count = count + 1
End If
MyName = Dir
Loop
MsgBox "改名 OK"
End Sub
Public tm As AcadModelSpace
Public tu As AcadUtility
Public Sub file_name()
On Error Resume Next
Set tm = ThisDrawing.ModelSpace: Set tu = ThisDrawing.Utility
Dim MyFile, MyPath, MyName
Dim i_count As Integer
Dim new_name As String
Dim char As String
Dim asc_char As Integer
Dim old_name As String
Dim count As Integer
MyPath = "c:\test\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> "" ' 迴圈去抽出每一個圖檔的檔名
new_name = ""
If MyName <> "." And MyName <> ".." Then
old_name = MyPath & MyName
For i_count = 1 To Len(MyName) ' 從檔名第一個字元到 "-" 字元, 一一抽出來檢查是不是英文字母.
char = Mid(MyName, i_count, 1): asc_char = Asc(char) ' 轉換成 ASCII code 號碼
If asc_char = 45 Then Exit For ' 遇到 "-" 就結束
If asc_char > 47 And asc_char < 58 Then new_name = new_name & char ' 數字
If asc_char > 64 And asc_char < 91 Then new_name = new_name & char ' 英文大寫
If asc_char > 96 And asc_char < 123 Then new_name = new_name & char ' 英文小寫
Next i_count
new_name = MyPath & new_name & "-p" & Trim(Str(count)) & ".dwg" ' 加數字 -p1, -p2, -p3 ....
Name old_name As new_name ' 改名
count = count + 1
End If
MyName = Dir
Loop
MsgBox "改名 OK"
End Sub
- 附件
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
shackle_2005 寫到:Option Explicit
Public tm As AcadModelSpace
Public tu As AcadUtility
Public Sub file_name()
On Error Resume Next
Set tm = ThisDrawing.ModelSpace: Set tu = ThisDrawing.Utility
Dim MyFile, MyPath, MyName
Dim i_count As Integer
Dim new_name As String
Dim char As String
Dim asc_char As Integer
Dim old_name As String
Dim count As Integer
MyPath = "c:\test\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> "" ' 迴圈去抽出每一個圖檔的檔名
new_name = ""
If MyName <> "." And MyName <> ".." Then
old_name = MyPath & MyName
For i_count = 1 To Len(MyName) ' 從檔名第一個字元到 "-" 字元, 一一抽出來檢查是不是英文字母.
char = Mid(MyName, i_count, 1): asc_char = Asc(char) ' 轉換成 ASCII code 號碼
If asc_char = 45 Then Exit For ' 遇到 "-" 就結束
If asc_char > 47 And asc_char < 58 Then new_name = new_name & char ' 數字
If asc_char > 64 And asc_char < 91 Then new_name = new_name & char ' 英文大寫
If asc_char > 96 And asc_char < 123 Then new_name = new_name & char ' 英文小寫
Next i_count
new_name = MyPath & new_name & "-p" & Trim(Str(count)) & ".dwg" ' 加數字 -p1, -p2, -p3 ....
Name old_name As new_name ' 改名
count = count + 1
End If
MyName = Dir
Loop
MsgBox "改名 OK"
End Sub
大大這個怎麼使用呀~CAD沒用過VBA載入~~該打什麼執行呢?使用vbaman執行後無作用
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
管理 -> VBA 管理員 -> 載入 -> file_name_001 -> 執行巨集 -> 巨集 -> 執行
https://www.youtube.com/watch?v=mLdPSMQIOec
執行 VBA 巨集
在指令提示下,輸入 vbaman 並按 Enter。
在「VBA 管理員」對話方塊中,按一下「巨集」。
在「巨集」對話方塊中,選取要執行的巨集。按一下「執行」。
列示在「巨集名稱」方塊中的程序使用下列語法:
project!module.macro
回應對話方塊或巨集顯示的任何提示。
從指令提示執行 VBA 巨集
在指令提示下,輸入 -vbarun 並按 Enter。
輸入要執行的巨集名稱並按 Enter。
必須使用以下語法提供巨集名稱:。
回應對話方塊或巨集顯示的任何提示。
https://www.youtube.com/watch?v=mLdPSMQIOec
執行 VBA 巨集
在指令提示下,輸入 vbaman 並按 Enter。
在「VBA 管理員」對話方塊中,按一下「巨集」。
在「巨集」對話方塊中,選取要執行的巨集。按一下「執行」。
列示在「巨集名稱」方塊中的程序使用下列語法:
project!module.macro
回應對話方塊或巨集顯示的任何提示。
從指令提示執行 VBA 巨集
在指令提示下,輸入 -vbarun 並按 Enter。
輸入要執行的巨集名稱並按 Enter。
必須使用以下語法提供巨集名稱:。
回應對話方塊或巨集顯示的任何提示。
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
shackle_2005 寫到:管理 -> VBA 管理員 -> 載入 -> file_name_001 -> 執行巨集 -> 巨集 -> 執行
https://www.youtube.com/watch?v=mLdPSMQIOec
執行 VBA 巨集
在指令提示下,輸入 vbaman 並按 Enter。
在「VBA 管理員」對話方塊中,按一下「巨集」。
在「巨集」對話方塊中,選取要執行的巨集。按一下「執行」。
列示在「巨集名稱」方塊中的程序使用下列語法:
project!module.macro
回應對話方塊或巨集顯示的任何提示。
從指令提示執行 VBA 巨集
在指令提示下,輸入 -vbarun 並按 Enter。
輸入要執行的巨集名稱並按 Enter。
必須使用以下語法提供巨集名稱:。
回應對話方塊或巨集顯示的任何提示。
全部執行完出現了改名ok沒有任何變化
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
因為我不會畫圖, 所以可能我有點誤解了. 我以為你是要改圖檔的檔名, 現在好像是要抓外在的檔名, 抽出英文加數字再放在圖框裏面, 是不是可以提供簡單 sample 圖檔, 3Q.
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
shackle_2005 寫到:因為我不會畫圖, 所以可能我有點誤解了. 我以為你是要改圖檔的檔名, 現在好像是要抓外在的檔名, 抽出英文加數字再放在圖框裏面, 是不是可以提供簡單 sample 圖檔, 3Q.
麻煩大大幫我看一下了謝謝~附件如下
- 附件
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
這樣可比抽出英文字寫在圖號上
- 附件
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
大大經過使用後~雖然可以使用~但會出現在同一個地方shackle_2005 寫到:這樣可比抽出英文字寫在圖號上
小弟在一張圖面上會有多個圖框~圖框大小不一~位置不定~這樣不知大大能否幫忙解決!?
還有一個小小的問題~就是當"台積電whe46584-210116"需要提取的是whe46584~目前的狀況為whe
謝謝大大的幫忙
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
請給一個很多個圖框的樣本圖檔, 003 就可以抽出數字, 3Q
- 附件
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
試試看, 004 加 -p1, -p2, -p3 ......
- 附件
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
shackle_2005 寫到:請給一個很多個圖框的樣本圖檔, 003 就可以抽出數字, 3Q
大大這是一圖多檔的情形
在煩請測試謝謝
- 附件
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
圖框不能炸開, 3Q
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
回復: [問題]功能變數檔案名稱 Diesel 表示式
shackle_2005 寫到:圖框不能炸開, 3Q
抱歉~~沒注意到~~已重新上傳~煩請大大查看
- 附件
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
再試試看, 圖框好像匿名圖塊.
- 附件
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4203
威望值 : 0
注冊日期 : 2014-04-18
回復: [問題]功能變數檔案名稱 Diesel 表示式
我在 2010, 2020 測試都是 OK, 希望網友可以幫忙試一下, 3Q.
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6719
威望值 : 361
注冊日期 : 2010-09-20
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共2頁)
這個論壇的權限:
您 無法 在這個版面回復文章