[問題]功能變數檔案名稱 Diesel 表示式

請問功能變數裡面存取檔案名稱~可否提取中間的檔名而略過中文名稱跟  - 符號之前的
例如 台積電test-201212 只提取 test 前面的台積電 及 -201212全部都不提取
其用意是因為公司同一張圖有很多圖 其編號是按中間名稱去命名 如 test-p1  test-p2
謝謝各位幫忙小弟解答了

這個必須使用 Field功能變數「Diesel表示式」

▼Diesel表示式語法 *回覆可見*：

好神奇呀!!
原本想說這個需要lisp才能實現了說
快來試試看~謝謝蘋果爸

測試結果失敗~出現了###
蘋果爸請問如這樣寫是取第4個字開始
但如果中文名稱長度不固定
那就無法了是嘛?

你會失敗是因為檔案字串不對，因為上面語法範例是用你的檔名（字串有18個）來設置的
說明：
1.字串有18個，前3個中文名稱不顯示，所以從第4個開始顯示
2.只要秀出S201這4個字串，後面18-4=14個

舉例：如果中文名稱為4個，其餘後面不變，那麼總字串就有19個
語法中的數字前面就要改5，後面改為15
說明：
1.字串有19個，前4個中文名稱不顯示，所以從第5個開始顯示
2.只要秀出S201這4個字串，後面19-4=15個


所以語法中的數字看你的檔名字串數來更改
如果你的字串都是不固定就沒有辦法通用

Tiger&蘋果爸 寫到:你會失敗是因為檔案字串不對，因為上面語法範例是用你的檔名（字串有18個）來設置的
說明：
1.字串有18個，前3個中文名稱不顯示，所以從第4個開始顯示
2.只要秀出S201這4個字串，後面18-4=14個

舉例：如果中文名稱為4個，其餘後面不變，那麼總字串就有19個
語法中的數字前面就要改5，後面改為15
說明：
1.字串有19個，前4個中文名稱不顯示，所以從第5個開始顯示
2.只要秀出S201這4個字串，後面19-4=15個


所以語法中的數字看你的檔名字串數來更改
如果你的字串都是不固定就沒有辦法通用

檔名真的是不固定~看來是無法使用了
謝謝蘋果爸細心的教導~

thx for sharing

學一下 Autolisp 或 VBA, 這是入門小程式, 應該不難.

字串 = "台積電test-201212"

以 VBA 為例, instr(字串, "-") 找到 "-" 的位置, 抽出"台積電test"

再用 ASCII code 抽出英文字母, 然後把檔案 rename, 或 kill, save as 就好了.

shackle_2005 寫到:學一下 Autolisp 或 VBA, 這是入門小程式, 應該不難.

字串 = "台積電test-201212"

以 VBA 為例, instr(字串, "-") 找到 "-" 的位置, 抽出"台積電test"

再用 ASCII code 抽出英文字母, 然後把檔案 rename, 或 kill, save as 就好了.

不懂英文所以覺得學起來很難
目前只能用別人寫好的做些簡單的修改

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

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執行後無作用

管理 -> VBA 管理員 -> 載入 -> file_name_001 -> 執行巨集 -> 巨集 -> 執行

https://www.youtube.com/watch?v=mLdPSMQIOec


執行 VBA 巨集

   在指令提示下，輸入 vbaman 並按 Enter。
   在「VBA 管理員」對話方塊中，按一下「巨集」。
   在「巨集」對話方塊中，選取要執行的巨集。按一下「執行」。

   列示在「巨集名稱」方塊中的程序使用下列語法：

   project!module.macro
   回應對話方塊或巨集顯示的任何提示。

從指令提示執行 VBA 巨集

   在指令提示下，輸入 -vbarun 並按 Enter。
   輸入要執行的巨集名稱並按 Enter。

   必須使用以下語法提供巨集名稱：。
   回應對話方塊或巨集顯示的任何提示。

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沒有任何變化

因為我不會畫圖, 所以可能我有點誤解了. 我以為你是要改圖檔的檔名, 現在好像是要抓外在的檔名, 抽出英文加數字再放在圖框裏面, 是不是可以提供簡單 sample 圖檔, 3Q.

shackle_2005 寫到:因為我不會畫圖, 所以可能我有點誤解了. 我以為你是要改圖檔的檔名, 現在好像是要抓外在的檔名, 抽出英文加數字再放在圖框裏面, 是不是可以提供簡單 sample 圖檔, 3Q.

麻煩大大幫我看一下了謝謝~附件如下

這樣可比抽出英文字寫在圖號上

shackle_2005 寫到:這樣可比抽出英文字寫在圖號上

大大經過使用後~雖然可以使用~但會出現在同一個地方
小弟在一張圖面上會有多個圖框~圖框大小不一~位置不定~這樣不知大大能否幫忙解決!?
還有一個小小的問題~就是當"台積電whe46584-210116"需要提取的是whe46584~目前的狀況為whe
謝謝大大的幫忙

請給一個很多個圖框的樣本圖檔, 003 就可以抽出數字, 3Q

試試看, 004 加 -p1, -p2, -p3 ......

shackle_2005 寫到:請給一個很多個圖框的樣本圖檔, 003 就可以抽出數字, 3Q

大大這是一圖多檔的情形
在煩請測試謝謝

圖框不能炸開, 3Q

shackle_2005 寫到:圖框不能炸開, 3Q

抱歉~~沒注意到~~已重新上傳~煩請大大查看

再試試看, 圖框好像匿名圖塊.

shackle_2005 寫到:再試試看, 圖框好像匿名圖塊.

大大~我執行後無任何反應

我在 2010, 2020 測試都是 OK, 希望網友可以幫忙試一下, 3Q.