CADSUPER 研究室

[ スクリプト実例　- その２ ] PowerPARTS を凌駕！？

お約束通り、今回はCADデータダウンロードページの便利な使い方を紹介します
操作の手順は前回に同様なので、説明は短いです ( 凌駕は大げさかな、、^_^;)

例２. CADデータダウンロードページの便利な使い方 ( オススメ )

図 1. FX に標準で装備されている、PowerPARTS実行。でも、これって本当に使いやすいですか？
個人的には、ダウンロードページにたどり着くまで (まぁ２,３クリック多いだけですが、、) 面倒に感じます。 そこで、Web２CAD ではありませんが、似た様な機能を擬似的に作ってみました。 これを実行するとFX から IE を介して当サイトのダウンロードページが直接開くようになります

図 2. 上記 例１で解説した要領で以下のソースを fvb形式 で保存します ( コピペして保存 )

↓-------------以下ソース-------------↓

'FILE:ソーチ設計のスクリプトファイル ( http://sohchi.com )
Sub shochi_Ie_open
'FUNC:ソーチ設計の CAD DATA ダウンロードサイトを開く
Set objIe= CreateObject("InternetExplorer.Application")
objIE.Visible=TRUE
objIe. Navigate("http://sohchi.com/link-2.htm")
objIe. Visible = True
End Sub
'追加希望のダウンロードサイトがありましたら掲示板 http://sohchi.com/bbs.cgi に書き込んでください

↑-------------以上ソース-------------↑

図 3. ファイル名はieopen.fvb 、表示名はIEopen とします ( 両方とも適当な名前で構いません )

図 4. クリックしてみると、、ダウンロードページが開きました (^_^)v
ここから希望のサイトをクリックしてください。　今後はいつでも FXからこのページが開くようになります
CADSUPER-FX ユーザーのみなさん、ジャンジャン使ってくださいねー！

ダウンロードサイトの追加希望はCADSUPER 掲示板 に書き込んでください

今回は以上です。 ではまた、次回！　(^^)/~