形状セット内の全ての曲線の中間点を作成する1

CATIA V5です。こちらに挑戦しました。
Macro to look inside a geometrical set and generate a mid point on all the curves. - DASSAULT: CATIA products - Eng-Tips

指定した形状セット内から曲線を選び出し、中間点を作成しています。
※形状セット内の形状セットの要素は対象外です。

キモは形状セット内の要素が曲線だと判断するGetGeometricalFeatureType
メソッドだと思います。
r1 HybridShapeFactory (Object)
以前も書きましたが、このドキュメントの記載方法が間違いやすい・・・。

ここの所、1日1マクロ。　さすがにこれの使い道は少なそう。