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.modelUstaw iMod = GetObject(, "RFEM5.Model")
iMod.GetApplication.LockLicense
On Error GoTo e
Dim iModData As RFEM5.IModelData2Ustaw iModData = iMod.GetModelData ()
iModData.PrepareModificationiModData.ConnectLines („3,4”)iModData.ConnectMembers („1,2”)iModData.FinishModification
e:
Jeżeli Err.Number <> 0 to MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseUstaw iMod = Nic
Zakończ subW 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.
.png?mw=512&hash=a2d64046b1b82d01d353d39d4a145023e6992bce)
