8 узлов

Нам пишут, есть ли в Robot 8 узловые конечные элементы для оболочек? Уважаемая редакция Robot & Хобот отвечает, что такие конечные элементы есть, но не для всех пользователей. Вы не найдете их через пользовательский интерфейс. Увидеть и использовать их можно только через API. Много лет назад разработчики убрали эти конечные элементы из диалоговых окон и оставили только по причине обратной совместимости. Сегодня мы научимся основам работы с API Robot на примере доставания из мрачных глубин 8 узловых конечных элементов и назначения их оболочкам.

Будем использовать встроенный в Microsoft Excel редактор VBA. Вызовем его из открытой книги Excel сочетанием клавиш Alt+F11, зайдем в Tools – References и добавим ссылку на библиотеку Robot Object Model:

Скопируйте текст программы в окно редактора, выберите в Robot оболочки и выполните команду Run.
Sub MeshParams()
Dim robApp As IRobotApplication
Set robApp = New RobotApplication
Dim PanelSel As RobotSelection
Set PanelSel = robApp.Project.Structure.Selections.Get(I_OT_PANEL)
Dim PanelCol As RobotObjObjectCollection
Set PanelCol = robApp.Project.Structure.Objects.GetMany(PanelSel)
Dim obj As IRobotObjObject
For I = 1 To PanelCol.Count
    Set obj = PanelCol.Get(I)
    obj.Mesh.Params.SurfaceParams.Method.Method = I_MMT_DELAUNAY
    obj.Mesh.Params.SurfaceParams.FiniteElems.Type = I_MSFET_8NODE_QUADRIL
    obj.Mesh.Params.SurfaceParams.Delaunay.RegularMesh = False
   
    obj.Mesh.Params.SurfaceParams.Generation.Type = I_MGT_ELEMENT_SIZE
    obj.Mesh.Params.SurfaceParams.Generation.ElementSize = 1
   
    obj.Mesh.Generate
Next I
Set objParams = Nothing
Set robApp = Nothing
End Sub
Представленный макрос очень сырой, не содержит проверок, обработчика ошибок и пользовательского интерфейса, но он позволяет очень быстро получить желаемый результат.Давайте разберем, что происходит при исполнении данного макроса.
Получаем все выбранные нами оболочки в Robot:
Dim PanelSel As RobotSelection
Set PanelSel = robApp.Project.Structure.Selections.Get(I_OT_PANEL)

Даже если мы в модели размашисто выделим рамкой и зацепим стержни с узлами, все равно выбор сработает корректно, т.к. используется I_OT_PANEL.
Создаем коллекцию из выбранных оболочек:
Dim PanelCol As RobotObjObjectCollection
Set PanelCol = robApp.Project.Structure.Objects.GetMany(PanelSel)
Это нам необходимо, чтобы автоматически получить количество выбранных оболочек для запуска цикла перебора:
For I = 1 To PanelCol.Count

В этом цикле макрос обрабатывает каждую выбранную оболочку по очереди. Получаем i-ую оболочку и начинаем назначать ей свойства.
Set obj = PanelCol.Get(I)

Практически все свойства, доступные через пользовательский интерфейс, можно назначить через API:

В этом макросе мы назначаем только необходимые параметры, без которых  не получится извлечь из темного угла 8 узловые элементы.
Назначаем метод Делоне. При желании можно использовать и метод Кунса (I_MMT_COONS)
obj.Mesh.Params.SurfaceParams.Method.Method = I_MMT_DELAUNAY

Выбираем нужный тип конечных элементов:
obj.Mesh.Params.SurfaceParams.FiniteElems.Type = I_MSFET_8NODE_QUADRIL

Снимаем флажок Регулярная сетка:
obj.Mesh.Params.SurfaceParams.Delaunay.RegularMesh = False

Устанавливаем размер конечного элемента в метрах:  
obj.Mesh.Params.SurfaceParams.Generation.Type = I_MGT_ELEMENT_SIZE
obj.Mesh.Params.SurfaceParams.Generation.ElementSize = 0.5

Создаем сетку:
obj.Mesh.Generate

В принципе эту команду можно и не выполнять и создать сетку для всех оболочек в Robot нажав кнопочку. Для этого перед в начале отроки попробуйте добавить символ ‘ .
Результат макроса:

Как видим, API это не страшно и даже очень полезно.