こちらで公開している非常に個人的なCATVBA用ﾗｲﾌﾞﾗﾘ "KCL" を
修正・追加しました。
非常に個人的なCATVBA用ﾗｲﾌﾞﾗﾘ - C#ATIA
公開しているｻﾝﾌﾟﾙﾏｸﾛでも特にSelectItem関数を利用しているのですが、
今まではこんな記載方法をしていました。
・・・
Dim HB As HybridBody
Set HB = KCL.SelectItem(Msg, Array("HybridBody"))
・・・
自分で作っておきながら、第二引数をﾊﾞﾘｱﾝﾄな文字型配列に限定して
いましたが、毎回配列を書くのが面倒な為、文字型でも利用可能にしました。
上記の場合はこんな感じでOKです。
・・・
Dim HB As HybridBody
Set HB = KCL.SelectItem(Msg, "HybridBody")
・・・
又、 "，"(コンマ)区切りの文字列で複数ﾀｲﾌﾟの指定を出来るようにしました。
・・・
Dim AnyOj As AnyObject
Set AnyOj = KCL.SelectItem(Msg, "HybridBody,Body")
・・・
これは、戻り値が異なるだけの SelectElement関数も同様です。
もちろん今まで通り、第二引数にﾊﾞﾘｱﾝﾄな文字型配列を渡してもOKです。
もう一つ、新たに "CanExecute関数" を作りました。
本来ﾏｸﾛを実行する際ﾄﾞｷｭﾒﾝﾄ(ﾌｧｲﾙ)が開かれているのかどうか? を
チェックすべきでしたが、今までサボったｺｰﾄﾞを公開していました。
又、実行するﾏｸﾛに対してｱｸﾃｨﾌﾞなﾄﾞｷｭﾒﾝﾄが正しいものかどうかも
ﾁｪｯｸすべきで、異なっている場合はｴﾗｰとなります。
(DrawなﾏｸﾛをPartで実行する等)
使い方としてはこのような感じです。
・・・
If Not CanExecute("DrawingDocument") Then Exit Sub
・・・
恐らくCATMainの先頭部分に記述する事になるかと思います。
引数にﾄﾞｷｭﾒﾝﾄのｵﾌﾞｼﾞｪｸﾄﾀｲﾌﾟを文字列で指定してください。
ﾌｧｲﾙが開かれていない場合はこのようなﾀﾞｲｱﾛｸﾞが出ます。
指定したﾄﾞｷｭﾒﾝﾄﾀｲﾌﾟ以外のものがｱｸﾃｨﾌﾞな場合は、このような
ﾀﾞｲｱﾛｸﾞが出ます。
又、複数のﾄﾞｷｭﾒﾝﾄﾀｲﾌﾟで利用できるﾏｸﾛの場合は、上記のSelectItem関数
同様に文字型配列やコンマ区切りの文字列で引数を渡してください。
・・・
If Not CanExecute("PartDocument,ProductDocument") Then Exit Sub
又は
If Not CanExecute(Array("PartDocument", "ProductDocument")) Then Exit Sub
・・・
他にIsStringAry,IsFilterType,ToStrVriAry関数等も追加していますが、
ﾗｲﾌﾞﾗﾘ内で使用するもののため、説明は割愛します。(ﾁｪｯｸが足りないかも)
ｻﾝﾌﾟﾙﾏｸﾛ程度であれば、程々のﾁｪｯｸでも･･･とは思っているのですが、
ﾗｲﾌﾞﾗﾘとなると、普段書かないようなﾁｪｯｸｺｰﾄﾞまで書くので、何であれ
世の中のﾗｲﾌﾞﾗﾘを公開されている方々は大変なんだろうなぁ と感じてます。
その為、何時までたっても "非常に個人的な" の文字が外せないでいます。
(言い逃れの為かも･･･)
