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
