有儲存全部的代码或实例吗

xieguiming113

万分感谢

Francis

Sub SaveAll()
Set swApp = Application.SldWorks
swApp.RunCommand swCommands_SaveAll, ""
End Sub

xieguiming113

谢谢大神 虽然我朋友给我写好了 但还是要谢谢

Francis

敬請分享你朋友的寫法

xieguiming113

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
最好不要让他看到，，哈哈 不然被他屌 他也是本论坛注册用户

CRay

Francis 發表於 2017/8/14 10:09
Sub SaveAll()
Set swApp = Application.SldWorks
swApp.RunCommand swCommands_SaveAll, ""

行家出手便知有無,學習並支持.