在一个solidworks程序中,其中没有打开任何文件,执行下面宏,将会打开一个零件图:
Option Explicit
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Dim FileName As String
FileName = "D:\崔胜利\凯帝隆\湖北武穴锂宝\solidworks\e0301-P0321.SLDPRT"
Dim FileType As Integer
FileType = swDocumentTypes_e.swDocPART
Dim Options As Integer
Options = swOpenDocOptions_e.swOpenDocOptions_OpenDetailingMode
Dim Configuration As String
Configuration = ""
Dim e As Long
Dim w As Long
swApp.OpenDoc6 FileName, FileType, Options, Configuration, e, w
End Sub
api参考: