|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
'当同名工程图处于打开状态时宏打开零件但不能显示出来
'大家看一下下面代码,当同名工程图没有打开时,是可以打开零件并显示出来。
'但当同名的工程图已打开时,就怎么也打不开,这里面是不是还有什么代码要添加的?
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim fileerror As Long
Dim filewarning As Long
Dim Part As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set Part = swApp.OpenDoc6("E:\ChenPing\shang3\PRT20150119-02.SLDPRT", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning)
End Sub
|
|