SolidWorks2014基于宏实现快速图号名称分离.pdf

精品文档 SolidWorks2014 基于宏实现快速 图号名称 分离 当我们创建好一个 Solidworks 零件以后， 为了更快速把零件的 “图号和名称 ”分别填入自定义属性 中，以方便出工程图时调用到标题栏中。 用 solidworks 宏编写整理这篇说明， 现实把 ”CTJ300-03-10 连杆座 “ 分离出 CTJ300-03-10 和 连杆座 ，以供参考。 工具 / 原料 Solidworks2014 宏代码 一、宏代码 1. 1 新建宏代码：工具——宏——新建 在文件名中输入：图号分离 .swp ；点击保存，进入宏编辑界面； 。 1 欢迎下载 精品文档 2. 2 认识宏编辑界面： 1、工程信息 2、编程区域 3、做一个写代码前的准备工作，把 2 区域的内容 Ctrl+A 全选删除。 3. 3 写代码：复制如下代码，写到上图的 2 区域； 从这里开始复制 : 定义 solidwork Dim swApp As Object Dim Part As Object 。 2 欢迎下载 精品文档 Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object Dim a As Integer Dim b As String Dim m As String Dim e As String Dim k As String Dim t As String Dim c As String Dim j As Integer Dim strmat As String Dim tempvalue As String Sub main() link solidworks Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager swApp.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 Th