1、SolidWorks2014基于宏實(shí)現(xiàn)快速"圖號(hào)名稱(chēng)"分離1. 兩類(lèi)代碼Ø 代碼1（內(nèi)容添加至“自定義下”）Dim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As

2、 StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1'設(shè)定變量c = swApp.ActiveDoc.GetTitle() '零件名strmat =

3、 Chr(34) + Trim("SW-Material" + "") + c + Chr(34)blnretval = Part.DeleteCustomInfo2("", "圖樣代號(hào)")blnretval = Part.DeleteCustomInfo2("", "圖樣名稱(chēng)")blnretval = Part.DeleteCustomInfo2("", "材料")a = InStr(c, " ") - 1 

4、9;重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格,也可用其他符號(hào)區(qū)分If a > 0 Then k = Left(c, a) t = Left(LTrim(e), 3) If t = "GBT" Then e = "GB/T" + Mid(k, 4) Else e = k End If b = Mid(c, a + 2) t = Right(c, 7) If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm&quo

5、t;Then j = Len(b) - 7 '消除后綴（區(qū)分大小寫(xiě)，即含4種） Else j = Len(b) End If m = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "圖樣代號(hào)", swCustomInfoText, e) '代號(hào)blnretval = Part.AddCustomInfo3("", "圖樣名稱(chēng)", swCustomInfoText, m) '名稱(chēng)blnretval = Part.AddCustomInf

6、o3("", "表面處理", swCustomInfoText, " ")End SubØ 代碼2（內(nèi)容添加至“配置特定”下）'定義swDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringDim Part As ObjectDim swApp

7、As SldWorks.SldWorksDim swModelDoc As SldWorks.ModelDoc2Dim swConfig As SldWorks.ConfigurationDim CustPropMgr As SldWorks.CustomPropertyManagerDim swModel As SldWorks.ModelDoc2Sub main()Set swApp = Application.SldWorksSet swModelDoc = swApp.ActiveDocSet swConfig = swModelDoc.ConfigurationManager.Act

8、iveConfigurationSet swModel = swApp.ActiveDocSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸'設(shè)定變量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "") + c + Chr(34)a = In

9、Str(c, " ") - 1 '重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格，也可換成其他符號(hào)If a > 0 Then k = Left(c, a) t = Left(LTrim(e), 3) If t = "GBT" Then e = "GB/T" + Mid(k, 4) Else e = k End If b = Mid(c, a + 2) t = Right(c, 7) If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt&qu

10、ot; Or t = ".sldasm"Then j = Len(b) - 7 '消除后綴（區(qū)分大小寫(xiě)，即含4種） Else j = Len(b) End If m = Left(b, j)End If'刪除欄CustPropMgr.Delete ("圖樣代號(hào)")CustPropMgr.Delete ("圖樣名稱(chēng)")CustPropMgr.Delete ("材料")'新增CustPropMgr.Add2 "圖樣代號(hào)", swCustomInfoText, eCustPro

11、pMgr.Add2 "圖樣名稱(chēng)", swCustomInfoText, mCustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""CustPropMgr.Add2 "材料", swCustomInfoText, strmatCustPropMgr.Add2 "單重", swCustomInfoText, ""CustPropMgr.Add2 "總重", swCustomInfoText, ""CustPro

12、pMgr.Add2 "備注", swCustomInfoText, ""End Sub特別說(shuō)明：在虛擬件中添加屬性時(shí)，名稱(chēng)會(huì)自動(dòng)加上從屬裝配體，非虛擬件則不會(huì)（此問(wèn)題急需高人指點(diǎn)）2. 操作步驟（以上述代碼1為例）一、宏代碼1新建宏代碼：工具宏新建在文件名中輸入：圖號(hào)分離.swp ；點(diǎn)擊保存，進(jìn)入宏編輯界面；1. 2認(rèn)識(shí)宏編輯界面：1、工程信息2、編程區(qū)域3、做一個(gè)寫(xiě)代碼前的準(zhǔn)備工作，把2區(qū)域的內(nèi)容Ctrl+A 全選刪除。2. 3寫(xiě)代碼：復(fù)制如下代碼，寫(xiě)到上圖的2區(qū)域；'從這里開(kāi)始復(fù)制:'定義solidworkDim swApp As O

13、bjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSu

14、b main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1'設(shè)定變量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "") + c + Chr(34)blnretval = Pa

15、rt.DeleteCustomInfo2("", "代號(hào)")blnretval = Part.DeleteCustomInfo2("", "名稱(chēng)")blnretval = Part.DeleteCustomInfo2("", "材料")a = InStr(c, " ") - 1      '重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格If a > 0 Then    k = Left(c, a) 

16、;   t = Left(LTrim(e), 3)    If t = "GBT" Then        e = "GB/T" + Mid(k, 4)    Else        e = k    End If    b = Mid(c, a + 2)    t = Right(c, 7)    If t = ".SLDPRT&quo

17、t; Or t = ".SLDASM" Then        j = Len(b) - 7    Else        j = Len(b)    End If    m = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)  '代號(hào)blnretval = Part.AddCustomInfo3("", "名稱(chēng)", swCustomInfoText, m)  '名稱(chēng)blnretval = Part.AddCustomInfo3("", "表面處理", swCus