编写成以下形式的代码，
(1)EXT- (2)D（3）16 - (4)L （5）100 - (6)M （7）6 - (8)N （9）6 - (10)S （11）20
括号内为注释，
1 类型码  EXT 字符串 可更换成EXB EXC EXY
2 直径  D 字符串 常数
3 可变参数  16 字符串 常数 8 10 12 16 20 25 30 35 （直接输入数字也可）
4 总长  L 字符串 常数
5 可变参数  16 字符串   L>50
6 左端面螺纹  M 字符串 常数
7 可变参数  6 字符串 常数 数值选择  3 4 5 6 8 10 12
8 右端面螺纹  N 字符串 常数
9 可变参数  6 字符串 常数 数值选择  3 4 5 6 8 10 12
10 扁位距离  S 字符串 常数
11 可变参数  10 字符串 常数 数值输入 整数 0 1 2 为正整数
最终输入的数据样例  EXB-D20-L101-M5-N5-S20    EXB-D20-L101  EXB-D20-L101-M5-S20  EXB-D10-L101-N5-S20  EXB-D20-L101-M5-S0   用VB6.0语言编程  菜鸟，可能讲不清，可询问电话，可加价

用于SOLIDWORKS API 宏程序

'定义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)

'tempvalue = Part.CustomInfo2("", "材料")
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)


End Sub


这是别人做的简易程序，可参考