C#ATIA

↑タイトル詐欺 主にFusion360API 偶にCATIA V5 VBA(絶賛ネタ切れ中)

KCL

ライセンス無しでStepをエクスポートする

コンセプト的には、こちらの2個を足して2で割ったようなものです。 ライセンス無しでSTLをCATIAに取り込む3(STLだけじゃない) - C#ATIA D&DでStep<->Iges相互変換するVBScript - C#ATIA えー経緯から申し上げると、弊社は予算の都合上、長年StepとParaSolid の受…

DrawのテーブルをCSVファイルとしてエクスポートする

久々にCATIAです。DrawのテーブルをCSVファイルとしてエクスポートするを、以前は作って いたのですが、あまりに使わないので紛失しました・・・。 仕方が無い為、急遽作成。こんな感じのテーブルが有ります。 これを、こんな感じで 実際は、Excelに取り込み…

全ての寸法に番号バルーンを付ける4

こちらの続きです。 全ての寸法に番号バルーンを付ける3 - C#ATIAもう一つ、大きな機能を追加したかったので実装しました。 実務としては、バルーンを配置して図面を作成するだけではなく、 このバルーンの番号と寸法をExcelに書き出しています。 想像通り、…

全ての寸法に番号バルーンを付ける3

こちらの続きです。 全ての寸法に番号バルーンを付ける2 - C#ATIA 時間がかかりましたね・・・。前回の物を実行するとこんな感じです。 確かに寸法上にバルーンが配置されています。 しかし、バルーンのテキスト部分が、全て同じような右上方向ですよね? こ…

全ての寸法に番号バルーンを付ける2

こちらの続きです。 全ての寸法に番号バルーンを付ける1 - C#ATIA 取りあえず試すことが出来る状態となりましたが、まだまだ・・・。 個人的な用途として、こんな感じの参照寸法にはバルーンを作りたく 無いです。えぇ作りたくないんです。寸法を参照寸法に…

全ての寸法に番号バルーンを付ける1

CATIA V5です。 先日、絶対座標での寸法値位置の取得が出来ました。 Drawの寸法値に四角を描く - C#ATIAこれを元に連番となる番号バルーンを作ります。 ・・・バルーンはDrawingTextオブジェクトなのですが、 DrawingTextsオブジェクトにはバルーンを作る為…

肉マシマシ

食べ物のお話じゃなくて、CATIAです。 左側の物を加工しようと思った際、右の半透明の形状の材料を 用意するとします。 (ケミウッドで、直方体を積み重ねた形状です・・接着剤で) 材料を用意するサイズとしては、半透明の形状で良いのですが、 実際にCAMで…

PartからDrawを作成する

CATIA V5です。 ちょっと勘違いしたのですが、作ってしまったので 残しておく事にします。アクティブなPartからDrawを作るだけです。 'vba using-'KCL0.12' Option Explicit Sub CATMain() 'ドキュメントのチェック If Not KCL.CanExecute("PartDocument") Then Exit …

対称部品の図面を描く1

業務で対称部品の図面を描くことになったのですが・・・面倒。 何か楽な方法ないものか? と思いLineのオープンチャットで ご相談しました。 のでご報告。 あぁ、久々のCATIAなお話です。念の為、今まで対称部品の図面を書いたことはあったのですが、 ・2D時…

DMUスペースアナリシスのセッション3

こちらの続きです。 DMUスペースアナリシスのセッション2 - C#ATIA CATIAのマクロです。気が付くのが遅かったのですが、grabcadこちらで問い合わせを 頂いてました。(コメント欄です) Free CAD Designs, Files & 3D Models | The GrabCAD Community Library 一か月程放置…

コピペ "結果として" のボディを作る

タイトルが言葉足らず過ぎますが、久々にCATIAです。マクロ実行後、ESCキーが押されるまで、クリックしたボディを ”結果として” でコピペし、そのボディが子になるようにアセンブルします。言葉じゃ分かりにくいです。 左の状態でボディ2をクリックしたら、…

バルーンの文字の先頭に文字を追加したい

久々にCATIAです。 そう、また面倒になったので。左の様にバルーンで数字だけだと、使う度に数字がカウントアップ してくれるのですが、右の様に数字意外だとカウントアップしないので 困っちゃいます。取りあえず数字だけでバルーンを作りまくり、最後にマ…

図面に斜線を追記する

タイトル異なるのですが、こちらの続きです。 Factory2Dが許してくれない2 (許してもらいました) - C#ATIA加工のお仕事を行う際、現場でちょっとした図面が必要なのですが、 類似品だと1から図面を書くのが面倒です。 その為、リンクの差し替え等で済ませて…

ビューを新規に作成するだけ

え~、Drawのアクティブなシートにビューを新規に作成するだけのマクロです。 たったそれだけです・・・。 'vba addMemoView_ver0.0.1 using-'KCL0.1.0' by Kantoku Option Explicit Private Const VIEWNAME = "Memo" Sub CATMain() ' ドキュメントのチェック If Not …

Draw内のTextをサイズ毎に色を付ける4

こちらの続きです。 Draw内のTextをサイズ毎に色を付ける3 - C#ATIA動画のサンプルコードをgithubにupしました。 GitHub - kantoku-code/CATIA_V5_drawText_color_change: CATIA_V5 drawingText_color_change sampleあまりに使わない気がするので、コードを…

