求大佬该一键转step桌面

Kerwin1314 · 发表于 2024-7-21 10:15:33

经典图书

此宏可将当前打开的零部件模型一键转存至桌面，请大佬帮我改成能存step的AP214格式(带模型颜色)

Sub Main()
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim userName As String
Dim partTitle As String
Dim partTitleLength As Integer
Dim stepFileName As String
Dim desktopPath As String
Dim result As Long, warnings As Long

' 获取计算机用户名称
userName = Environ$("username")

' 获取 SOLIDWORKS 应用程序对象
Set swApp = Application.SldWorks

' 获取当前活动文档（假设是零件或装配体）
Set Part = swApp.ActiveDoc

' 检查是否有一个有效的文档
If Not Part Is Nothing Then
      ' 获取文档标题
      partTitle = Part.GetTitle
      partTitleLength = Len(partTitle)

      ' 构建 STEP 文件的完整路径（注意：我们在这里添加 ".Step" 而不是 ".dwg"）
      desktopPath = "C:\Users\" & userName & "\Desktop\"
      stepFileName = desktopPath & partTitle & ".step"

      ' 保存零件或装配体为 STEP 格式
      result = Part.SaveAs3(stepFileName, 0, 2)

      ' 检查保存操作是否成功
      If result = 0 Then
         MsgBox "文件已成功保存为 STEP 格式。"
      Else
         MsgBox "保存文件时出错。错误代码: " & result
      End If

      ' 如果需要，可以在这里关闭文档，但通常不建议立即关闭，因为用户可能还想进行其他操作
      ' swApp.CloseDoc Part.GetTitle2
Else
      MsgBox "没有打开任何文档。"
End If
End Sub