动画练习题 附上2004档案----已经公布答案

wang-hai-bo wrote:https://www.icax.org/viewthread. ... %3D1&page=#pid=https://www.icax.org/viewthread. ... %3D1&page=#pid=  
  https://www.icax.org/bbs/jh/26/26-20041217-155255.html  
  https://www.icax.org/bbs/jh/26/26-20041216-155017.html

謝謝

偷一个过来
重建宏代码  
  
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

峰子韬 wrote:
不会,瞎玩  
  游啊游,不停游

峰子韬 ：开渲染了？

渲染条件下的动画从来没成功过。怎样实现？

shsoso wrote:
  

  
學習到..........謝謝版主

谢谢锋兄 （其实我的名字里面也有个锋字）

我来试一下

不好意识多发了一张

QianFD wrote:
我来试一下

  
建议你把SW背景颜色改一下，可以把文件缩小很多，大大提高性能