AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.

CAD 搜尋特殊字元一問

3 posters

向下

CAD 搜尋特殊字元一問 Empty CAD 搜尋特殊字元一問

發表 由 sireny238 2022-04-27, 14:49

最近接手電氣系統清圖作業

苦惱於想搜尋有上引線(%%O)的字串

如下圖

CAD 搜尋特殊字元一問 Y10

搜尋鍵入%%O14是搜尋不到的...

要單獨搜尋14 或是3-14

但這樣資料量會太大 或是 會有漏項(如搜尋3-14 會 漏2-14/4-14之類)

是否有針對控制碼的字串精準搜尋的方式呢?
sireny238
sireny238
一般會員
一般會員

文章總數 : 5
年齡 : 27
來自 : 台中市龍井區
職業 : 設備繪圖
愛好 : 繪圖
個性 : 內向慢熟
使用年資 : 1
使用版本 : 2018
經驗值 : 366
威望值 : 0
注冊日期 : 2021-06-17
男 水瓶座 豬

回頂端 向下

CAD 搜尋特殊字元一問 Empty 回復: CAD 搜尋特殊字元一問

發表 由 Tiger&蘋果爸 2022-04-28, 09:23

我也試過預設方式真的找不到
可能要尋求程式或其他方式!

____________________________________________________________________________________
CAD 搜尋特殊字元一問 Sesa2011 CAD 搜尋特殊字元一問 Youtub11 CAD 搜尋特殊字元一問 Oiea2011 CAD 搜尋特殊字元一問 Oe20011 CAD 搜尋特殊字元一問 Fbi20011 CAD 搜尋特殊字元一問 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 20193
年齡 : 46
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 82248
威望值 : 15893
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

CAD 搜尋特殊字元一問 Empty 回復: CAD 搜尋特殊字元一問

發表 由 shackle_2005 2022-04-28, 12:09

上傳一個簡單 sample 我試試, 3Q
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 227
年齡 : 50
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5790
威望值 : 334
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

CAD 搜尋特殊字元一問 Empty 回復: CAD 搜尋特殊字元一問

發表 由 sireny238 2022-04-28, 13:36

檔案已上傳如附件~
附件
CAD 搜尋特殊字元一問 Attachment
TEST.zip 您無權下載這里的附件。(35 Kb) 下載 2 次
sireny238
sireny238
一般會員
一般會員

文章總數 : 5
年齡 : 27
來自 : 台中市龍井區
職業 : 設備繪圖
愛好 : 繪圖
個性 : 內向慢熟
使用年資 : 1
使用版本 : 2018
經驗值 : 366
威望值 : 0
注冊日期 : 2021-06-17
男 水瓶座 豬

回頂端 向下

CAD 搜尋特殊字元一問 Empty VBA 做的, 試試看可不可以, 3Q

發表 由 shackle_2005 2022-04-28, 14:24

Option Explicit

Public tm As AcadModelSpace

Public Sub test()

On Error Resume Next

Dim text_obj As AcadText
Dim obj As AcadObject
Dim cir As AcadCircle

Set tm = ThisDrawing.ModelSpace

For Each obj In tm

   If TypeOf obj Is AcadText Then

      Set text_obj = obj
 
      If InStr(text_obj.TextString, "%%O") > 0 Then ' 如果字串裏面有引線
     
         Set cir = tm.AddCircle(text_obj.InsertionPoint, 100): cir.color = 3: cir.Update ' 就在字串插入點畫一個 100 的圓
     
      End If
   End If
Next obj

MsgBox "OK"

End Sub
附件
CAD 搜尋特殊字元一問 Attachment
VBA.zip 您無權下載這里的附件。(307 Kb) 下載 2 次
CAD 搜尋特殊字元一問 Attachment
876876.jpg 您無權下載這里的附件。(70 Kb) 下載 2 次
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 227
年齡 : 50
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5790
威望值 : 334
注冊日期 : 2010-09-20
男 獅子座 豬

Tiger&蘋果爸 and sireny238 like this post

回頂端 向下

CAD 搜尋特殊字元一問 Empty 回復: CAD 搜尋特殊字元一問

發表 由 sireny238 2022-04-28, 15:53

沒接觸過VBA 來試試看

感謝協助
sireny238
sireny238
一般會員
一般會員

文章總數 : 5
年齡 : 27
來自 : 台中市龍井區
職業 : 設備繪圖
愛好 : 繪圖
個性 : 內向慢熟
使用年資 : 1
使用版本 : 2018
經驗值 : 366
威望值 : 0
注冊日期 : 2021-06-17
男 水瓶座 豬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
CAD 搜尋特殊字元一問 Ioaoe110 CAD 搜尋特殊字元一問 2020-310 CAD 搜尋特殊字元一問 Oiu15010 CAD 搜尋特殊字元一問 2020-211 CAD 搜尋特殊字元一問 Ia15010 CAD 搜尋特殊字元一問 Aizyao10
CAD 搜尋特殊字元一問 Uos15010 CAD 搜尋特殊字元一問 BPl3tjj CAD 搜尋特殊字元一問 Ziao1510 CAD 搜尋特殊字元一問 Oo-2-110 CAD 搜尋特殊字元一問 Oooo-110 CAD 搜尋特殊字元一問 Aizyao11
CAD 搜尋特殊字元一問 Uos15011 CAD 搜尋特殊字元一問 RQvAhqF CAD 搜尋特殊字元一問 YdKelqY CAD 搜尋特殊字元一問 K410yWG CAD 搜尋特殊字元一問 OhRPPej