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 Then j = Len(b) - 7 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"/>
关于图号分离 宏代码 问题
如下是图号分离 宏代码 图号在前 名称在后用此宏可以 一键 分离 到自定义属性上面去,问题来了我现在调用的3D制造云标准件 都是名称在前代号再后这个宏得更改一下了 谁会帮我改改。 "从这里开始复制: "定义solidwork 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(, 名称) 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 Then j = Len(b) - 7 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