KCL
Drawの穴寸法/座標寸法ﾃｰﾌﾞﾙで、最後の列を増やしたい事が 結構あるのですが、恐らく手動では出来ないような気がしてます。 手動で出来ます（ｺﾒﾝﾄ部で、mineさんに教えて頂きました） （方法知っている方いらっしゃいましたら、教えて頂けると助かります）仕…
手抜きﾒﾆｭｰに登録しながらﾏｸﾛを修正していたら 地味なﾔﾂを見つけました。こんな感じの、丸括弧付きの寸法って何と呼ぶのが正式なんでしょうか? (きっとJISとかで決まっていると思うのですが)僕は参考寸法と呼んでいます。 こちらでもそんな記載になってます…
こちらの続きです。 手抜きﾏｸﾛ起動用ﾒﾆｭｰ2 - C#ATIA「Cat_Macro_Menu_Model.bas」の宣言ｾｸｼｮﾝ部に幾つか定数を 設けています。お好みで変更してください。 'Cat_Macro_Menu_Model.bas 'using-'KCL0.0.12' 'ﾀｸﾞを追記したﾓｼﾞｭｰﾙをﾌﾟﾛｼﾞｪｸﾄに追加するだけで '…
こちらの続きです。 手抜きﾏｸﾛ起動用ﾒﾆｭｰ1 - C#ATIACATVBAﾌﾟﾛｼﾞｪｸﾄにﾏｸﾛのﾓｼﾞｭｰﾙを追加するだけで、 ﾒﾆｭｰﾎﾞﾀﾝを自動的に追加します。但し、追加するﾓｼﾞｭｰﾙにﾎﾞﾀﾝとなる情報を追記する 必要が有り、以下 [タグ] と表記して説明します。 〇ﾌｧｲﾙの構成 同一のﾌﾟ…
CATIAのﾏｸﾛを実行する際、こちらの前半に記載した方法で ﾂｰﾙﾊﾞｰに登録して使っているのですがマクロを高速に実行させる(非公式) - C#ATIA正直な所、登録が面倒です。 (何処で見たか忘れましたが、全てのﾌｧｲﾙを閉じた状態で ﾂｰﾙﾊﾞｰを新規に作成すると、ﾜｰｸﾍﾞﾝ…
こちらの続きです。 ProductTree の ﾘｵｰﾀﾞｰ - C#ATIAｻﾝﾌﾟﾙ用のﾏｸﾛを用意していたのですが、Product用のﾏｸﾛを持っていない為、 以前の物を修正し、ｲﾝｽﾀﾝｽ名でｿｰﾄするﾏｸﾛに変更しました。 'vba sample_ReOrder_Product ver0.0.1 using-'KCL0.0.12' by Kantoku …
予め、お伝えしておきます。 KCLを更新しました。 非常に個人的なCATVBA用ﾗｲﾌﾞﾗﾘ - C#ATIAﾘﾝｸの画面やｶﾀﾛｸﾞ等を開いた状態でﾏｸﾛを実行すると、 ｴﾗｰで止まってしまうのを防ぎたかったので。 こちらの続きです。 1つのPartからBody毎にしたProductを作り出す -…
業務上欲しくなったので、久々にCATIAのﾏｸﾛを作成しました。穴あけ加工をCAMで作る際、Space-eでは穴位置となる点が 欲しかったので、こちらのﾏｸﾛをかなり前に作成しました。 指定した平面から、穴の中心点を作成する1 - C#ATIA 本来であれば、3Dの形状から…
こちらの続きです。 http://kantoku.hatenablog.com/entry/2016/11/24/173743 http://kantoku.hatenablog.com/entry/2017/07/19/190425原因を突き止め切れていないのですが、結果が総当りと 一致するようになりました。まずは、本ﾏｸﾛのｴﾝﾄﾘｰﾎﾟｲﾝﾄを持つ標準ﾓ…
ちょっと業務上欲しくなったので、CATPartﾌｧｲﾙをIgesに変換する為の ﾏｸﾛを作成しました。" ﾏｸﾛにする必要ある? " と思った方、正解です。単に変換するだけであれば、必要性を感じないのですが、ｵﾌﾟｼｮﾝの こちらの部分を変更しｿﾘｯﾄﾞとｻｰﾌｪｽで二回変換してます…
一応、こちらの続きです。 http://kantoku.hatenablog.com/entry/2015/04/15/195513前回のｺﾒﾝﾄで、"HybridShapeｸﾗｽのComputeﾒｿｯﾄﾞでもｱｯﾌﾟﾃﾞｰﾄ出来るよ" と imihitoさんに教えていただき、少し速くなりそうな気がしたので、 こちらのｺｰﾄﾞを元に試してみまし…
こちらの続きです。 3Dな注記の位置を制御出来ているっぽい(条件付き) - C#ATIAやっと完成しました。 注記位置については前回通り、条件付となりますが結構満足してます。 'vba sample_CreateArrow_ver0.0.3 using-'ver0.0.10' 'ｸﾘｯｸした面に矢印を作成-注記…
ﾀｲﾄﾙが異なりますが、こちらの続きです。 ｸﾘｯｸした面に法線を作成する - C#ATIAこちらでｺﾒﾝﾄ頂いている矢の部分ですが、 昨日自宅で、どの様な定義をすれば良いのか思いついたので ｺｰﾄﾞを作成してみました。 (このような事は案外、PCの前に居ない時に思いつ…
こちらのｺﾒﾝﾄに記載した、ﾏｸﾛで干渉ﾚﾎﾟｰﾄを作成するｻﾝﾌﾟﾙを 作成しました。 ｸﾘｯｸした面に法線を作成する - C#ATIA ｺｰﾄﾞはこちら。 'vba sample_ClashReport_ver0.01 using-'ver0.0.10' '指定した2つのﾌﾟﾛﾀﾞｸﾄの干渉ﾁｪｯｸをします Option Explicit Sub CATMain…
こちらでｺﾒﾝﾄ頂いたのですが、時間がﾅｶﾅｶ確保できずに ｻﾝﾌﾟﾙを作れませんでした。3Dの文字モデリングマクロ8 - C#ATIA正直な所、完成した状態がｲﾒｰｼﾞし切れていないため、ｸﾘｯｸした 面のｸﾘｯｸした位置に法線を作成するﾏｸﾛを作成してみました。 'vba sample_Cre…
こちらの続きですが、ﾀｲﾄﾙ名がふさわしくないです。ｻｰﾌｪｽの色をﾎﾞﾃﾞｨに反映する - C#ATIAtakashiさんからｺﾒﾝﾄを頂き、早速ご要望を反映してみました。 'vba sample_ApplyColor_ver0.0.2 using-'KCL0.0.10' '指定した形状ｾｯﾄ(ﾎﾞﾃﾞｨ)の面の色をﾎﾞﾃﾞｨ(形状ｾｯﾄ)…
こちらの続きです。 選択した円弧の長さを表示1 - C#ATIAもう一つ方法があり、ﾊﾟﾗﾒｰﾀと式を利用した方法です。 'vba test_Circle_Length_Formula 'using-'KCL0.0.10' '円弧の長さを表示-式利用 Option Explicit Sub CATMain() 'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ If Not CanExec…
ちょっと相談?を頂いたので、久々にCATIAのﾏｸﾛを書いてみました。選択した3D円弧の長さを表示するだけのものです。 極端な話、こちらの物を流用しただけです。 線を選択しつつ、合計長さを表示する - C#ATIA 'vba test_Circle_Length 'using-'KCL0.0.10' '円…
加工する際、世の中の方々は加工原点をどうやって決めているんでしょうか? 部品の原点が決まっているようであれば、そこを原点にするのかも知れない のですが、基準まで加工して作る場合は･･･ﾊﾞｲｽを使用していたら材料の 上側の左奥(か、右奥･･･わかりにくい…
"Drawのﾃｷｽﾄｻｲｽﾞを変更したけど反映されない?" のような ご相談を頂きましたが、ちょっと状況がわからないので、 現象を再現できないでいます。ｸﾘｯｸしたﾃｷｽﾄのｻｲｽﾞを2倍にするだけのﾃｽﾄｺｰﾄﾞです。 'vba test_DrawTextSize_Double 'using-'KCL0.0.10' 'DrawTe…
こちらの続きです。 指定した2D要素を、指定した原点位置でｺﾋﾟﾍﾟする - C#ATIA 予告していた、2Dｺﾝﾎﾟｰﾈﾝﾄ(2D構成要素)を展開するﾏｸﾛです。ｱｸﾃｨﾌﾞなDrawｼｰﾄ全てのﾋﾞｭｰ内(ﾒｲﾝ・背景・ﾛｯｸ・非表示)にある 2Dｺﾝﾎﾟｰﾈﾝﾄが対象です。 'vba sample_Comp2DExplode ver…
こちらの続きです。 2D曲線の折れ線化を利用し、重複線の選択1 - C#ATIA 昨日の4分木ﾗｲﾌﾞﾗﾘを利用して、前回の重複線を選択した状態にする ﾏｸﾛを改良しました。 'vba test_Select_Overlap_Curve2D ver0.0.2 'using-'KCL0.09' -'KCL_Quadtree0.0.1' '指定ﾋﾞｭｰ…
こちらの続きです。 流用して、4分木る 2 - C#ATIAやっと、2度と見たくない程の汚いｺｰﾄﾞになってしまいましたが 組み合わせの効率化を促す、線形4分木が出来ました。"KCL_Quadtree.bas" と言う名称の標準ﾓｼﾞｭｰﾙとします。 'KCL' と、先日のDotNET Framework …
DXF(2D)ﾃﾞｰﾀを受け取って3Dにﾓﾃﾞﾘﾝｸﾞする作業は、ほぼ無いのですが 大まかな形状を作成したい時が偶にあり、行います。DXFをｲﾝﾎﾟｰﾄして手っ取り早く、3Dに貼り付けたいのですが困るのが 原点合わせです。 Draw側で原点をあわせて3Dにﾍﾞﾀｯと貼り付けるか? 3D…
こちらの続きです。 ｲﾝﾌﾟﾛｾｽ実行時、一部をｱｳﾄﾌﾟﾛｾｽで実行 - C#ATIA 呼び出すだけではなく、戻り値も取得できるものか? 確認して いなかったので前回のｺｰﾄﾞを修正し、ﾃｽﾄすることにしました。 'vba using-'KCL0.09' Sub CATMain() '*** VBE準備 *** Dim VbPj…
KCLには言語判定の関数 "GetLanguage" 関数を入れているのですが、 最近になって打率が悪いことに気が付きました。 判定できない原因の一つが、ﾏｸﾛ自身をｲﾝﾌﾟﾛｾｽで実行した際に ｽﾃｰﾀｽﾊﾞｰの文字を取得する前に、判定しているような気がしています。その為、ｲﾝ…
こちらの続きです。 2D曲線の折れ線化 - ｽﾌﾟﾗｲﾝ - C#ATIA 2DCADであれば比較的、重複線削除の機能を持ったものもあると思います。 AutoCADであればこんな機能です。 OVERKILL[重複オブジェクト削除] (コマンド) | AutoCAD | Autodesk Knowledge Network僕が…
こちらの続きです。 2D曲線の折れ線化 - 円弧 - C#ATIA 前回のもののｽﾌﾟﾗｲﾝ版です。円弧版同様に、3DからﾘﾝｸしたものはNGです。 'vba test_Curve2Polyline using-'KCL0.09' '2Dｽﾌﾟﾗｲﾝの折れ線化 Option Explicit '*** 設定 *** Private Const m_PolyTol = 0.…
過去に作った2Dの重複線削除ﾏｸﾛを修正して、再度Upする意欲が 出て来たので、しばらくはこれに取り組みたいと思っています。昔のｺｰﾄﾞに4分木を適用するのが結構面倒な事になりそうな為、 ほぼ作り直しです。 当時、重複線を判断する際、直線・円弧は何となく…
こちらの続きです。 単独な3D曲線の取得する1 - C#ATIA 前回は総当りの非常に効率の悪い物でしたが、線形8分木による ｽｸﾘｰﾆﾝｸﾞ処理を利用し単独な3D曲線を検索するように修正しました。まずはCATMainを持つ標準ﾓｼﾞｭｰﾙ "FindSingle3DCurve.bas" です。 'vba F…
