カム座標をEXCELに転送 |
- 日時： 2006/03/07 10:44
- 名前： emily
|
| アセンブリWBにてパラメータを図のように定義しておきます。LenP1は求めたい距離です。EXCELのVBAで下記のコードを実行すると、角度.1を１０〜１７０度に変化させた時のLenP1がセルに入ります。
Sub test_simuCAM()
MsgBox "get CAM_param macro now running.."
Set xSheet1 = ActiveSheet
Set CATIA = GetObject(, "CATIA.Application")
Set prod1 = CATIA.ActiveDocument.Product
Set ang1 = prod1.Parameters.Item("角度.1")
Set LenP1 = prod1.Parameters.Item("LenP1")
'MsgBox ang1.Value & " :" & LenP1.Value
rr = 2
For i = 10 To 170 Step 10
ang1.Value = CDbl(i)
prod1.Update
xSheet1.Cells(rr, 2).Value = i
xSheet1.Cells(rr, 3).Value = LenP1.Value
rr = rr + 1
Next
Set prod1 = Nothing
Set CATIA = Nothing
End Sub
後は、ばねの自由長やなどでスプリング力を計算するのはEXCELで出来るでしょう。
CAMと followerの接触拘束がアセンブリWBではうまくできません。（キネマならできる？）それで上記ではCAMの表面から３ｍｍ外側にfollowerの原点を拘束してごまかしました。
CAMと followerの干渉や距離をマクロで調べながらfollowerの位置を制御して計算すれば多分完成するでしょう。 |
|
|
Re: カム座標をEXCELに転送 
