KCL
非常に個人的に作成している CATVBA用ﾗｲﾌﾞﾗﾘ なのですが、ｻﾝﾌﾟﾙとして 掲載しているﾏｸﾛを利用する際には必要となる為、今更ながらご説明です。例えばこちらの場合ですが、 単独な3D曲線の取得する1 - C#ATIA ｻﾝﾌﾟﾙｺｰﾄﾞのﾍｯﾀﾞ部分を確認してください。 (忘れ…
こちらの続きです。 端点一致を探る、組み合わせテスト5 - C#ATIA とりあえず、機能するものを先に作りました。 'vba test_FindSingle3DCurve Ver0.0.1 using-'KCL0.08' '単独な3D曲線の取得 Option Explicit '*** 設定 *** Private Const Tolerance = 0.001…
こちらの続きです。 3D曲線の端点座標値を取得2 - C#ATIA 未だにこだわっているのですが、何とかもうちょっと速くしたいので。3D曲線を取得するｺｰﾄﾞを書くのが面倒だったので、検索で済ませていたのですが 真面目にHybridShapesから探し出すように修正してみ…
こちらの続きです。 3D曲線の端点座標値を取得 - C#ATIA SPAWorkbenchで端点を取得する方法が、桁違いに速い事はわかったのですが 実際ﾃｽﾄしてみると体感的にかなり遅いんです。 その為、形状ｾｯﾄを指定した後の時間を測定するように変更してみました。 'vba …
こちらの続きです。 選択ｾｯﾄを利用する - C#ATIA 通勤中に "ひょっとしたら今回使うかも" と思ったので、 選択ｾｯﾄを利用した "再選択の高速化" をﾃｽﾄしてみました。選択ｾｯﾄを作成する際、事前に選択状態にしなければならない為 一度だけでは無意味です。 一…
前回の応用です。 3D曲線の端点座標値を取得 - C#ATIA 3D曲線の端点座標一致を探し出す、組み合わせﾃｽﾄｺｰﾄﾞを作りました。 予め書いておくと、何も考えずに単純に作っているので全くﾀﾞﾒのものです。 少ない量であれば、まぁ大丈夫ですが 数が多いと最悪CATIA…
ご相談頂いた内容を実現する為に、ﾃｽﾄｺｰﾄﾞを作成しました。 3D曲線の端点部分の座標値の取得は、ほぼやったことがありません。2Dの直線であれば、こちらで端点座標を取得しています。 Drawingの直線を移動する2 - C#ATIA 実は、2Dと異なり3Dの場合はﾌﾟﾛﾊﾟﾃｨ…
「ﾏｸﾛで "ｴﾘｱ ﾌｨﾙを修正" ｺﾏﾝﾄﾞを」と御相談を頂いたのですが、難しいです。よくわかっていない物をﾏｸﾛ化する際に最初に利用するのが、個人的なﾗｲﾌﾞﾗﾘ "KCL" のCATMainにしているﾏｸﾛです。 選択されたものをﾛｰｶﾙｳｨﾝﾄﾞｳでみて見ると、ｴﾘｱﾌｨﾙではなく、Drawing…
前回のﾏｸﾛでは、2つを比較して色を反映させましたが、同一の面を認識 ＝ 異なる面を認識なので、2つを比較して異なる面を抽出するﾏｸﾛを作りました。 'vba sample_GetChangeArea_ver0.01 using-'KCL0.08' '2つのﾎﾞﾃﾞｨ/形状ｾｯﾄの異なる面を抽出 Option Explici…
こちらで公開している非常に個人的なCATVBA用ﾗｲﾌﾞﾗﾘ "KCL" を 修正・追加しました。 非常に個人的なCATVBA用ﾗｲﾌﾞﾗﾘ - C#ATIA 公開しているｻﾝﾌﾟﾙﾏｸﾛでも特にSelectItem関数を利用しているのですが、 今まではこんな記載方法をしていました。 ・・・ Dim HB As…
昔と異なり最近は、客先から3DCADﾃﾞｰﾀを受け取って作業を行うことが 殆どなのですが、当然全ての客先がCATIAを使っているわけでは無い為、 中間ﾌｫｰﾏｯﾄ(Parasolid,Acis,Step,Iges)で受け取る事が殆どです。 (ﾒｰｶｰさんがCATIAでも、間に数社はいるとCATIAでも…
こちらの続きです。 指定した要素の周囲要素を取得する2 - C#ATIA前回は無意味だったので、結局素直に距離を測り判断します。 ﾘﾌﾚｰﾑｵﾝと検索でHitした要素だけの距離測定のため、全部の要素に 対して行うより短時間で済むはずです。 'vba sample_Get_Outskir…
こちらの続きです。指定した要素の周囲要素を取得する1 - C#ATIA "周囲要素を取得する" と書いておきながら、画面に表示されたものを 取得している為、遠くに有るのに "周囲の要素" を判断されている事は 昨日の時点で気が付いていました・・・。これを改善…
"指定した要素の周囲の要素を取得したい" とご質問を頂きました。すんなり行う機能がCATIAには無いような気がするので、"ﾘﾌﾚｰﾑ ｵﾝ" と "検索" を利用します。 'vba sample_Get_Outskirt_Items using-'KCL' '指定した要素(GSD)の周囲要素を取得 Option Explic…
こちらの続き・・・と言うか反省です。 指定ﾎﾞﾃﾞｨを子ﾎﾞﾃﾞｨにしつつ、ﾘﾈｰﾑ - C#ATIA 昨日のｺｰﾄﾞでは、こう書きました。 'vba type1 Sub CATMain() Dim Msg$: Msg = "Bodyを選択して下さい : ESCｷｰ 終了" Dim SelElem As SelectedElement Do Set SelElem = KC…
明日には出口にたどり着けそう。長かった・・・。少し前に行った作業で、類似した作業を何度もやることになった為 急遽作ったﾏｸﾛです。 指定したﾎﾞﾃﾞｨをｱｾﾝﾌﾞﾙで子供にするだけのﾏｸﾛです。 えぇ大した事無いです。 具体的に示すとこんな事です。 このﾎﾞﾃﾞｨｰ.…
こちらの続きです。 曲線と戦ってみる10 - C#ATIA曲線内の最小Rとなる部分を見つけ出せば、何か糸口が掴めるかな？ と思っています。 指定した曲線の最小Rって "式" で取得できる事 知っていましたか?こんな感じです。 "長さ" のﾊﾟﾗﾒｰﾀを作成して、画像のよ…
こちらの続きです。 曲線と戦ってみる8 - C#ATIA 曲線の長さとﾁｬﾚﾝｼﾞする円弧の長さの関係を 掴みたい為、こちらのｺｰﾄﾞを修正しました。 曲線と戦ってみる4 - C#ATIA何処を修正したのか忘れてしまった為、全てｺｰﾄﾞを 記載しておきます。(KCLは必要です) 'vba…
こちらの続きです。 曲線と戦ってみる6 - C#ATIA 一本の曲線を近似化するだけなので、あまりｽﾋﾟｰﾄﾞには こだわるつもりは無かったのですが、ｺｰﾄﾞが荒れない程度であれば 高速化したいので、ﾃｽﾄ用ｺｰﾄﾞを作成。こちらのType1のｺｰﾄﾞを見ると、y4yamaさんも曲線…
こちらの続きです。 曲線と戦ってみる4 - C#ATIA 色々な曲線を試しているうちに気が付くのですが、 このﾏｸﾛ欠点が幾つか有ります。 ・直線部分は近似化されない 直線部は、3点通過の円弧が作成出来ない為当然と言えば 当然です。 こんな感じで直線が含まれた…
こちらの続きです。 曲線と戦ってみる3 - C#ATIA ｺｰﾄﾞの理解を深めたかったのと、今後修正等を行いやすくしたかった為 Type1と元に作り直しました。 'vba Arc_Approximated Option Explicit Private Const mPntCount = 151& '曲線上のﾎﾟｲﾝﾄ数 Private Const …
－－ 重要 －－ こちらは古い記述です。 最新のものはこちらになります。 GitHub - kantoku-code/KCL: Library for personal CATVBA (CATIA macro) －－－－－－公開するｺｰﾄﾞを短くしたい為、非常に個人的に作成している CATVBA用ﾗｲﾌﾞﾗﾘを公開しておきます。…
