433x
003570
2019-09-10

Pytanie

Czy można tworzyć zwolnienia węzłowe za pomocą interfejsu COM?


Odpowiedź:

Tak, istnieje możliwość tworzenia zwolnień węzłowych za pomocą interfejsu COM. Oto przykład:

Sub node_release ()

Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
    
On Error GoTo e
    
Ustaw iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
        
test = iApp.GetModelCount
Ustaw iModel = iApp.GetModel (0)
        
Dim iModeldata As RFEM5.iModeldata
Ustaw iModeldata = iModel.GetModelData
        
        
' do ustawienia zwolnienia węzłowego wymagane jest zwolnienie przegubu prętowego
' obiekt dla układu osi nie może być taki sam jak ze zwolnionym
Dim NodRel As NodalRelease
NodRel.location = Oryginalny TypLokacji
nodRel.AxisSystem = LocalFromLine
nodRel.AxisSystemFromObjectNo = 2
nodRel.Comment = "przetestuj zwolnienie węzłowe"
Przegub Prętowy nr = 1
węzełRel.Node = 1
NodRel.ReleasedMembers = 1
        
iModeldata.PrepareModification
iModeldata.SetNodalRelease nodRel
iModeldata.FinishModification
        
        
e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source
    
iApp.UnlockLicense


Zakończ sub


Należy pamiętać, że lokalny układ osi może różnić się od tych samych elementów, które są zwalniane.