При пуске следующего кода на Visual Studio 2017 VB.net Windows.Forms:
Imports Kompas6API5
Imports Kompas6Constants
Imports PARTLibClient
Imports BOSimple
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim kompas As Object
Dim ksdoc As Object
kompas = CreateObject("KOMPAS.Application.5")
kompas.Visible = True
ksdoc = kompas.Document3D
ksdoc.Create(False, False)
ksdoc.Filename = "C:\Users\Baha1990\Documents\Visual Studio 2017\Projects\Kompas3D\3d files\1.a3d"
ksdoc.UpdateDocumentParam
ksdoc.Save
Dim aPLClient As Object
aPLClient = CreateObject("PARTLibClient.BOSimpleProvider")
aPLClient.Connect("Error")
Dim ComData As Object
ComData = aPLClient.CreateCommonDataObj
ComData.SetFindOptions("3DSolid")
Dim FID As Object
Dim BID As String
BID = "A259_151417DFF6474BF6"
FID = ComData.FolderbyID(BID)
End Sub
На строке:
FID = ComData.FolderbyID(BID)
Вылетает ошибка:
System.AccessViolationException: "Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена."
PS. Свойство Embed Interop Types = False установлено для Partlibclient и Bosimple.
ОС Windows 8.1, 64bit
Как устранить эту ошибку?