ProductなMinimumBoxを作成する

こちらで”MinimumBoxのProduct版を”とのコメントを頂きました。 今更ながら、ボディからMinimumBoxを作成する(Sketch&Pad) - C#ATIA ナカナカ時間が取れなかったのですが、そこそこのものが出来たので こちらにUpしております。 GitHub - kantoku-code/CATIA…

ビューの位置を数値的に移動する

また、下らないものを作りました。CATIAのDrawでビューの位置をきっちりと決めたいんです! テーブルだけが入っているビューが複数あり、きっちり揃えたいんです!! 'vba Draw_Draw_MoveView_ver0.0.1 using-'KCL0.0.12' by Kantoku 'ControlTipText:選択し…

形状セット内の点の名前をDrawに配置する

タイトル異なりますが、実質こちらの続きです。 Drawで連番の文字を作る - C#ATIA先日作ったものが、やっぱり使い勝手が悪いです。 正直な所、使いたい場面はこんな感じです。 形状セット内に "平面上" で作成された大量の点があり、 この点の名前のテキスト…

Drawで連番の文字を作る

CATIAネタの度に "久々" って書いちゃうのですが、久々にCATIAのマクロです。Drawの作業していると、異様に連番の文字が必要になるのですが、 世の中の皆様はどの様に対処しているのでしょうか?相変わらず突貫で作りました。必要だったため。 'vba Draw_RenB…

手抜きマクロ起動用メニュー4

こちらの続きです。 手抜きマクロ起動用メニュー3 - C#ATIAGrabCADにUpしていましたが、管理が出来ない為Githubに 移動しました。 GitHub - kantoku-code/CATIA_V5_SimpleMacroMenu: Form buttons for calling macros created for each module are created dynamica…

PartNumberをファイル名に書き換える

久々のCATIAなのですが、ちょっと残念な奴です。Productの際、ぶら下がったPartNumberをファイル名に書き換える と言う、今さら感の強いやつです。 'vba Assy_ProductReNamem_ver0.0.1 using-'KCL0.1.0' by Kantoku Option Explicit Private mFSO As Object …

KCLのソースコードをGithubに移行しました

こちらでソースコードを管理していたのですが、 非常に個人的なCATVBA用ライブラリ - C#ATIA Githubで管理することにしました。 GitHub - kantoku-code/KCL: Library for personal CATVBA (CATIA macro)ついでに、Ver0.1.0としており破壊的な変更です。 Ver0.0.x…

指定した要素を新たなPartにコピペして保存

久々のCATIAのマクロです。アクティブなPartファイル上で指定した要素を、新たなPartに ”結果として” で コピペし保存します。 'vba NewPart_CopyAndPasteResult using-'KCL0.0.13' by Kantoku '指定した要素を新たなPartファイルに"結果として"でコピペする…

ディテールシートの未使用のビューを削除

図面を作成する際、面倒なので新規のDrawファイルからでは無くて 他のファイルを流用して作りますよね?(・・・違うかな) 最大の理由はカタログから呼び出した際、分離してディテールシートに 残しているのですが、再度同じものをカタログから呼び出すのが…

Drawビューの原点を変更する1

3Dを元に2Dを作成する際、単に平面を指定すると3Dの原点が 2Dの各ビューの原点になりますが、任意の座標系を2Dの原点としたい場合 座標系を選択した上で平面を指定すればOKですよね? (言葉では表現しにくいですね)こんな3Dデータだとします。 オレンジ色…

2D属性リンクを扱いたい8

こちらの続きです。 2D属性リンクを扱いたい7 - C#ATIAこちらの「GetLinksInfo.bas」でリンク情報が手に入ったので、 セルのオブジェクト名を書き込むのをやめて、リンク情報を書き込む ことにします。 ファイル間リンクの取得9 - C#ATIA 'vba CheckAttributeLink V…

ファイル間リンクの取得9

こちらの続きです。 ファイル間リンクの取得8 - C#ATIAここがゴールでは無いのですが、ファイル間リンク情報をVBAで取得出来るようになりました。 こちらは、リンク情報を取得するだけのものです。 WinAPIを利用している為、標準モジュールで作成してください。 'vba GetLinksInfo…

2D属性リンクを扱いたい7

こちらの 2D属性リンクを扱いたい6 - C#ATIAですが、内容的にはこちらを変更したものです。 2D属性リンクを扱いたい4 - C#ATIA前回CSVファイルとしてエクスポートしたのですが、 同じレイアウトでセルのオブジェクト名を記載したテーブルを 横に作成した方が…

2D属性リンクを扱いたい6

こちらの続きです。 2D属性リンクを扱いたい5 属性リンク付き座標テーブル - C#ATIA処理が満足出来るレベルまで速くなりました。 'vba AttributeLinkTable Ver0.0.2 using-'KCL0.0.12' by Kantoku '属性リンク付き座標テーブル-平面上の点のみ対応 'ver0.0.1:完成 …

DrawingTableのSetCellObjectメソッド機能していない

このメソッドです。 r1 DrawingTable (Object)既存のテキストをテーブルのセルに突っ込んでしまいたいのですが、 エラーになります。こんなコードを作りました。 'vba エラーになります using kcl Option Explicit Sub CATMain() Dim dDoc As DrawingDocumen…