BodyのTreeを各種ﾌｫｰﾏｯﾄでｴｸｽﾎﾟｰﾄする

先日作成した　"ProductTreeをXMLﾌｫｰﾏｯﾄでｴｸｽﾎﾟｰﾄする"　ﾏｸﾛの
ﾍﾞｰｽとなった、BodyのTreeをｴｸｽﾎﾟｰﾄするﾏｸﾛをついでに公開しておきます。
（過去に "Unofficial CATIA User Forum" Uｐした事のある物です）

そこそこﾎﾞﾘｭｰﾑが大きい為、下記のｻｲﾄにﾓｼﾞｭｰﾙ等をUpしておきます。
CATIA V5 GetBodyTree Macro - Other - 3D CAD model - GrabCAD
全てのﾓｼﾞｭｰﾙ類を同一ﾌﾟﾛｼﾞｪｸﾄにｲﾝﾎﾟｰﾄしてください。

ﾏｸﾛの使用方法は、実行後Bodyを選択しｴｸｽﾎﾟｰﾄするﾌｫｰﾏｯﾄを指定
してもらえれば、Partﾌｧｲﾙと同一ﾌｫﾙﾀﾞ内にﾌｧｲﾙが作成されます。
ﾌｧｲﾙ名は "Partﾌｧｲﾙ名 + 指定したBody名 . 選択されたﾀｲﾌﾟの拡張子"
となります。

以前公開したものと、内部的に少しだけ変更しています。
選択されたBody以下のTreeをｴｸｽﾎﾟｰﾄするのですが、Bodyから
PartDocumentを取得する際、このようなｺｰﾄﾞで書いていました。

'VBA
    '指定先取得
    Set oPartDoc = oBody.Parent.Parent.Parent

これでも間違いではないですし、実際に動いていました。
でも、あまり美しくないですし、このようなｿｰｽではC#の場合、
ｴﾗｰとなりﾋﾞﾙﾄﾞ出来ません。
(Parentﾌﾟﾛﾊﾟﾃｨに入っているｵﾌﾞｼﾞｪｸﾄにParentﾌﾟﾛﾊﾟﾃｨが存在している
保障がない為です、恐らく)

そこで、次の関数を用意しました。

'VBA
'PartDocumentの取得
Private Function GetPartDocument(OJ As AnyObject) As PartDocument
    Select Case TypeName(OJ)
        Case "PartDocument"
            Set GetPartDocument = OJ
        Case "Application"
            Set GetPartDocument = Nothing
        Case Else
            Set GetPartDocument = GetPartDocument(OJ.Parent)
    End Select
End Function

引数でAnyObject型を受け取り、"PartDocument"になるまでParentﾌﾟﾛﾊﾟﾃｨ
を再帰でさかのぼります。　但し、出口が存在していない場合、無限ﾙｰﾌﾟ
となってしまうため、"Application"になった場合、処理を抜けるように
しています。
(恐らくApplicationｵﾌﾞｼﾞｪｸﾄのParentﾌﾟﾛﾊﾟﾃｨは、自身のApplicationｵﾌﾞｼﾞｪｸﾄ
になっているのだろうかと思います)
先程のPartDocumentを取得する部分を、こんな感じに変更しました。

'VBA
    '指定先取得
    Set oPartDoc = GetPartDocument(oBody)

このネタは、こちらにも同様の内容が記載されています。
How to get the Part object from virtually any object within it | CATIA V5 Automation
内容的には、任意のｵﾌﾞｼﾞｪｸﾄからPartｵﾌﾞｼﾞｪｸﾄの取得ですが、同じような
ものです。
こちらでは"自身のｵﾌﾞｼﾞｪｸﾄの型名"と"Parentﾌﾟﾛﾊﾟﾃｨのｵﾌﾞｼﾞｪｸﾄの型名"が
一致したら処理を抜けるような、再帰になっています。
恐らく"自身のｵﾌﾞｼﾞｪｸﾄの型名"と"Parentﾌﾟﾛﾊﾟﾃｨのｵﾌﾞｼﾞｪｸﾄの型名"が一致
するのは、Applicationｵﾌﾞｼﾞｪｸﾄだけなのだろうと思います。