solidworks批量分离图号宏程序代码 用空格为条件分离

以下是一个示例宏程序代码，可以实现批量分离图号，以空格为分隔符：

'-------------------------------------------------------------------
' 宏程序名称: BatchSeparateDrawingNumbers
' 描述: 批量分离图号，以空格为分隔符
' 版本: 1.0
' 作者: YourName
'-------------------------------------------------------------------

Option Explicit

Sub BatchSeparateDrawingNumbers()
    
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swNote As SldWorks.Note
    Dim strText As String
    Dim strNumber As String
    Dim i As Integer
    Dim j As Integer
    
    Set swApp = Application.SldWorks
    
    '选择需要处理的图纸文件
    Set swSelMgr = swApp.ActiveDoc.SelectionManager
    If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelDRAWINGVIEW Then
        MsgBox "请选择需要处理的图纸文件", vbExclamation, "批量分离图号"
        Exit Sub
    End If
    
    '遍历每个图纸文件中的注释
    For Each swModel In swSelMgr.GetSelectedObjectsList2(-1)
        If swModel.GetType = swDocDRAWING Then
            Set swDraw = swModel
            For i = 1 To swDraw.GetSheetCount()
                swDraw.ActivateSheet i
                For Each swNote In swDraw.GetSheetAnnotations
                    If swNote.GetType = swAnnotationType_e.swNote Then
                        strText = swNote.GetText()
                        '按空格分割注释文本
                        Dim arrText() As String
                        arrText = Split(strText, " ")
                        For j = 0 To UBound(arrText)
                            strNumber = Trim(arrText(j))
                            If Len(strNumber) > 0 Then
                                '创建新的注释
                                swDraw.CreateText strNumber, swNote.GetPositionX, swNote.GetPositionY
                            End If
                        Next
                        '删除原来的注释
                        swNote.Select2 False, 0
                        swNote.Delete()
                    End If
                Next
            Next
        End If
    Next
    
End Sub

使用方法：

1. 打开 SolidWorks，打开需要处理的图纸文件。

2. 打开宏程序编辑器（Tools -> Macro -> Edit），将以上代码复制到编辑器中。

3. 保存宏程序并关闭编辑器。

4. 在 SolidWorks 中运行宏程序（Tools -> Macro -> Run）。

5. 选择需要处理的图纸文件，点击“确定”开始处理。

6. 程序会遍历每个图纸文件中的注释，按空格分割注释文本，并创建新的注释。原来的注释会被删除。