SelectionSets

[Gringo]

В CAA V5 Automation(VB) есть объект SelectionSets - по идее аналог одноименной команды.
Подскажите, кто знает, каким образом этот объект инициализировать и использовать?

[booSter]

Забавный объект, судя по всему - объект-фабркиа реализованный как VB-Extension (фишка позволяющая расширять КАТьКин скриптовый API своими объектами реализованными на CAA/C++). Инициализация таких объектов осуществляется через функцию AnyObject.GetItem

Код: Выделить всё

...
Dim oMyProvider
Set oMyProvider = ...
...
Dim oMySelSets
Set oMySelSets = oMyProvider.GetItem( "CATIAVBSelectionSetsImpl" )
...


К сожалению, универсального рецепта по добыванию oMyProvider нет. Им может оказаться всё, что угодно, но как правило это нечто общедоступное типа Application, Document, Viewer, Part, Product, ... и подходящее по смыслу в качестве провайдера (источника).

Пробуйте

[Artem]

Ради интереса глянул англо немецко и... походу китайско-язычные формумы все спрашивают, но не говорят как делать - а у нас вот ответили

Код: Выделить всё

Sub CATMain()
Dim Document1 As ProductDocument
Set Document1 = CATIA.ActiveDocument
'CATIA.StartWorkbench ("CATShapeDesignWorkbench")
Dim TheSPAWorkbench As SelectionSets
Set TheSPAWorkbench = Document1.Product.GetItem("CATIAVBSelectionSetsImpl")
Call TheSPAWorkbench.CreateSelectionSet("qwertyuiop")
End Sub

[Vladimir]

Забавный объект, судя по всему - объект-фабркиа реализованный как VB-Extension (фишка позволяющая расширять КАТьКин скриптовый API своими объектами реализованными на CAA/C++).

Не подскажете где в энциклопедии CAA/C++ про это можно почитать?

Хотя вроде нашел(CAADoc\Doc\online\CAASysTechArticles\CAASysAutomationItf.htm).