◎RAND Automation Gatewayを操作してみよう

 難しいPro/Eの操作をEXCELやVisual Basicで作ったプロクラムで制御できるという
噂のRAND Automation Gatewayの期間限定版をダウンロードして使ってみました。

 使ってみた機能はEXCELでVBAを書いて、以下の3つを実行しました。
  (1)モデルの読み込み
  (2)モデルの大きさ変更
  (3)IGESデータの出力
 

まず、下のモデルLOADの
ボタンを押して下さい。

右の画像が実際のEXCELに作ったボタンです。
下のソースがEXCELのVBAで作ったやつです。

Dim rgw As New GWayAX

Private Sub CommandButton1_Click()
Dim rg As Long
rg = rgw.ModelRetrieve("cupholder.prt")
rg = rgw.SessionSetCurrentModel("cupholder.prt")
End Sub

Private Sub CommandButton2_Click()
rg = rgw.DimensionSetValue("diam",Val(Excel.ActiveCell))
rg = rgw.ModelRegenerate
rg = rgw.WindowRepaint
End Sub

Private Sub CommandButton3_Click()
rg = rgw.ModelExportFile(IGES, "a.igs", "cupholder.prt")
End Sub
TOPへ戻る