压簧模拟运动

sw的各位兄弟好，我现在遇到问题，如图所示，我想实现压簧的模拟运动，我已经设置好点了，可是不知如何实现。我希望的运动是压簧带动钩子运动，下面是电磁铁，通电瞬间吸进去的时候，可以带动钩子转动（此运动该如何设置配置）问题好多，，谢谢大家，希望帮我一起解决问题，

谢谢鲸兄的热情回复。电脑刚重装好，我照你的去试试，原来的压簧我是FNT里面调出来的。不是自己画的。

明天回公司下载你那附件，宏好复杂，第一段看不懂，第二段可以理解，呵呵

icebreaker_1981 wrote:
   
  按重键还是motion做的

是重建的吧
重建宏：
Option Explicit  
Dim swApp As Object  
Dim doc As Object  
Dim boolstatus As Boolean  
Dim longstatus As Long  
Dim Annotation As Object  
Dim Gtol As Object  
Dim DatumTag As Object  
Dim FeatureData As Object  
Dim Feature As Object  
Dim Component As Object  
Dim start As Variant  
Dim rebuilds As Variant  
Dim finish As Variant  
Dim totaltime As Variant  
  
Sub Main()  
Set swApp = Application.SldWorks  
Set doc = swApp.ActiveDoc  
Dim Message, Title, Default, Rebuild  
Message = "请输入重建的次数"  
Title = "重建宏"  
Default = "50"  
Rebuild = InputBox(Message, Title, Default)  
If Rebuild = "" Then  
End  
Else  
start = Timer  
For rebuilds = 1 To Rebuild  
doc.EditRebuild3  
doc.GraphicsRedraw2  
Next rebuilds  
finish = Timer  
totaltime = finish - start  
MsgBox "总时间" & totaltime & "秒", vbDefaultButton1, "Rebuild Macro"  
End If  
End Sub

附件为一个60——100以增量为5的弹簧 2005版
不停的按重建按钮，就可以看到效果

xiaoxiao1008 wrote:
下面的图片是MaoBin兄做的

按重键还是motion做的

下面的图片是MaoBin兄做的