403x
004195
2019-11-07

问题

如何通过 COM 接口追溯修改杆件?


回复:

要修改现有元素,必须获取相应元素的接口,在这种情况下以杆件为例:

Dim iModel As RSTAB8.model
Set 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.Member
mem = iMem.GetData
    
内存.旋转.角度 = 0.5
mem.Rotation.Type = RSTAB8.Angle
   
iModData.PrepareModification
iMem.SetData mem
iModData.FinishModification