(1)モデルの読み込み
 
モデルが表示されました。
次に大きさを変更して
みましょう。
寸法パラメータ変更の
ボタンを押して下さい。

 黄色で書いている2行でモデル読み込みおよび画面表示を
行っています。ファイル名はcupholder.prtです。

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

 
TOPへ戻る