こちらの続きです。
仕方なく、OOoBasicをやってみました2 - C#ATIA
折角なので、CATIAでもやってみます。
元にするものは、こちらのスピードテストで使用したものです。
スピードテスト1 - C#ATIA
まず、元のｿｰｽｺｰﾄﾞを丸ごとOOoBasic側にｺﾋﾟﾍﾟします。
VBAやVSの参照設定に該当するものが、良くわかりませんでした。
恐らく無いのではなかろうか？ と思うのですがよくわかりません。
その為 "As" の以降の型の指定がｴﾗｰとなるので、全て置換機能で
「As 」 → 「'As 」
に置き換えｺﾒﾝﾄ化させます。
続いて、ｱｳﾄﾌﾟﾛｾｽとなってしまう為、CATIA自身のｵﾌﾞｼﾞｪｸﾄを
取得しなければなりません。 さらに、OOoBasicのｴﾃﾞｨﾀから
ﾏｸﾛを起動する場合、"Sub Main" からしか起動出来なさそうなので
以下のｺｰﾄﾞを追加します。
'OOoBasic Dim CATIA as Object Sub Main set CATIA = CreateObject("CATIA.Application")'CATIAの取得 CATMain'ｺﾋﾟﾍﾟしたCATMainの呼び出し End Sub
ExcelVBAから起動する場合と同じです。
これでﾏｸﾛを起動すると、ｴﾗｰ無く実行できました。 が、
元のVBAであれば最後にﾏｸﾛの実行時間がﾀﾞｲｱﾛｸﾞに表示されますが、
OOoBasicの場合 "0秒" となってしまいます。
WinAPIを利用して時間を測定している事が原因だろうと思うのですが、
OOoBasicからWinAPIを利用する事が可能なものかどうか？は、
わかりませんでした。
