ADAMS宏的使用

仿真效果

仿真一个绳子绕着滚筒缠绕 

 

1、前期准备

在SW等建模软件中画一个圆筒，圆筒旁边画100段小圆柱体，用来模拟绳子

adams中设置单位为：MMKS

adams写宏的地方 

工具->宏->编辑->新建     (白色方框里宏的名称随便写)

adams运行宏的地方

工具->宏->调试

点击 调试 里面的 宏 导入自己写的宏程序，然后点击 运行 ，即可运行宏，可以批量创建接触或者运动副

2、使用宏添加99个球面副

使用球副将相邻两个小段连接起来，100个小段需要99个球面副，即需要循环99次

//将这个宏命名为：   MODEL_2    （这个名字必须和下面的名字一样）

Defaults model model_name=.MODEL_2

//创建变量：ip  设置初始值为： 2

variable create variable_name=ip integer_value=2

//使用while循环  当number<=100的时候执行循环里的操作

while condition=(number<=100)

//创建 spherical（球副）运动副     将运动服命名为 joint_ip   (ip=2,3,4..........101)

constraint create joint spherical joint_name=(eval("joint_"//ip))&

// i 实体的名称为  .rope.PARTip   （ip=2,3,4..........100）

i_part_name = (eval(".rope.PART"//ip))&

// j 实体的名称为  .rope.PARTip   （ip=3,4,5..........101）

j_part_name = (eval(".rope.PART"//ip+1))&

//每个球面副位置为  .rope.PART"//ipr//".cm       （cm表示质心）

location = (eval(".rope.PART"//ip//".cm"))

//  变量值加 1 进行下周期循环

variable modify variable_name = ip integer_value=(eval(ip+1))

// 结束循环

end

//删除变量及名称

variable delete variable_name = number

代码总结

Defaults model model_name=.MODEL_2
variable create variable_name=ip integer_value=2
while condition=(ip<=100)
constraint create joint spherical joint_name = (eval("joint_"//ip))&
i_part_name = (eval(".MODEL_2.PART"//ip)) &
j_part_name = (eval(".MODEL_2.PART"//ip+1)) &
location = (eval(".MODEL_2.PART"//ip//".cm"))
variable modify variable_name = ip integer_value = (eval(ip+1))
end
variable delete variable_name = ip

3、使用宏添加100个接触力

每个小段和圆筒之间添加接触力

接触的添加需要精确到 part 下面的 solid

Defaults model model_name=.MODEL_2
variable create variable_name=ip integer_value=1
while condition=(ip<=100)
contact creat contact_name = (eval('CONTACT_'//ip))&
i_geometry_name = .MODEL_2.PART102.solid101 &
j_geometry_name = (eval('.MODEL_2.PART'//ip+1//'.SOLID'//ip)) &
stiffness = 1.e+005 &
damping = 50 &
exponent = 1.5 &
dmax = 0.1 &
mu_static = 0.25 &
mu_dynamic = 0.2 &
stiction_transition_velocity = 0.1&
friction_transition_velocity = 10
variable modify variable_name=ip integer_value=(eval(ip+1))
end!while
variable delete variable_name=ip

4、其余连接和驱动

将最靠近圆筒的那个小段与圆筒进行 固定 连接

给圆筒添加 转动副  ，转动副的位置放在圆筒质心

给圆筒添加 旋转驱动  ，注意旋转的方向，速度设置为 10d*time

5、仿真

仿真时间50s ，步长 0.1   

运行查看效果