写一个solidworks自动写入零件信息的宏程序，零件信息包含零件号、图名、作者为陈涛，零件号和图名为文件名称

好的，以下是一个可以自动写入 SolidWorks 零件信息的宏程序示例，包括零件号、图名和作者等信息。其中，零件号和图名分别设置为当前文档的文件名称，作者设置为 "陈涛"。

Option Explicit

Sub WritePartInfo()
    Dim Part As PartDoc
    Set Part = ActiveDoc
    '获取零件文档

    '零件号
    Dim PartNumber As String
    PartNumber = GetFileNameWithoutExtension(Part.GetPathName)
    Part.SummaryInfo(SW_PARTNUMBER) = PartNumber

    '图名
    Dim DrawingName As String
    DrawingName = PartNumber
    Part.SummaryInfo(SW_TITLE) = DrawingName

    '作者
    Part.SummaryInfo(SW_AUTHOR) = "陈涛"

    '写入零件信息
    Part.Save

    Set Part = Nothing
End Sub

Function GetFileNameWithoutExtension(ByVal FileName As String) As String
    GetFileNameWithoutExtension = Left(FileName, Len(FileName) - Len(GetExtensionName(FileName)) - 1)
End Function

Function GetExtensionName(ByVal FileName As String) As String
    GetExtensionName = Mid(FileName, InStrRev(FileName, ".") + 1)
End Function

以上代码中，我们使用了两个函数 GetFileNameWithoutExtension 和 GetExtensionName，分别用于获取文件名（不包含扩展名）和扩展名。然后，我们使用 GetFileNameWithoutExtension 函数获取当前文档的文件名（不包含扩展名），并将其作为零件号和图名写入零件信息中。同时，我们将作者设置为 "陈涛"。

您可以将以上代码复制粘贴到 SolidWorks VBA 编辑器中，保存为一个宏程序，然后在 SolidWorks 中打开一个零件文档，运行宏程序即可自动写入零件信息。请注意，上述代码中的作者名称应根据实际需求进行修改。