Question

如何用vb编程打开solidworks装配体文件？？？？

下面是我采用的vb程序：

Dim swApp
Dim Part

On Error Resume Next
Set swapp = GetObject(, "SldWorks.Application")
If Err Then
Err.Clear
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
swApp.Visible = true
swApp.UserControl = True
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("beam.SLDPRT")
Set Part = swApp.OpenDoc(objFSO.GetAbsolutePathName(objFile),1)
Set Part = swApp.ActivateDoc("beam.SLDPRT")
'swApp.Visible = true
On Error GoTo 0

该 beam.vbs 文件的作用是启动 Solidworks 程序并打开与 beam.vbs 文件同一目录
下的 beam.SLDPRT 文件。

现在问题是我该如何打开同一目录下的装配体文件呢？ 如beam.SLDASM，我试过好几遍了，上面的程序好像只能打开solidworks零件图。请问该怎么办。

Answer 1

下面是我采用的vb程序：

Dim swApp
Dim Part

On Error Resume Next
Set swapp = GetObject(, "SldWorks.Application")
If Err Then
Err.Clear
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
swApp.Visible = true
swApp.UserControl = True
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("beam.SLDPRT")
Set Part = swApp.OpenDoc(objFSO.GetAbsolutePathName(objFile),1)
Set Part = swApp.ActivateDoc("beam.SLDPRT")
'swApp.Visible = true
On Error GoTo 0

该 beam.vbs 文件的作用是启动 Solidworks 程序并打开与 beam.vbs 文件同一目录
下的 beam.SLDPRT 文件。

现在问题是我该如何打开同一目录下的装配体文件呢？ 如beam.SLDASM，我试过好几遍了，上面的程序好像只能打开solidworks零件图。请问该怎么办。我来帮他解答

追问

回答呢？？？？

追答

下面是我采用的vb程序：

Dim swApp
Dim Part

On Error Resume Next
Set swapp = GetObject(, "SldWorks.Application")
If Err Then
Err.Clear
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
swApp.Visible = true
swApp.UserControl = True
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("beam.SLDPRT")
Set Part = swApp.OpenDoc(objFSO.GetAbsolutePathName(objFile),1)
Set Part = swApp.ActivateDoc("beam.SLDPRT")
'swApp.Visible = true
On Error GoTo 0

该 beam.vbs 文件的作用是启动 Solidworks 程序并打开与 beam.vbs 文件同一目录
下的 beam.SLDPRT 文件。

现在问题是我该如何打开同一目录下的装配体文件呢？ 如beam.SLDASM，我试过好几遍了，上面的程序好像只能打开solidworks零件图。请问该怎么办。我来帮他解答 追问回答呢？？？？
赞同
0| 评论 取消回答

继续回答输入内容已经达到长度限制
还能输入 999 字插入图片删除图片插入地图删除地图插入视频视频地图下面是我采用的vb程序：

Dim swApp
Dim Part

On Error Resume Next
Set swapp = GetObject(, "SldWorks.Application")
If Err Then
Err.Clear
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
swApp.Visible = true
swApp.UserControl = True
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("beam.SLDPRT")
Set Part = swApp.OpenDoc(objFSO.GetAbsolutePathName(objFile),1)
Set Part = swApp.ActivateDoc("beam.SLDPRT")
'swApp.Visible = true
On Error GoTo 0

该 beam.vbs 文件的作用是启动 Solidworks 程序并打开与 beam.vbs 文件同一目录
下的 beam.SLDPRT 文件。

现在问题是我该如何打开同一目录下的装配体文件呢？ 如beam.SLDASM，我试过好

Answer 2

您好，我也想打开solidworks的装配体的文件，您现在会了吗？如果会的话能不能把代码给我发一下呢？