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

1、solidworks代号名称分离宏命令属性自定义或配置特定中solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)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 A

2、s StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()link solidworks 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 消除后缀（区分大小写，即含4种） Else

3、 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 StringDi

4、m 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 CustPropMgr As SldWorks.CustomPropertyManagerDim swModel

5、As SldWorks.ModelDoc2Sub main()Set swApp = Application.SldWorksSet swModelDoc = swApp.ActiveDocSet swConfig = swModelDoc.ConfigurationManager.ActiveConfigurationSet swModel = swApp.ActiveDocSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Nam

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

7、t = .SLDASM Or t = .sldprt Or t = .sldasmThen 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, eCustPropMgr.Add2 图样名称, swCustomInfoText, mCustPropMgr.Add2

8、数量, swCustomInfoText, CustPropMgr.Add2 材料, swCustomInfoText, strmatCustPropMgr.Add2 单重, swCustomInfoText, CustPropMgr.Add2 总重, swCustomInfoText, CustPropMgr.Add2 备注, swCustomInfoText, End Sub特别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）2.操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具宏新建在文件名中输入：图号分离.swp ；点击保存，进入宏编辑界

9、面；1.认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A 全选删除。2.写代码：复制如下代码，写到上图的2区域；从这里开始复制:定义solidworkDim 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

10、 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 Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1设定变量c = swApp.ActiveDoc.GetTitl

11、e() 零件名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)

12、 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.保存退出。第一部分做到这就算完成了。下面是创建宏按钮；END二、创建宏按钮1.返回Solidworks工作界面，进入自定义工具栏：工具自定义；选择命令选项卡，找到宏 ，把新建宏按钮拖到工具栏的空白处；2.弹出自定义宏按钮对话框：1、选择上面保存的宏文件；2、指定一个图标，以便在工具栏中显示；3、指定一个指示的名称，以便在工具栏中显示；3.点击确定，退出自定义宏按钮，完成制作。4.新建零件命名规则：代号+空格+名称注意：代号中不能出现空格，宏以第一个空格为分隔符。