Question

我是VB.net的新手，我正在尝试编写适用于Autodesk Inventor的表单应用。

不幸的是，每次关闭Inventor时，“Inventor.exe”进程仍然存在。调试时我没有意识到这一点，当我在整个系统开始滞后后检查任务管理器时我才意识到这一点。使用相同名称杀死每个进程非常简单，但问题是最终用户可能在另一个Inventor窗口中打开了单独的文档。所以我需要编写一个只杀死没有打开窗口的Inventor进程的函数。

Public Class Form1
    Dim _invApp As Inventor.Application
    Dim _started As Boolean = False
    Public Sub New()

    ' This call is required by the designer.
    InitializeComponent()

    ' Add any initialization after the InitializeComponent() call.
    Try
        _invApp = Marshal.GetActiveObject("Inventor.Application")

    Catch ex As Exception
        Try
            Dim invAppType As Type = _
              GetTypeFromProgID("Inventor.Application")

            _invApp = CreateInstance(invAppType)
            _invApp.Visible = True

            'Note: if you shut down the Inventor session that was started
            'this(way) there is still an Inventor.exe running. We will use
            'this Boolean to test whether or not the Inventor App  will
            'need to be shut down.
            _started = True

        Catch ex2 As Exception
            MsgBox(ex2.ToString())
            MsgBox("Unable to get or start Inventor")
        End Try
    End Try

End Sub

我启动流程的另一部分，即特定的3D模型文件。

Public Sub SaveAs(oTemplate As String)
    'define the active document
    Dim oPartDoc As PartDocument = _invApp.ActiveDocument
    'create a file dialog box
    Dim oFileDlg As Inventor.FileDialog = Nothing
    Dim oInitialPath As String = System.IO.Path.GetFullPath("TemplatesResources\" & oTemplate)
    _invApp.CreateFileDialog(oFileDlg)

    'check file type and set dialog filter
    If oPartDoc.DocumentType = kPartDocumentObject Then
        oFileDlg.Filter = "Autodesk Inventor Part Files (*.ipt)|*.ipt"
    ElseIf oPartDoc.DocumentType = kAssemblyDocumentObject Then
        oFileDlg.Filter = "Autodesk Inventor Assembly Files (*.iam)|*.iam"
    ElseIf oPartDoc.DocumentType = kDrawingDocumentObject Then
        oFileDlg.Filter = "Autodesk Inventor Drawing Files (*.idw)|*.idw"
    End If

    If oPartDoc.DocumentType = kAssemblyDocumentObject Then
        oFileDlg.Filter = "Autodesk Inventor Assembly Files (*.iam)|*.iam"
    End If

    'set the directory to open the dialog at
    oFileDlg.InitialDirectory = "C:\Vault WorkSpace\Draft"
    'set the file name string to use in the input box
    oFileDlg.FileName = "######-AAAA-AAA-@@"

    'work with an error created by the user backing out of the save
    oFileDlg.CancelError = True
    On Error Resume Next
    'specify the file dialog as a save dialog (rather than a open dialog)
    oFileDlg.ShowSave()

    'catch an empty string in the imput
    If Err.Number <> 0 Then
        MessageBox.Show("Any changes made from here will affect the original template file!", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
    ElseIf oFileDlg.FileName <> "" Then
        Dim MyFile As String = oFileDlg.FileName
        'save the file
        oPartDoc.SaveAs(MyFile, False)
        'open the drawing document
        System.Diagnostics.Process.Start(oInitialPath & ".idw")
        Dim oFinalPath As String = oPartDoc.FullFileName
        MessageBox.Show(oFinalPath, "", MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        MessageBox.Show("Loaded", "", MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        Dim oDrawingDoc As DrawingDocument = _invApp.Documents.ItemByName(oInitialPath & ".idw")
        'oDrawingDoc.SaveAs()

    End If
End Sub

感谢任何帮助。感谢

Answer 1

在表单末尾，可能是FormClosed，添加以下内容：

  Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    If (_invApp Is Nothing) Then Return ' if empty, then no action needed
    _invApp.Quit()
    Marshal.ReleaseComObject(_invApp)
    _invApp = Nothing
    System.GC.WaitForPendingFinalizers()
    System.GC.Collect()
  End Sub

这应该使.NET发布并正确处理Inventor的COM对象。

考虑声明Inventor变量并指定Nothing / null，它更安全（避免错误）

  Dim _invApp As Inventor.Application = Nothing

如何杀死VB.net中没有任何窗口的进程？

1 个答案: