Вставка стандартных изделий из справочника в 3d сборку.

[Semargl1990]

Добрый день форумчане! Поделитесь пожалуйста рабочим кодом вставки стандартного изделия из справочника в 3в сборку на Vb,VB.NET, VBA, т.е. создал документ 3d сборки и вставил СИ из справочника. Заранее спасибо! 

[Semargl1990]

Неужели никто не поможет?

[СВ]

 Не расстраивайтесь. Просто сегодня суббота - выходной.

[Semargl1990]

Ну, сегодня рабочий день, помогите пожалуйста. Или все на работе?

[VLaD-Sh]

Не расстраивайтесь. Просто сегодня короткий день, перед выходным.

[Петрович-47]

Semargl1990, на самом деле тут Вам никто не поможет, ВБ никто не занимается и знатоков тут по видимости нет... я тоже задавал вопрос - но все как в омут... тишина...

[Warlock-72]

... ВБ никто не занимается и знатоков тут по видимости нет...

Ув. Вячеслав Никонов, может быть, поможет?..

[Semargl1990]

Мне хотя бы протестировать этот кусок кода на VBA, на разных сборках, чтобы знать куда копать:
Private Sub CommandButton1_Click()
        Set aPLClient = New PARTLibClient.BOSimpleProvider
        Set partcommondata = aPLClient.CreateCommonDataObj
        partcommondata.SetFindOptions "3DSolid"                     
        Set partisofolder = partcommondata.FolderByID("") - Ибо на этой строке vba зависает на win 10 64 bit, excel 2013 32 bit, Kompas 2017 64 bit;
                                                            И вылетает excel на Win 8.1, excel 2013 64 bit, Kompas 2017 64bit.
                                                            А должно возвратить интерфейс папок библиотеки СИ.                                                                         
End Sub
Так что не знаю то ли код кривой, то ли сборка должно быть другим. Может кто-то сталкивался чем-то подобным?