Sub main()
Set swApp = Application.SldWorks
Set swDoc = swApp.GetFirstDocument
Do While Not swDoc Is Nothing
Debug.Print swDoc.GetTitle
Dim lErrors As Long
Dim lWarnings As Long
swDoc.Save3 9, lErrors, lWarnings
Set swDoc = swDoc.GetNext
Loop
End Sub
最好不要让他看到,,哈哈 不然被他屌 他也是本论坛注册用户