Per modificare un elemento esistente, è necessario portare l'interfaccia all'elemento corrispondente, in questo caso su un esempio di asta:
Dim iModel As RSTAB8.modelImposta iModello = GetObject(, "RSTAB8.Model")iModel.GetApplication.LockLicense Dim iModData As IModelDataImposta iModData = iModel.GetModelData Dim iMem As RSTAB8.IMemberImposta 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.Membermem = iMem.GetData mem.Rotazione.Angolo = 0.5mem.Rotazione.Tipo = RSTAB8.Angolo iModData.PrepareModificationiMem.SetData memiModData.FinishModification