SOLIDWORKS图号分离宏

【实例简介】solidworks用图号分离宏，能自动识别文件名的数字英文符号和中文符号分别填入文件参数内，并自动保存
【实例截图】
【核心代码】Sub MAIN()

Set swApp = CreateObject("sldworks.application")
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
Set CurCFG = Part.GetActiveConfiguration()
ConfName = CurCFG.Name
Name = swApp.ActiveDoc.GetTitle()
c = Replace(Name, " ", "")
blnretval = Part.AddCustomInfo3(ConfName, "图号", swCustomInfoText, frmPartID)
blnretval = Part.AddCustomInfo3(ConfName, "名称", swCustomInfoText, frmPartID)
blnretval = Part.AddCustomInfo3(ConfName, "备注", swCustomInfoText, frmPartID)
b = Len(c)
e = Right(c, 7)
If e = ".SLDPRT" Or e = ".SLDASM" Or e = ".sldprt" Or e = ".sldasm" Then
g = Left(c, b - 7)
Else
g = c
End If
l = Len(g)
h = Left(g, 2)
k = Len(g)
For I = 1 To Len(g)
If Asc(Mid$(g, I, 1)) < 0 Then
w = I
Exit For
End If
Next
For I = 0 To Len(g) - 1
If Asc(Mid$(g, Len(g) - I, 1)) < 0 Then
X = Len(g) - I
Exit For
End If
Next
If w > 0 Then
If w = 1 Then
s = Left(g, X)
t = Right(g, k - X)
Else
t = Left(g, w - 1)
s = Right(g, k - w 1)
End If
Else
s = ""
t = g
End If
dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("图号", t)
dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名称", s)
dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("备注", j)
' Save
Dim swErrors As Long
Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
End Sub