回复:
要修改现有元素,必须获取相应元素的接口,在这种情况下以杆件为例:
Dim iModel As RSTAB8.modelSet iModel = GetObject(, "RSTAB8.Model")iModel.GetApplication.LockLicense 将 iModData 调暗为 IModelData设置 iModData = iModel.GetModelData Dim iMem As RSTAB8.IMember设置 iMem = iModData.GetMember(1, AtNo)
使用此代码可以获取应已创建的成员 1 的接口。 然后,您可以使用接口的.GetData() 方法获取成员数据。
如果您想修改数据(例如这里的杆件旋转),随后可以在程序准备/完成修改中使用方法.SetData() 进行修改。
Dim mem As RSTAB8.Membermem = iMem.GetData 内存.旋转.角度 = 0.5mem.Rotation.Type = RSTAB8.Angle iModData.PrepareModificationiMem.SetData memiModData.FinishModification