指定した平面から、穴の中心点を作成する4

ようやくﾒｲﾝの部分です。

//cs
namespace sample_Part_CenterPoint {
    using System;
    using System.Collections.Generic;
    using INFITF;//Catiaのライブラリ
    using MECMOD;//Catiaのライブラリ
    using System.Runtime.InteropServices;//COMｵﾌﾞｼﾞｪｸﾄを操作するために必要
    using HybridShapeTypeLib;

    class Program {
        static void Main(string[] args) {

            var CCP = new CreateCenterPoint();
            CCP.Execute();
        }
    }
    class CreateCenterPoint {
        public CreateCenterPoint() {
            var catia = (INFITF.Application)Marshal
                        .GetActiveObject("CATIA.Application");
            CatHelper.State = new CatiaContainer(catia);
        }

        public void Execute() {
            while (true) {
                var Result = CatHelper.SelectItem2<PlanarFace>
                    ("中心を作成する面を選択して下さい // [Esc]=ｷｬﾝｾﾙ");
                if (Result == null) { return; }
                CreatePoint(Result);
            }
        }

        private void CreatePoint(PlanarFace Plan) {//①
            var DeleteList = new List<AnyObject>();

            //参照面データム化
            var Ext = CatHelper.NewExtract(Plan);
            DeleteList.Add(Ext);

            //境界抽出
            var Bou = CatHelper.NewBoundaryOfSurface(Ext.AsReference());
            DeleteList.Add(Bou);

            CatHelper.NewHybridBody("CenterPoint");
            CatHelper.State.HybridBody.AppendHybridShape(Bou);

            //分解
            CatHelper.State.Selection.Clear();
            CatHelper.State.Selection.Add(Bou);
            CatHelper.State.Selection.Search("Topology.CGMEdge,sel");

            foreach (var EdgeRef in CatHelper.State.Selection.AsEnumerable<Reference>()) {
                try {
                    var pnt = CatHelper.NewPointCenter(EdgeRef);
                    DeleteList.Add(pnt);
                    CatHelper.State.HybridBody.AppendHybridShape(pnt);
                    CatHelper.State.HybridBody.AppendHybridShape(
                        CatHelper.NewPointDatum(pnt.AsReference()));
                } catch { }
            }
            CatHelper.DeleteObject(DeleteList);
        }
    }
}

①：選択された面を受け取り、中心点作成の処理をしており、VBAと特に変わりは無いです。
　いかにも"手続き型"っぽい書き方になってしまっているのですが、他にどの様な
　書き方をすれば良いのかよくわかりません・・。(知りたい)

適当なモデルを作成し、VBAとC#、それぞれのマクロ実行後の画像がこちら
f:id:kandennti:20150526081120p:plain
・・・結果が異なってますw 移植失敗ですね。
(C#では開いた円弧に対しても点が作成されています)
円弧が開いている？閉じている？は判断してないですし、マクロを作成している言語の
違いで挙動が変わるとも思えないので、恐らく他の部分でしょう。
細かい事を書けば、形状セット挿入とUpdateの順番やら、一時的な要素の削除タイミング
等が若干異なるので。

（以下、ボヤキです。）
毎回そうなのですが、CATIAの操作をCatHelperｸﾗｽに任せ、ﾒｲﾝな処理部分では
要素の受け取り等だけにしたいと思って、この方法を行っているのですが
「CatHelper.State～」がやたらと出てきてしまい、可読性が異様に悪いです。

CatHelperｸﾗｽﾒｿｯﾄﾞの呼び出しを行いやすくする為に、CatiaContainerｸﾗｽ
(ｱｸﾃｨﾌﾞなCATIAの主要なｵﾌﾞｼﾞｪｸﾄを保持)のｲﾝｽﾀﾝｽをﾌﾟﾛﾊﾟﾃｨで保持しているのですが、
これが逆に悪いのでしょう。　と言っても2ヶ所からCatiaContainerｸﾗｽに対して
アクセスもしたくない・・・。　「どうせなら静的クラスに」と言う気持ちも
あるのですが　"SelectElement4"　の様に2つのﾄﾞｷｭﾒﾝﾄを保持したい場合に都合
悪いうえ、ﾄﾞｷｭﾒﾝﾄを切り替えたい場合に新たなｲﾝｽﾀﾝｽをササッと、CatHelperｸﾗｽ
投げてしまえば楽だなぁと思ったり。　単にCatHelperｸﾗｽのﾒｿｯﾄﾞの量がまだまだ
不足しているだけのような気もするのですが、現状でも単調な処理に対しても
大げさなソースコードの量になっているのも事実。　プロの方ならどの様にするのだろう・・・。

C#ATIA

↑ﾀｲﾄﾙ詐欺　主にFusion360API　偶にCATIA V5 VBA(絶賛ネタ切れ中)

指定した平面から、穴の中心点を作成する4