Pytanie:
Jak mogę skorzystać z funkcji "Połączyć linie lub pręty" za pomocą interfejsu COM?
Odpowiedź:
Opcja "Połącz linie/pręty" może być zaimplementowana za pomocą funkcji "ConnectLines ()" i "ConnectMembers ()". Obie funkcje oczekują ciągu znaków z numerami linii lub prętów:
Sub test_connect ()
Dim iMod As RFEM5.model
Ustaw iMod = GetObject(, "RFEM5.Model")
iMod.GetApplication.LockLicense
On Error GoTo e
Dim iModData As RFEM5.IModelData2
Ustaw iModData = iMod.GetModelData ()
iModData.PrepareModification
iModData.ConnectLines („3,4”)
iModData.ConnectMembers („1,2”)
iModData.FinishModification
e:
Jeżeli Err.Number 0 to MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Ustaw iMod = Nic
End Sub
W tym przykładzie Linia 1 i Linia 2 są połączone, a węzeł został utworzony w punkcie przecięcia. To samo dotyczy Prętu 1 i Prętu 2, dla których tworzony jest nowy węzeł w punkcie przecięcia.