SolidWorks圖號(hào)名稱分離宏

1、SolidWorks宏代碼，用來(lái)分離文件名中的圖號(hào)與零件名并自動(dòng)寫(xiě)入屬性，文件名不需要“-”或者空格等特殊符號(hào)，不限制圖號(hào)長(zhǎng)度，均可識(shí)別并分離使用方法1. 打開(kāi)宏工具欄2 點(diǎn)擊新建宏按鈕 選擇路徑，輸入新建宏名稱3刪除窗口里的所有代碼，把本文檔里的代碼粘貼進(jìn)去保存4打開(kāi)SolidWorks自定義5 打開(kāi)命令標(biāo)簽，選擇宏，把方框里的圖標(biāo)拖動(dòng)到SolidWorks主界面工具欄6 在彈出窗口瀏覽剛剛保存的宏文件路徑，點(diǎn)擊確定7 在打開(kāi)文件的情況下，點(diǎn)擊剛剛在工具欄創(chuàng)建的宏按鈕即可自動(dòng)識(shí)別并寫(xiě)入屬性以下為代碼：Sub MAIN()Set swApp = CreateObject("sldwo

2、rks.application")Set Part = swApp.ActiveDocswApp.ActiveDoc.ActiveView.FrameState = 1Set CurCFG = Part.GetActiveConfiguration()ConfName = CurCFG.NameName = swApp.ActiveDoc.GetTitle() c = Replace(Name, " ", "") blnretval = Part.AddCustomInfo3(ConfName, "代號(hào)", swCustom

3、InfoText, frmPartID)blnretval = Part.AddCustomInfo3(ConfName, "名稱", swCustomInfoText, frmPartID)blnretval = Part.AddCustomInfo3(ConfName, "備注", swCustomInfoText, frmPartID) b = Len(c) e = Right(c, 7) If e = ".SLDPRT" Or e = ".SLDASM" Or e = ".sldprt"

4、 Or e = ".sldasm" Then g = Left(c, b - 7)Else g = cEnd If l = Len(g) h = Left(g, 2) k = Len(g)For I = 1 To Len(g) If Asc(Mid$(g, I, 1) < 0 Then w = I Exit For End IfNextFor I = 0 To Len(g) - 1 If Asc(Mid$(g, Len(g) - I, 1) < 0 Then X = Len(g) - I Exit For End IfNextIf w > 0 Then I

5、f w = 1 Then s = Left(g, X) t = Right(g, k - X) Else t = Left(g, w - 1) s = Right(g, k - w + 1) End If Else s = "" t = gEnd Ifdummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("代號(hào)", t)dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名稱", s)dummy = Part.Extension.CustomPropertyMana