馬達編號可重新編排

大家好：
我有一個問題是一條生產線輸送帶每一段都有一個馬達帶動，我們都是M1、M2、M3.....來表示，但是設計中修改可能有一段輸送增加或刪除狀況，那馬達編號又要重頭一個一個去改，有什麼方式類似TCOUNT指令可以一次將我的馬達編號重新排序。但是我們一定要英文字母M掛在前頭。
謝謝

可以上傳一個 簡單 sample 圖檔嗎 ??

簡易圖檔以附加

太久沒用, 開成新的發表主題了.

VBA 做的, 測試一下.

你好：
我下載後Autocad執行Appload卻出現錯誤無法載入，不曉得你裡出錯敬請不吝指教。
謝謝

我的是 Autocad 2010 版本, 請問你的 Autocad 是那一年版本 ??

感謝Shakle的幫忙，已經測試OK了。
謝謝

不客氣, 我在 2014, 2020 測試也是 OK 的, 有問題再提出, 3Q.

你好：
另外我請教一下如我們工程圖面還會有一些閥門Valve，彙編V1、V2、V3....及儀器I1、I2、I3.....等等。
這一些是否有彈性的設定輸入變更的英文代號及數字。目前這個對這些好像無法變更。
謝謝

其它比較複雜, 比較完整的功能可能要客製化服務, 如果有需要可以到職場交流 / 職缺快遞, 有我的 LINE 可以聯絡, 3Q.

試看看小弟製作的 LISP
※使用限制   編碼的最後  一定要是數字
指令輸入 : T+1

< < < 點我下載 > > >

2021 年大家新年快樂, 有競爭才會有進步, 神人出沒, 高手加油 !!

Justem 寫到:你好：
另外我請教一下如我們工程圖面還會有一些閥門Valve，彙編V1、V2、V3....及儀器I1、I2、I3.....等等。
這一些是否有彈性的設定輸入變更的英文代號及數字。目前這個對這些好像無法變更。
謝謝

試試看這個吧，可以修改文字中某段的連續編號。
純數字或是ZK1B，這種數字前、後都有字母的也可以修改。

Very good, 非常好用, 讚 !!!

Option Explicit

Public tm As AcadModelSpace ' 設 tm 簡化圖紙空間(thisdrawing.modelspace)名稱
Public tu As AcadUtility

Public Sub motor_find()

Set tm = ThisDrawing.ModelSpace: Set tu = ThisDrawing.Utility

Dim ent As AcadObject
Dim motor_number As Integer

motor_number = tu.GetInteger("請輸入馬達號碼 : ") ' 例如 M22, 只輸入 22 數字就好.

For Each ent In tm ' 過濾圖面上每一個物件

   If TypeOf ent Is AcadMText Then ' 找到每一個 MText 物件
   
      If Val(Mid(ent.TextString, 2)) = motor_number Then ' 找到 M22, 取出 M 後面的數字
     
         ZoomCenter ent.InsertionPoint, 10 ^ 3 ' 顯示 M22
   
      End If
   End If
Next ent

End Sub

Atsai兄你好：
我對.vxl檔案不是很孰悉，我從【管理】-->【載入應用程式】，然後也有看到載入成功。
但是在Autocad命令輸入：bhxg卻無法執行。
請告知如何去執行它。
謝謝

Justem 寫到:Atsai兄你好：
我對.vxl檔案不是很孰悉，我從【管理】-->【載入應用程式】，然後也有看到載入成功。
但是在Autocad命令輸入：bhxg卻無法執行。
請告知如何去執行它。
謝謝

命令列輸入：appload
載入：bhxg_修改文字某段連續編號.VLX
命令列輸入：bhxg

你的cad是那個版本？出現的錯誤訊息？
我測試是沒有問題的！

你好：
測試OK，我載入全部刪除再重新載入就OK了，但是昨天很奇怪就一直無法執行。
還是感謝你的提供。