Чтобы изменить существующий элемент, вам нужно получить интерфейс для соответствующего элемента, в данном случае на примере стержня:
Dim iModel As RSTAB8.modelУстановите iModel = GetObject (, "RSTAB8.Model") iModel.GetApplication.LockLicense Dim iModData As IModelDataУстановите iModData = iModel.GetModelData Dim iMem As RSTAB8.IMemberSet iMem = iModData.GetMember(1, AtNo)
Используйте этот код, чтобы получить интерфейс для стержня 1, который уже должен быть создан. Затем можно использовать метод интерфейса .GetData () для получения данных об элементах.
Если вы хотите изменить данные (например, поворот стержня), вы можете впоследствии передать их в программу в блоке Prepare-/FinishModification с помощью метода .SetData ().
Dim mem As RSTAB8.Membermem = iMem.GetData mem.Rotation.Angle = 0,5mem.Rotation.Type = RSTAB8.Angle iModData.PrepareModificationiMem.SetData memiModData.FinishModification