Solidworks图号代号分离代码(四段空格分离)

Dim swApp As Object

Dim Part As Object

Dim FL_N, XX_L As Variant

Dim F_name As String

Dim i As Integer

'———————————根据自己需求进行更改————————————————————————————————————————

Public Const c = " " '文件名分离符号

Public Const b = "物料编码 版本 图号/型号 名称" '属性名称--对应写入文件名分离的名称

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

F_name = Part.GetPathName '完整路径

F_name = Mid(F_name, InStrRev(F_name, "\") + 1, Len(F_name) - InStrRev(F_name, "\") - 7) '文件名

FL_N = Split(F_name, c)

XX_L = Split(b, " ")

If UBound(FL_N) > UBound(XX_L) Then MsgBox "警告：属性名称不够对应分离文件名称！": End

For i = 0 To UBound(FL_N)

Part.DeleteCustomInfo2 "", XX_L(i)

Part.AddCustomInfo3 "", XX_L(i), swCustomInfoText, FL_N(i) '分离后每段名称写入

Next i

End Sub