solidworks代號名稱分離宏命令(屬性”自定義“或”配置特定“中)

1、SolidWorks2014基于宏實(shí)現(xiàn)快速圖號名稱分離1. 兩類代碼 代碼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 StringDim c As St

2、ringDim 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 = Chr(34) + Trim(SW-Material + ) +

3、 c + Chr(34)blnretval = Part.DeleteCustomInfo2(, 圖樣代號)blnretval = Part.DeleteCustomInfo2(, 圖樣名稱)blnretval = Part.DeleteCustomInfo2(, 材料)a = InStr(c, ) - 1 重點(diǎn)：分隔標(biāo)識符，這里是一個(gè)空格,也可用其他符號區(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 +

4、2) t = Right(c, 7) If t = .SLDPRT Or t = .SLDASM Or t = .sldprt Or t = .sldasmThen j = Len(b) - 7 消除后綴（區(qū)分大小寫，即含4種） Else j = Len(b) End If m = Left(b, j)End Ifblnretval = Part.AddCustomInfo3(, 圖樣代號, swCustomInfoText, e) 代號blnretval = Part.AddCustomInfo3(, 圖樣名稱, swCustomInfoText, m) 名稱blnretval = Part

5、.AddCustomInfo3(, 表面處理, 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 As SldWorks.SldWorksDim swModelDoc

6、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.ActiveConfigurationSet swModel = swApp

7、.ActiveDocSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) 配置特定延伸設(shè)定變量c = swApp.ActiveDoc.GetTitle() 零件名strmat = Chr(34) + Trim(SW-Material + ) + c + Chr(34)a = InStr(c, ) - 1 重點(diǎn)：分隔標(biāo)識符，這里是一個(gè)空格，也可換成其他符號If a 0 Then k = Left(c, a) t = Left(

8、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 = .sldasmThen j = Len(b) - 7 消除后綴（區(qū)分大小寫，即含4種） Else j = Len(b) End If m = Left(b, j)End If刪除欄CustPropMgr.Delete (圖樣代號)CustPropMgr.Delete (圖樣名稱)CustPr

9、opMgr.Delete (材料)新增CustPropMgr.Add2 圖樣代號, swCustomInfoText, eCustPropMgr.Add2 圖樣名稱, swCustomInfoText, mCustPropMgr.Add2 數(shù)量, swCustomInfoText, CustPropMgr.Add2 材料, swCustomInfoText, strmatCustPropMgr.Add2 單重, swCustomInfoText, CustPropMgr.Add2 總重, swCustomInfoText, CustPropMgr.Add2 備注, swCustomInfoTe

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

11、ooleanDim 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 StringSub main()link solidworksSet swApp = Application.SldWorksSet Par

12、t = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1設(shè)定變量c = swApp.ActiveDoc.GetTitle() 零件名strmat = Chr(34) + Trim(SW-Material + ) + c + Chr(34)blnretval = Part.DeleteCustomInfo2(, 代號)blnretval = Part.DeleteCustomInfo2(, 名稱)blnretval = Part.DeleteCustomInfo2(

13、, 材料)a = InStr(c, ) - 1 重點(diǎn)：分隔標(biāo)識符，這里是一個(gè)空格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 Then j = Len(b) - 7 Else j = Len(b) End If m = Left(b, j)End Ifblnretval = Part.AddCustomInfo3(, 代號, swCustomInfoText, e) 代號blnretval = Part.AddCustomInfo3(, 名稱, swCustomInfoText, m) 名稱blnretval = Part.AddCustomInfo3(, 表面處理, swCustomInfoText, )End Sub3. 4保存退出。第一部分做到這就算完成了。下面是創(chuàng)建