418x
004199
2019-11-08

Domanda

Come posso creare un'imperfezione tramite l'interfaccia COM?


Risposta:

Un'imperfezione è considerata un carico e viene trasferita tramite l'interfaccia del caso di carico. A condizione che l'interfaccia al modello sia già stata importata, verrà successivamente importata l'interfaccia ai carichi (ILoads) seguita dall'interfaccia al caso di carico 1 (ILoadCase), se è già stata creata in precedenza:

' imposta i casi di carico
Dim iLoad come iLoad
Imposta iLoads = model.GetLoads
        
' ottieni il caso di carico
Dim iLc1 As ILoadCase
Imposta iLc1 = iLoads.GetLoadCase(1, AtNo)
        
' definisce l'imperfezione
Dim imperf As Imperfezione
imperf.Comment = "prova"
imperf.Direction = LocalZType
imperf.Inclinazione = 200
imperf.no = 1
imperf.ObjectList = 1
controfreccia imperf. = 300
imperf.PrecamberActivity = ActivityAccording_EN_1993_1_1
        
' imposta l'imperfezione
iLc1.Prepara la modifica
iLc1.SetImperfezione imperfezione
iLc1.FinishModifica

I dati dell'imperfezione vengono quindi compilati per primi, qui per l'asta 1, e quindi trasferiti all'interno del blocco Prepare-/FinishModification del caso di carico delle interfacce.