Как выбрать элемент из выдления&?

[MisterX]

Доброго времени суток всем.

Пишу на VB.

Есть такая задача:

Дано: в дереве Кати выбрано несколько элементов - в том числе точки, линии, и поверхность (одна)

Нужно: присвоить переменной как раз эту единственную поверхность, находящуюся в выделении

На ум приходит использовать следующую конструкцию:


Dim Pdoc As Document
Set Pdoc = CATIA.ActiveDocument

Dim Sel As Selection
Set Sel = Pdoc.Selection

Dim Surf1 As HybridShape
Set Surf1 = Sel.FindObject("CATIAHybridShape")

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

   
Dim Pdoc As Document
Set Pdoc = CATIA.ActiveDocument
   
Dim Sel As Selection
Set Sel = Pdoc.Selection

Dim Surf1 As HybridShape
Set Surf1 = Sel.FindObject("CATIAHybridShape")


Вот только линии и точки также являются объектами HybridShape...

В Хэлпе объектов типа "только surface" не нашел... Не подскажете ли, как можно все-таки зацепить поверхность из выделения, не снимая выделение с остальных элементов (FindObject выделение снимает, ну и фиг с ним - объект уже захапали)? С ними еще работать )))

[Artem]

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

Sub CATMain()
    Dim partDocument1 As PartDocument
    Set partDocument1 = CATIA.ActiveDocument
    Dim selection1 As Selection
    Set selection1 = partDocument1.Selection
    ReDim elem(selection1.Count) As Variant
    For i = 1 To selection1.Count
    Set elem(i) = selection1.Item(i).Value
    Next
    selection1.Search "(((CATStFreeStyleSearch.Surface + CATPrtSearch.Surface) + CATGmoSearch.Surface) + CATSpdSearch.Surface),sel"
    Dim Surf1 As HybridShape
    If selection1.Count > 0 Then Set Surf1 = selection1.Item(1).Value
    selection1.Clear
    MsgBox Surf1.Name
    For i = 1 To UBound(elem)
    selection1.Add (elem(i))
    Next
End Sub

[MisterX]

Спаcибо, Artem.

Не могли бы Вы пояснить следующую конструкцию из Вашего ответа:

selection1.Search "(((CATStFreeStyleSearch.Surface + CATPrtSearch.Surface) + CATGmoSearch.Surface) + CATSpdSearch.Surface),sel"

особенно то, что в кавычках стоит... потому что в V5 Automation пояснений нет совсем...

[booSter]

то, что в кавычках стоит...

это "Query" - запрос идентичный тому, который нужно было бы задать в команде Search (меню:[Edit]\[Search...]) чтобы найти все поверхности среди выделенных элементов.

[MisterX]

А где об этом можно прочитать подробнее? Синтаксис, почему об этих элементах запроса не говорится в V5Automation?

[Artem]

Search с параметрами прекрасно записывается в макрос.....
Настройки Type:From Element
Look:From current selection...
Чего нет в V5Automation.chm(соответственно и в помощи по F1),ищи на coe и в простой катькиной помощи.

[MisterX]

...ищи на coe...

Эт чаво такое?

[MisterX]

Кстати, а эта конструкция:

selection1.Search "(((CATStFreeStyleSearch.Surface + CATPrtSearch.Surface) + CATGmoSearch.Surface) + CATSpdSearch.Surface),sel"

будет работать в отдельно скомпилированном *.exe файле? ну то есть если это не скрипт, написанный в Кате?

[ExtraRight]

...ищи на coe...

Эт чаво такое?

coe.org - сайт сообщества юзеров Dassault Solutions, там есть и форум - http://www.coe.org/Default.aspx?tabid=210

[MisterX]

Спасибо.