压簧模拟运动

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

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

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