Ответ:
Для удаления элементов используется в интерфейсе данных модели функция «DeleteObjects()». Удаление всех стержней затем выполняется следующим образом:
Sub test_delete_objects()
Dim iApp As RFEM5.Application
Set iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3
Set iMod = iApp.GetActiveModel
On Error GoTo e
' get interface for model data
Dim iModData As RFEM5.IModelData2
Set iModData = iMod.GetModelData
' get all members
Dim mems() As RFEM5.Member
mems() = iModData.GetMembers
' create member list
Dim mem_list As String
Dim i As Integer
For i = 0 To UBound(mems, 1)
mem_list = mem_list & mems(i).no & ","
Next
' delete members
iModData.PrepareModification
iModData.DeleteObjects MemberObject, mem_list
iModData.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Set iMod = Nothing
End Sub
Обратите внимание на то, что функция «DeleteObjects» работает только с номером объекта, а не с его индексом. Эти номера затем передаются в виде строки, разделенной запятыми.
Поэтому нужно сначала выбрать все стержни, после чего поле стержня пропускается по циклу и в строку уже вводятся все номера стержней были.
.png?mw=350&hash=e2084835b97f9eb68815b9c0758617db71647821)
.png?mw=350&hash=e3f5898d72f463e9b3e774659aabcb220466c522)
.jpg?mw=350&hash=196d91410dd36f58fcc8b0194f4577bb70cf53c3)
