906x
004133
2021-04-13

问题

通过COM接口铰支座摩擦力是如何设置的?


回复:

摩擦是非线性的,因此只能通过与杆端铰连接的面进行修改。

为此首先创建构件铰(如果还没有)。 然后,将IMemberHinge接口传递到杆件的杆端铰和非线性处(在这里为IFriction )。 然后,可以使用方法GetDataSetData来修改数据(在这里为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)。