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

SolidWorks2014基于宏实现快速图号名称分离 1. 两类代码 ? 代码1（内容添加至“自定义下”） Dim swApp As Object Dim Part As Object 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 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 消除后缀（区分大小写，即含4种） Else j = Len(b) End If m = Left(b, j) End If blnretval = Part.AddCustomInfo3(, 图样代号, swCustomInfoText, e) 代号 blnretval = Part.AddCustomInfo3(, 图样名称, swCustomInfoText, m) 名称 blnretval = Part.AddCustomInfo3(, 表面处理, swCustomInfoText, ) End Sub ? 代码2（内容添加至“配置特定”下） 定义sw 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 Dim Part As Object Dim swApp As SldWorks.SldWorks Dim swModelDoc As SldWorks.ModelDoc2 Dim swConfig As SldWorks.Configuration Dim CustPropMgr As SldWorks.CustomPropertyManager Dim swModel As SldWorks.Mode