Odpowiedź:
Poniższe makro VBA ilustruje tworzenie dwóch mimośrodów prętowych. Kod źródłowy można znaleźć w sekcji Do pobrania.
' ------------------------------------------------ -------------------------------------------------- -
Sub SetEccs ()
' ------------------------------------------------ -------------------------------------------------- -
Przyciemnij model Jak w RSTAB8.model
Dane Dim As IModelData
Dim ecc(1) As RSTAB8.MemberEccentricity
'Pobierz interfejs dla modelu
Ustaw model = GetObject(, "RSTAB8.Model")
' Blokada licencji COM i dostępu do programu
model.GetApplication.LockLicense
On Error GoTo e
' Uzyskaj interfejs dla danych modelu
Ustaw dane = model.GetModelData
'Zdefiniuj mimośród 1
ecc (0) .No = 1
ecc(0).ReferenceSystem = LocalSystemType
ecc (0) .Start .X = 0,01
ecc(0) .Start.Y = 0,02
ecc(0) .Początek.Z = 0,03
ecc(0).End.X = -0,01
ecc(0) .End.Y = -0,02
ecc(0).End.Z = -0,03
ecc(0).Comment = "Mimośród 1"
'Zdefiniuj mimośród 2
ecc (1) .No = 2
ecc(1).ReferenceSystem = GlobalSystemType
ecc(1) .Start.X = -0,07
ecc(1) .Start.Y = -0,08
ecc (1) .Start. Z = -0,09
ecc(1).End.X = 0,07
ecc (1) .End.Y = 0,08
ecc(1).End.Z = 0,09
ecc (1) .Comment = "Mimośród 2"
'Przenoszone mimośrody prętów
data.PrepareModification
data.SetMemberEccentricities ecc
e: data.FinishModification
Jeżeli Err.Number <> 0 to MsgBox Err.Description, , Err.Source
Ustaw dane = Nic
' Licencja COM jest odblokowana, dostęp do programu możliwy
model.GetApplication.UnlockLicense
Ustaw model = Nic
Zakończ sub
![Rozpiętości na podstawie Rysunku 5.2 z [1]](/pl/webimage/039540/3493372/01_Abmessungen_EN.png?mw=512&hash=3cc425f1463bd5981b358d5889e3109e07ae1233)
.png?mw=350&hash=185ea38ae8cf0dc594f8cadf29ff051c99033ece)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
