Odpowiedź:
Aby usunąć elementy, dostępna jest funkcja "DeleteObjects ()" w interfejsie danych modelu. Usunięcie wszystkich prętów przebiega w następujący sposób:
Sub test_delete_objects ()
Dim iApp As RFEM5.Application
Ustaw iApp = GetObject (, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3
Set iMod = iApp.GetActiveModel
On Error GoTo e
'pobierz interfejs dla danych modelu
Dim iModData As RFEM5.IModelData2
Set iModData = iMod.GetModelData
'zdobądź wszystkich członków
Dim mems () As RFEM5.Member
mems () = iModData.GetMembers
'utworzyć listę członków
Dim mem_list As String
Dim i As Integer
Dla i = 0 To UBound (memy, 1)
mem_list = mem_list & mems (i) .no & ","
Następny
'usuń członków
iModData.PrepareModification
iModData.DeleteObjects MemberObject, mem_list
iModData.FinishModification
e:
Jeżeli Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Ustaw iMod = Nic
Koniec podrzędny
Należy pamiętać, że funkcja "DeleteObjects" działa tylko z numerem obiektu, a nie z indeksem obiektu. Liczby te są przesyłane jako ciąg znaków, oddzielone przecinkami.
Z tego powodu najpierw należało pobrać wszystkich członków. Następnie pole pręta zostało zapętlone i wszystkie numery prętów zostały wprowadzone do ciągu.
.png?mw=350&hash=956a28ecaf6fbebaead5bf6903dff12f58532a3c)
.png?mw=350&hash=e3f5898d72f463e9b3e774659aabcb220466c522)
.jpg?mw=350&hash=196d91410dd36f58fcc8b0194f4577bb70cf53c3)
