solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中).docx

SolidWorks2014基于宏实现快速图号名称分离两类代码代码1（内容添加至“自定义下”）Dim swApp As ObjectDim Part As ObjectDim SelMgrAs 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 StringSub main()linksolidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1设定变量c = swApp.ActiveDoc.GetTitle() 零件名strmat = Chr(34) + Trim(SW-Material + @) + c + Chr(34)blnretval = Part.DeleteCustomInfo2(, 图样代号)blnretval = Part.DeleteCustomInfo2(, 图样名称)blnretval = Part.DeleteCustomInfo2(, 材料)a = InStr(c, ) - 1 重点：分隔标识符，这里是一个空格,也可用其他符号区分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 = .sldprtOr t = .sldasmThen j = Len(b) - 7消除后缀（区分大小写，即含4种） 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 Sub代码2（内容添加至“配置特定”下）定义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 As SldWorks.ModelDoc2Dim swConfig As SldWorks.ConfigurationDim CustPropMgrAsSldWorks.CustomPropertyManagerDim swModel As SldWorks.ModelDoc2Sub main()Set swApp = Application.SldWorksSet swModelDoc = swApp.ActiveDocSet swConfi