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

SolidWorks2014 基于宏实现快速"图号名称"分离 1 . 两类代码 ➢ 代码1 （内容添加至“自定义下”） Dim sw App As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longw arnings 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 solidw orks Set sw App = Application.SldWorks Set Part = sw App.ActiveDoc Set SelMgr = Part.SelectionManager sw App.ActiveDoc.ActiveView .FrameState = 1 '设定变量 c = sw App.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 = ".sldasm"Then 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 s...