Solidworks宏程序分享

Ctrl + G 可以调出函数或对象里面的方法

零件/装配体导出成STEP文件

Dim swApp As SldWorks.SldWorks
Dim Part As Object
Dim houzui As String

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

'pdf路径名称=工程图的路径名称 然后替换.slddrw为.pdf
Draw_pathname = Part.GetPathName
'获取后缀名
houzui = Right(Draw_pathname, Len(Draw_pathname) - InStrRev(Draw_pathname, "."))
'合并成完整的路径+文件名
STEP_pathname = Replace(Draw_pathname, houzui, "STEP", 1, -1, vbTextCompare)


'另存为
longstatus = Part.SaveAs3(STEP_pathname, 0, 0)

End Sub

工程文档保存成pdf文件

Dim swApp As SldWorks.SldWorks
Dim swmodel As ModelDoc2

Sub main()

Set swApp = Application.SldWorks
Set swmodel = swApp.ActiveDoc

'pdf路径名称=工程图的路径名称 然后替换.slddrw为.pdf
Draw_pathname = swmodel.GetPathName
PDF_pathname = Replace(Draw_pathname, ".slddrw", ".pdf", 1, -1, vbTextCompare)


'另存为
swmodel.SaveAs PDF_pathname

End Sub