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

l67619318 · 发表于 2020-8-27 19:42:43

经典图书

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，测试总是没什么反应，不报错，也不生成文件