SolidWorks图号分离宏代码

以下是一个简单的 SolidWorks 图号分离宏代码示例：

Sub SeparatePartNumber()
    Dim swApp As Object
    Dim swModel As Object
    Dim swCustPropMgr As Object
    Dim strPartNumber As String
    Dim strNewPartNumber As String
    Dim strDelimiter As String
    Dim intDelimiterPosition As Integer
    
    '获取 SolidWorks 应用程序对象
    Set swApp = Application.SldWorks
    
    '获取当前活动模型
    Set swModel = swApp.ActiveDoc
    
    '获取自定义属性管理器
    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
    
    '获取原始图号
    strPartNumber = swCustPropMgr.Get("Part Number")
    
    '选择分隔符
    strDelimiter = InputBox("Enter the delimiter to separate the part number", "Delimiter", " ")
    
    '查找分隔符的位置
    intDelimiterPosition = InStr(1, strPartNumber, strDelimiter, vbTextCompare)
    
    '如果找到分隔符，则分离图号
    If intDelimiterPosition > 0 Then
        strNewPartNumber = Left(strPartNumber, intDelimiterPosition - 1)
        swCustPropMgr.Add2 "Part Number Prefix", 30, strNewPartNumber
        strNewPartNumber = Mid(strPartNumber, intDelimiterPosition + 1)
        swCustPropMgr.Add2 "Part Number Suffix", 30, strNewPartNumber
    Else
        MsgBox "Delimiter not found in part number", vbExclamation, "Error"
    End If
    
End Sub

该宏将获取当前活动模型的“Part Number”自定义属性值，并要求用户输入一个分隔符来分离图号。然后，它将查找分隔符的位置，并将图号的前缀和后缀作为新的自定义属性添加到模型中。如果找不到分隔符，则会显示错误消息框。请注意，该代码仅适用于具有“Part Number”自定义属性的 SolidWorks 模型。