回复:
摩擦是非线性的,因此只能通过与杆端铰连接的面进行修改。
为此首先创建构件铰(如果还没有)。 然后,将IMemberHinge接口传递到杆件的杆端铰和非线性处(在这里为IFriction )。 然后,可以使用方法GetData和SetData来修改数据(在这里为Friction ):
子SetMemberHingeFriction()
Dim model As RFEM5.model设置模型= GetObject(,“ RFEM5.Model”)model.GetApplication.LockLicense
出现错误转到e
与IModelData一样的昏暗数据设置数据= model.GetModelData
铰铰(0至0)按照RFEM5.MemberHinge
铰(0).No = 1铰(0).RotationalConstantX = 1铰(0).RotationalConstantY = 2铰(0).RotationalConstantZ = 3铰(0)。平动常数X = 4铰(0)。平动常数Y = 5铰(0)。平动常数Z = 6铰链(0).Comment =“木铰1” 铰链(0)。平移非线性X =摩擦力A类型
修改前数据data.SetMemberHinges铰修改后的数据 '获取杆件铰接接口Dime imemhing As IMemberHinge设置imemhing = data.GetMemberHinge(1,AtNo) '获得非线性“摩擦”的接口昏暗的iFric设置iFric = imemhing.GetNonlinearity(AlongAxisX) '获取摩擦系数数据摩擦惯性fric = iFric.GetData fric.Coordinated1 = 0.3 '设置摩擦数据修改前数据iFric.SetData打印修改后的数据 e:如果Err.Number <> 0,则MsgBox Err.Description,,Err.Source
设置数据=空model.GetApplication.UnlockLicense套装模型=什么都没有
结束子区域
对于摩擦Vy + Vz,使用系数2设置第二个系数。 在摩擦对话框中的弹簧常数由杆端铰的平移弹簧控制。 在这种情况下,它在x方向上的大小是TranslationalConstantX(见图01)。