'------------------
子集偏心()
'------------------
尺寸标注模型 As RFEM5.model
设置 model = GetObject(, "RFEM5.Model")
model.GetApplication.LockLicense
出错时转到 e
将 iModData 变暗为 RFEM5.iModelData
设置 iModData = model.GetModelData
' 创建偏心
尺寸偏心(0 到 0) As RFEM5.MemberEccentricity
eccens(0).编号 = 1
eccens(0).Comment = "测试偏心"
eccens(0).ReferenceSystem = LocalSystemType
eccens(0).Start.X = 0
eccens(0).Start.Y = 0
eccens(0).Start.Z = 0
eccens(0).End.X = 0
eccens(0).End.Y = 0
eccens(0).End.Z = 0
eccens(0).HingeAtEndNode = False
eccens(0).HingeAtStartNode = False
eccens(0).HorizontalAlignment = Middle
eccens(0).VerticalAlignment = 下
eccens(0).TransverseOffset = True
eccens(0).ReferenceObjectNo = 2
eccens(0).ReferenceObjectType = 杆件对象
eccens(0).HorizontalAxisOffset = 中间
eccens(0).VerticalAxisOffset = 上
eccens(0).StartAdjoiningMembersOffset = False
eccens(0).EndAdjoiningMembersOffset = False
iModData.PrepareModification
iModData.SetMemberEccentricities eccens
iModData.FinishModification
' 给杆件添加偏心
将 iMem 变暗为 RFEM5.IMember
设 iMem = iModData.GetMember(1, AtNo)
尺寸调整模块 As RFEM5.Member
mem = iMem.GetData
mem.偏心编号 = 1
iModData.PrepareModification
iMem.SetData mem
iModData.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
model.GetApplication.UnlockLicense
末端接头