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

找一找本坛里面的 rebuilt宏，找到的给个链接

不会,瞎玩
游啊游,不停游

菜鸟问：
下载后附件后，怎么看不到像这里演示的动画了？？

厉害，让我等新手佩服不已，不知道什么时候才能有这水平啊

泡泡鱼 wrote:
菜鸟问：  
  下载后附件后，怎么看不到像这里演示的动画了？？

  
它是用方程式寫的兩點變數　P１　Ｐ２點　
一個方程比方　假設p２的初始值=0 　　
p1=0+p２  p2=1+p１ 所以 p1=0+0=0　p2=1+０=１
再來　p1=0+1=1 p2=1+1=2  
p1=2 p2=3
p1=3 p3=4
一直如此循環
xiaoxiao1008兄　則是利用數學關係式　ＩＩＦ
Ｐ１＝ＩＩＦ（Ｐ１＞常數　, A ,Ｐ１＋１)
當Ｐ１值大於常數值時　執行Ｐ１＝Ａ　否則　Ｐ１＝Ｐ１＋１
所以　在執行重新計算時　依其運算式　一直在累加　當大於常數值時
又回復到Ａ值　週而復始
因此開啟animator螢幕抓取功能　一直猛按重新計算　就可以製作動畫了
或者　利用移動大小特徵工具亦可。。。。。。。。。。

曾經試過　可是玩不來　因為它會執行到結束
我的意思是想　按一個鍵就能看到漸進的動畫
當我按Ｆ８時可以　因為它是逐行執行　可以看到漸進動畫
ＰＬＡＹ　就不行了。。。。。
  
Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
num = 0
Do Until num > 10
Part.EditRebuild
num = num + 1
Loop
End Sub
會的大師就幫我改改了。。。。。。。。ＴＫＳ

呵呵！小弟我又来了！
帮顶！

那個Oran做的教程哪裏去了？給個鏈接

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

沒有學過VB,真是遜的很啊！