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

1、SolidWorks2014基于宏实现快速"图号名称"分离1. 两类代码Ø 代码1（内容添加至“自定义下”）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'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat =

3、 Chr(34) + Trim("SW-Material" + "") + c + Chr(34)blnretval = Part.DeleteCustomInfo2("", "图样代号")blnretval = Part.DeleteCustomInfo2("", "图样名称")blnretval = Part.DeleteCustomInfo2("", "材料")a = InStr(c, " ") - 1 

4、9;重点：分隔标识符，这里是一个空格,也可用其他符号区分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 '消除后缀（区分大小写，即含4种） Else j = Len(b) End If m = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "图样代号", swCustomInfoText, e) '代号blnretval = Part.AddCustomInfo3("", "图样名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInf

6、o3("", "表面处理", 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

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) '配置特定延伸'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "") + c + Chr(34)a = In

9、Str(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 = ".sldprt&qu

10、ot; Or t = ".sldasm"Then j = Len(b) - 7 '消除后缀（区分大小写，即含4种） Else j = Len(b) End If m = Left(b, j)End If'删除栏CustPropMgr.Delete ("图样代号")CustPropMgr.Delete ("图样名称")CustPropMgr.Delete ("材料")'新增CustPropMgr.Add2 "图样代号", swCustomInfoText, eCustPro

11、pMgr.Add2 "图样名称", swCustomInfoText, mCustPropMgr.Add2 "数量", swCustomInfoText, ""CustPropMgr.Add2 "材料", swCustomInfoText, strmatCustPropMgr.Add2 "单重", swCustomInfoText, ""CustPropMgr.Add2 "总重", swCustomInfoText, ""CustPro

12、pMgr.Add2 "备注", swCustomInfoText, ""End Sub特别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）2. 操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具宏新建在文件名中输入：图号分离.swp ；点击保存，进入宏编辑界面；1. 2认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A 全选删除。2. 3写代码：复制如下代码，写到上图的2区域；'从这里开始复制:'定义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'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "") + c + Chr(34)blnretval = Pa

15、rt.DeleteCustomInfo2("", "代号")blnretval = Part.DeleteCustomInfo2("", "名称")blnretval = Part.DeleteCustomInfo2("", "材料")a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格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("", "代号", swCustomInfoText, e)  '代号blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称blnretval = Part.AddCustomInfo3("", "表面处理", swCus