Odpověď:
Pokud chceme upravit již existující prvek, musíme rozhraní dostat na příslušný prvek, zde například na prut:
Dim iModel As RSTAB8.model
Set iModel = GetObject(, "RSTAB8.Model")
iModel.GetApplication.LockLicense
Dim iModData As IModelData
Set iModData = iModel.GetModelData
Dim iMem As RSTAB8.IMember
Set iMem = iModData.GetMember(1, AtNo)Pomocí tohoto kódu dostaneme rozhraní k prutu 1, který musí již být vytvořený. Následně můžeme použít funkci rozhraní .GetData() dostat data o prutu.
Pokud bychom chtěli data upravovat (jako zde natočení prutu), můžeme je následně předat do programu v bloku Prepare-/FinishModification pomocí funkce .SetData():
Dim mem As RSTAB8.Member
mem = iMem.GetData
mem.Rotation.Angle = 0.5
mem.Rotation.Type = RSTAB8.Angle
iModData.PrepareModification
iMem.SetData mem
iModData.FinishModification