创建VB.NET独立应用程序(exe)连接到SOLIDWORKS
在本教程中,我将演示如何使用VB.NET和Microsoft Visual Studio从独立应用程序(即独立应用程序)连接到SOLIDWORKS应用程序(例如Windows窗体,Windows控制台)。
有关本文中讨论的方法的更详细解释,请阅读从独立应用程序连接到SOLIDWORKS文章。
创建新项目
我将使用Microsoft Visual Studio开发环境。您可以使用任何版本的Visual Studio。相同的代码将适用于专业版、Express版或Community版。请点击此链接下载Visual Studio。
- 打开Visual Studio
- 开始新项目:
{ width=400 }
- 选择项目模板。我建议从控制台应用程序项目模板开始,因为它包含最少的预生成代码:
{ width=400 }
- 添加对SolidWorks Interop库的引用。Interop库位于SOLIDWORKS安装文件夹\api\redist\SolidWorks.Interop.sldworks.dll*(针对4.0及更高版本的Framework)和SOLIDWORKS安装文件夹\api\redist**CLR2***SolidWorks.Interop.sldworks.dll(针对2.0和3.5的Framework)。
{ width=320 }
对于针对4.0的Framework的项目,我建议将嵌入互操作类型选项设置为false。 否则,在调用SOLIDWORKS API时,应用程序可能会出现不可预测的行为,因为存在类型转换问题。
{ width=400 height=385 }
现在,我们可以添加连接到SOLIDWORKS实例的代码。
创建或连接实例
连接到COM服务器最常见且最快速的方法是使用CreateObject方法。 其他方法包括:Activator::CreateInstance和GetObject。请注意,如果无法连接到活动会话,GetObject将创建新实例。
Const PROG_ID As String = "SldWorks.Application"
'使用Interaction.CreateObject函数
Dim app1 = TryCast(CreateObject(PROG_ID), SolidWorks.Interop.sldworks.ISldWorks)
app1.Visible = True
'使用Interaction.GetObject函数
Dim app2 = TryCast(GetObject("", PROG_ID), SolidWorks.Interop.sldworks.ISldWorks)
app2.Visible = True
'使用Activator
Dim progType = System.Type.GetTypeFromProgID(PROG_ID)
Dim app3 = TryCast(System.Activator.CreateInstance(progType), SolidWorks.Interop.sldworks.ISldWorks)
app3.Visible = True
我建议使用Activator::CreateInstance,因为它允许在2个步骤中连接到会话:
- 由于SOLIDWORKS应用程序已注册为COM服务器,我们可以通过Type::GetTypeFromProgID方法从其程序标识符创建类型。
- 从类型定义构造类型的实例。
这种方法可以在出现错误时提供更好的故障排除选项:如果第一步失败,这意味着COM类未注册或无法从注册表访问;否则,这可能表示某些权限问题。 请阅读从独立应用程序连接到SOLIDWORKS文章,了解此方法的限制的解释。
或者,您可以使用Marshal::GetActiveObject方法连接到活动(已启动)的SOLIDWORKS会话。与调用GetObject不同,此方法将确保不会创建新的SOLIDWORKS实例,并且如果没有正在运行的SOLIDWORKS会话可连接,则会引发异常。
Const PROG_ID As String = "SldWorks.Application"
Dim app = TryCast(System.Runtime.InteropServices.Marshal.GetActiveObject(PROG_ID),
SolidWorks.Interop.sldworks.ISldWorks)
通过ROT获取运行实例
为了连接到已经运行的特定SOLIDWORKS会话或能够创建多个会话,您可以使用Running Object Table(ROT)API。 有关此方法的更多详细信息,请阅读从独立应用程序连接到SOLIDWORKS文章。
Imports System.Runtime.InteropServices
Imports System.Runtime.InteropServices.ComTypes
Imports SolidWorks.Interop.sldworks
Module CodeStackSample
<DllImport("ole32.dll")>
Private Function CreateBindCtx(ByVal reserved As UInteger, <Out> ByRef ppbc As IBindCtx) As Integer
End Function
Sub Main()
Const SW_PATH As String = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\SLDWORKS.exe"
Try
Dim app = StartSwApp(SW_PATH)
Console.WriteLine(app.RevisionNumber())
Catch ex As Exception
Console.WriteLine("Failed to connect to SOLIDWORKS instance: " & ex.Message)
End Try
Console.ReadLine()
End Sub
Function StartSwApp(ByVal appPath As String, _
ByVal Optional timeoutSec As Integer = 10) As ISldWorks
Dim timeout = TimeSpan.FromSeconds(timeoutSec)
Dim startTime = DateTime.Now
Dim prc = Process.Start(appPath)
Dim app As ISldWorks = Nothing
While app Is Nothing
If DateTime.Now - startTime > timeout Then
Throw New TimeoutException()
End If
app = GetSwAppFromProcess(prc.Id)
End While
Return app
End Function
Function GetSwAppFromProcess(ByVal processId As Integer) As ISldWorks
Dim monikerName = "SolidWorks_PID_" & processId.ToString()
Dim context As IBindCtx = Nothing
Dim rot As IRunningObjectTable = Nothing
Dim monikers As IEnumMoniker = Nothing
Try
CreateBindCtx(0, context)
context.GetRunningObjectTable(rot)
rot.EnumRunning(monikers)
Dim moniker = New IMoniker(0) {}
While monikers.[Next](1, moniker, IntPtr.Zero) = 0
Dim curMoniker = moniker.First()
Dim name As String = Nothing
If curMoniker IsNot Nothing Then
Try
curMoniker.GetDisplayName(context, Nothing, name)
Catch ex As UnauthorizedAccessException
End Try
End If
If String.Equals(monikerName, name, StringComparison.CurrentCultureIgnoreCase) Then
Dim app As Object = Nothing
rot.GetObject(curMoniker, app)
Return TryCast(app, ISldWorks)
End If
End While
Finally
If monikers IsNot Nothing Then
Marshal.ReleaseComObject(monikers)
End If
If rot IsNot Nothing Then
Marshal.ReleaseComObject(rot)
End If
If context IsNot Nothing Then
Marshal.ReleaseComObject(context)
End If
End Try
Return Nothing
End Function
End Module
在上面的示例中,通过从SOLIDWORKS应用程序安装路径启动新进程来启动SOLIDWORKS的新会话。 StartSwApp函数需要sldworks.exe的完整路径作为第一个参数,可选的超时时间(以秒为单位)作为第二个参数。 超时将确保在进程启动失败的情况下,应用程序不会被锁定。
您还可以将此调用设置为异步,并在SOLIDWORKS进程启动时在应用程序中显示一些进度指示:
Private Async Function StartSwAppAsync(ByVal appPath As String, _
ByVal Optional timeoutSec As Integer = 10) _
As System.Threading.Tasks.Task(Of SolidWorks.Interop.sldworks.ISldWorks)
Return Await System.Threading.Tasks.Task.Run(Function() StartSwApp(appPath, timeoutSec))
End Function