写一个solidworks自动写入零件信息的宏程序，零件信息包含零件号、图名、材质、作者

好的，以下是一个可以自动写入 SolidWorks 零件信息的宏程序示例，包括零件号、图名、材质和作者等信息：

Option Explicit

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

    '零件号
    Part.SummaryInfo(SW_PARTNUMBER) = "Part001"

    '图名
    Dim View As View
    Set View = Part.GetFirstView
    If Not View Is Nothing Then
        Dim DrawingName As String
        DrawingName = View.Name
        DrawingName = Left(DrawingName, Len(DrawingName) - 3) '去掉末尾的 "-1"
        Part.SummaryInfo(SW_TITLE) = DrawingName
    End If

    '材质
    Dim Material As String
    Material = Part.CustomInfo2("材质")
    Part.SummaryInfo(SW_MATERIAL) = Material

    '作者
    Part.SummaryInfo(SW_AUTHOR) = "John Doe"

    '写入零件信息
    Part.Save

    Set Part = Nothing
End Sub

以上代码中，我们获取当前活动的零件文档，并依次写入了零件号、图名、材质和作者等信息。其中，获取图名需要获取零件的第一个视图，并从视图名称中提取图名，去掉末尾的 "-1" 后作为图名写入。获取材质使用了零件文档中的自定义属性 "材质"。

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