iCAx开思网

标题: 动画练习题附上2004档案----已经公布答案 [打印本页]

作者: xiaoxiao1008 时间: 2005-1-9 18:21
标题: 动画练习题附上2004档案----已经公布答案
依据路经做出动画，下面是2004 档案

作者: xiaoxiao1008 时间: 2005-1-9 18:23
为了发这个贴，居然发了4次

作者: gneful 时间: 2005-1-9 22:56
L1

作者: gneful 时间: 2005-1-9 22:59
L2

作者: SW笨笨 时间: 2005-1-10 00:18
gneful是动画高手，已经做过许多了不起的动画了。

作者: xiaoxiao1008 时间: 2005-1-10 07:55

SW笨笨 wrote:
gneful是动画高手，已经做过许多了不起的动画了。

gneful 高手，久仰久仰！

作者: 菜豆 时间: 2005-1-10 08:13
怎么感觉像蝌蚪，难不成变成

作者: coffeesz 时间: 2005-1-10 10:14
太靓啦。可惜我搞了很久也不成。

顶出教程！！！！！！

作者: xiaoxiao1008 时间: 2005-1-10 10:24

菜豆 wrote:
怎么感觉像蝌蚪，难不成变成

是放大了百万倍的小蝌蚪，找不到目标，瞎转悠呢

作者: xiaoxiao1008 时间: 2005-1-10 10:34
为什么不试试REBUILT

作者: xiaoxiao1008 时间: 2005-1-10 10:50
找一找本坛里面的 rebuilt宏，找到的给个链接

作者: 峰子韬 时间: 2005-1-10 13:05
不会,瞎玩
游啊游,不停游

作者: 泡泡鱼 时间: 2005-1-10 20:38
菜鸟问：
下载后附件后，怎么看不到像这里演示的动画了？？

作者: ccc 时间: 2005-1-10 21:26
厉害，让我等新手佩服不已，不知道什么时候才能有这水平啊

作者: smltiger 时间: 2005-1-10 22:45

泡泡鱼 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螢幕抓取功能　一直猛按重新計算　就可以製作動畫了
或者　利用移動大小特徵工具亦可。。。。。。。。。。

作者: smltiger 时间: 2005-1-10 22:57
曾經試過　可是玩不來　因為它會執行到結束
我的意思是想　按一個鍵就能看到漸進的動畫
當我按Ｆ８時可以　因為它是逐行執行　可以看到漸進動畫
ＰＬＡＹ　就不行了。。。。。

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
會的大師就幫我改改了。。。。。。。。ＴＫＳ

作者: songzheng 时间: 2005-1-11 12:13
呵呵！小弟我又来了！
帮顶！

作者: xiaoxiao1008 时间: 2005-1-12 14:55
那個Oran做的教程哪裏去了？給個鏈接

作者: wang-hai-bo 时间: 2005-1-12 14:57
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

作者: xiaoxiao1008 时间: 2005-1-12 15:08
沒有學過VB,真是遜的很啊！

作者: xiaoxiao1008 时间: 2005-1-12 15:27

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

謝謝

作者: xiaoxiao1008 时间: 2005-1-12 20:37
偷一个过来
重建宏代码

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

作者: xiaoxiao1008 时间: 2005-1-12 20:42