Aby zmodyfikować istniejący element, należy uzyskać interfejs do odpowiedniego elementu, w tym przypadku na przykładzie pręta:
Dim iModel As w RSTAB8.modelUstaw iModel = GetObject (, "RSTAB8.Model") iModel.GetApplication.LockLicense Dim iModData As IModelDataUstaw iModData = iModel.GetModelData Dim iMem As RSTAB8.IMemberUstaw iMem = iModData.GetMember (1, AtNo)
Użyj tego kodu, aby uzyskać interfejs do pręta nr 1, który powinien już zostać utworzony. Następnie można użyć metody .GetData () interfejsu w celu pobrania danych pręta.
Jeżeli chcą Państwo zmodyfikować dane (np. obrót pręta w tym przypadku), mogą zostać przeniesieni do programu w bloku Prepare-/FinishModification, przy użyciu metody .SetData().
Dim mem Jak w RSTAB8.Membermem = iMem.GetData zapamiętując.Kąt.Obrót = 0.5mem.Rotation.Type = RSTAB8.Angle iModData.PrepareModificationiMem.SetData memiModData.FinishModification