有谁懂SOLIDWORKS的宏，进来帮我看看，谢谢！

• Sub main()
  
• Set swApp = Application.SldWorks
  
• Set Part = swApp.ActiveDoc
  
• 
  
• Dim swModelName As String
  
• Dim FileName As String
  
• Dim i As Integer
  
• 
  
• FileName = Part.GetPathName() '读取当前SW模型文档名(含路径)
  
• 'i = InStrRev(swModelName, "") '取""字符位置
  
• 'FileName = Mid(swModelName, i + 1, Len(swModelName) - i) '取出文件名包含后缀
  
• 'FileName = Left(FileName, Len(FileName) - 7)   '取文件名，去后缀
  
• Filename = Part.GetPathName()
  
• No = Len(Filename)
  
• Filename = Left(Filename, No - 7)
  
• 
  
• Dim myModelView As Object
  
• Set myModelView = Part.ActiveView
  
• myModelView.FrameState = swWindowState_e.swWindowMaximized
  
• 
  
• ' Save As
  
• longstatus = Part.SaveAs3(FileName & ".STP", 0, 0)
  
• End Sub
  

复制代码


想做个宏转STEP， 测试总是没什么反应，不报错，也不生成文件

是STEP，不是STP

1 楼主你这个应该用宏录制，而不是去写代码
2 所谓的宏是批处理命令，而不是脚本。如果楼主打算写脚本的话应该用vba之类的编程语言进行二次开发
3 其实如果一次文件量少于30个的话还不如一个一个弄呢

longstatus = Part.SaveAs3(FileName & ".STEP", 0, 0)
试一下

爱之龄 发表于 2024-8-15 04:20
longstatus = Part.SaveAs3(FileName & ".STEP", 0, 0)
试一下...

是的，问题解决了，我在二楼贴出答案了，还是要谢谢你
对了，大师如果要改成手动选择保存路径呢？并带有记忆，记住上次选择的路径

把后缀的文件名代码改成pdf，dwg等等，也可以使用。