SolidWorks圖號名稱分離宏

1、i dWor ks圖號名稱分Prepared on 22 November 2020)IJ77777TL77 團瑛2點擊新建宏按鈕4 I>II $ II7塔ZT1O-3O13導向軸聯(lián)動板徽認7默1新建宏,通動宏編輯器并開始編輯新建宏。選擇路徑，輸入新建宏名稱3刪除窗口里的所有代碼，把本文檔里的代碼粘貼進去保存以甲|七，"為 Miaos oh Visual Basic For Appiicotbcs - Macrol - 'Macroll典文件(D ««1)颼M田入CD尚£9)蝴爾運行的二耳心先騎緋®目二加的皿，未抬 j.ttcr

2、s«H 皿立佯1® & XTQ - Macro尸三畫-國«<r>l*. _ SCUWOKK itrO«W京 R,E 11抬個 X=Axbc4ti»n SlObK。工,叱下各蜜號 e行3,列ia、Ap? At S>ict nunO Bia4打開SolidWorks自定義師 IE顧武清自動層5TP L性選項目雙 插件“保存/恢復設置”.按鈕大小5打開命令標簽，選擇宏，把方框里的圖標拖動到SolidWorks主界面工具欄zno-301：1 即僦眩射射nstantSD巨動屬STP生成彈甌意改圖號名黃變零件稱數(shù)量拿 輻盅鼠后筆勢

3、自定義A II陶6在彈出窗口瀏覽剛剛保存的宏文件路徑，點擊確定I翦I閽I e I手10-30 。歷史】 。傳感S3材質(zhì) 蒯見 J上押 右視 .原南 j凸臺 5圓角 侵角 *導向，8切除拉伸1instantsZT10JOI3導向招肽宓板5LDPRT7在打開文件的情況下，點擊剛剛在工具欄創(chuàng)建的宏按鈕即可自動識別并寫入 屬性a aal2qc£j/VS性音 變案件稱數(shù)度雕戶戶或農(nóng)工注，口，搐妄信息1捻要1三定義【配置后定1 M應用到(A)： 滁(D)屆性名稱默認起/數(shù)值/文字表達-5科明也表教叁1代號N二ZT1O.3013ZT10-30132名稱存的濟鼠動板導向鈉耗前也3陰科文字:6061鋁

4、6061 鋁4表面處理羚質(zhì)眇、氧化噴砂、氧化以下為代碼:Sub MAIN()Set swApp = CreateObject(nn)Set Part = =1Set CurCFG =()ConfName =Name = c = Replace(Name,"blnretval = (ConfName, "代號"，swCustomlnfoText, frmPartID) blnretval = (ConfName, "名稱"，swCustomlnfoText, frmPartID) blnretval = (ConfName, “備注“，swCus

5、tomlnfoText, frmPartID)b = Len(c)e = Right(c, 7)Ife= ".SLDPRT" Or e = ".SLDASM" Or e = ".sldprt" Or e = ".sldasm" Then g = Left(c, b - 7)Elseg = cEnd If1 = Len(g)h = Left(g, 2)k = Len(g)For I = 1 To Len(g)If Asc(Mid$(g, I, 1) < 0 Thenw = IExit ForEnd IfNextFor I = 0 To Len(g) - 1If Asc(Mid$(g, Len(g) - I, 1) < 0 ThenX = Len(g) - IExit ForEnd IfNextIf w > 0 ThenIf w = 1 ThenS = Left(g, X)t = Right(g, k - X)Elset = Left(g, w - 1)s = Right® k - w + 1)End IfElses ="