405x
004195
2019-11-07

Domanda

Come posso modificare retroattivamente un'asta tramite l'interfaccia COM?


Risposta:

Per modificare un elemento esistente, è necessario portare l'interfaccia all'elemento corrispondente, in questo caso su un esempio di asta:

Dim iModel As RSTAB8.model
Imposta iModello = GetObject(, "RSTAB8.Model")
iModel.GetApplication.LockLicense
    
Dim iModData As IModelData
Imposta iModData = iModel.GetModelData
    
Dim iMem As RSTAB8.IMember
Imposta iMem = iModData.GetMember(1, AtNo)

Utilizzare questo codice per ottenere l'interfaccia per l'asta 1, che dovrebbe essere già stata creata. Quindi, è possibile utilizzare il metodo .GetData() dell'interfaccia per ottenere i dati dell'asta.

Se si desidera modificare i dati (come la rotazione dell'asta qui), è possibile trasferirli successivamente al programma all'interno del blocco Prepare-/FinishModification con il metodo .SetData().


Dim mem As RSTAB8.Member
mem = iMem.GetData
    
mem.Rotazione.Angolo = 0.5
mem.Rotazione.Tipo = RSTAB8.Angolo
   
iModData.PrepareModification
iMem.SetData mem
iModData.FinishModification