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

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

　使ってみた機能はＥＸＣＥＬでＶＢＡを書いて、以下の３つを実行しました。
　　（１）モデルの読み込み
　　（２）モデルの大きさ変更
　　（３）ＩＧＥＳデータの出力 

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

右の画像が実際のＥＸＣＥＬに作ったボタンです。
下のソースがＥＸＣＥＬのＶＢＡで作ったやつです。

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へ戻る