CATIA CAAとは何か？CATIAをカスタマイズしたい！

Component Application Architecture。CATIA V5環境に独自のアプリケーションを構築できるオープンアーキテクチャ・フレームワークのことらしい。（Ｃ++言語）

では具体的なソースコードの例を示そう。

まずは文法等から。

https://www.maruf.ca/files/caadoc/CAADocTechArticles/CAADocCppCodingRules.htm

C++ – CATIA-CAA CATKeyboardEvent

CAA プログラマーは世界に数人しかいないことは知っていますが、とにかく試してみます…

キーボードイベントを機能させることができません。妥当に見えるこのコードを見つけましたが、通知は起動されません。

AddAnalyseNotificationCB(CATFrmLayout::GetCurrentLayout()->GetCurrentWindow()->GetViewer(),
                        CATKeyboardEvent::ClassName(),
                        (CATCommandMethod)&PROTrvTreeView::OnKeyboardEvent, NULL);

void PROTrvTreeView::OnKeyboardEvent(CATCommand * ipCmd, CATNotification * ipEvt, CATCommandClientData iobjData) {
    cout<< "KeyboardEvent" <<endl;
}

↑

どうやらエラーとなり、困っているらしい。

まあとりあえずソースコードの例は示されたということで容赦してもらいたい。

GitHubの魔界に潜入

GitHubは魔界だ！

今まで必死になってググっても、ChatGPTに質問しても出てこなかった情報がウジャウジャ出てくる。

ただし、ほとんどが外国語。

日本語で書かれた情報は皆無に等しい。

だから翻訳しなければならない。

なぜ日本のIT業界が遅れているのかというと、その理由はGitHubの魔界を探索すれば良く分かるであろう。

罪日バカチョンチャンコロ売国奴産業スパイが特許だの著作権だの企業秘密だのほざいてひた隠しにし、意図的に間違ったことを書籍として出版する。

仕事では新人教育を軽視し、未経験者・転職回数の多い者、中高年を徹底的に拒絶し、排除し、採用しない。

これじゃあ日本のIT業界のレベルがベトナムや北朝鮮といった極貧発展途上国の足元にすら及ばないのも当たり前だ。

以下の情報も本当かどうかはあやしい。

とりあえずCATIAをPythonで自動化する例が出ていたので、本当かどうかは別として、とりあえず転載しておく。

他にはAutoCADのプラグインをC#で作ったりしているのもあった。

GitHubの検索ボックスCATIAやAutoCADなどのキーワードを入れれば出てくる。

https://github.com/robertpardillo/rice#installing-getting-started

Catia を制御するための Python API

CATIA V5を使用して3Dモデルの作成を簡単に自動化するためのAPIです。RICE は、ソリッドとサーフェスを操作するためのいくつかの操作を実装します。

インストール

はじめに

ライブラリのインストール: src フォルダーをダウンロードし、シェル経由でインストールします。

python setup.py

それからインポートして、

from Rice.application import Application

ライブラリのコピー: src フォルダーをダウンロードし、プロジェクトのルート フォルダーにコピーします。 次に、通常のモジュールと同様にインポートします。

from Rice.application import Application

(例)キューブ

from Rice.application import Application

import os

# Initializing connection with Catia

app = Application()

# Get created parts

parts = app.get_parts()

part = parts[0]

# Get created bodies

body = part.get_bodies()[0]

# Add a sketch on XY plane

sketch = body.add_sketch('xy')

# Add a close path to sketch

sketch.close_path([[0,0],[50,0],[50,50],[0,50]])

# Generating "Pad" operation with "sketch" and 50 mm height

pad = body.pad(sketch, 50)

# Save part, name.CatPART

part.save(os.path.join(os.path.abspath(''),'name'))

コンプレッサーブレード

from Rice.application import Application

import os import pickle

# Getting blade geometry

f = open('blade_data', 'rb') blade_data = pickle.load(f) args=blade_data

# Initializing connection with Catia

app = Application()

# Get created parts

parts = app.get_parts()

part = parts[0]

# Get created bodies

body = part.get_bodies()[0]

# Formatting data

list_profiles_up = [args[i]['profile_UP']

for i in range(len(args)-1)] list_profiles_down = [args[i]['profile_DOWN']

for i in range(len(args)-1)] spline_extrados = list() spline_intrados = list()

list_z = [args[i]['r']

for i in range(len(args)-1)]

for i, n, j in zip(list_profiles_up, list_profiles_down, list_z):

# Creating plane

plane = part.plane('Offset from plane', 'XY', j * 1000)

# Adding sketch on "plane"

sketch = body.add_sketch(plane)

# Adding 2D spline to "sketch"

spline = sketch.spline2D([[p[0] * 1000, p[1] * 1000] for p in i]) spline_extrados.append(spline)

# Adding sketch on "plane"

sketch2 = body.add_sketch(plane)

# Adding 2D spline to "sketch2"

spline2 = sketch2.spline2D([[i[0][0]*1000, i[0][1]*1000]]+[[p[0] * 1000, p[1] * 1000] for p in n]+[[i[-1][0]*1000, i[-1][1]*1000]]) spline_intrados.append(spline2)

# Creating leading edge spline

spline_delante = part.spline([[args[i]['profile_UP'][0][0]*1000, args[i]['profile_UP'][0][1]*1000, args[i]['r']*1000]

for i in range(len(args)-1)])

# Creating trailing edge spline spline_detas = part.spline([[args[i]['profile_UP'][-1][0]*1000, args[i]['profile_UP'][-1][1]*1000, args[i]['r']*1000]

for i in range(len(args)-1)]) fill = list() for i in range(len(spline_intrados)-1):

objs = list() objs.append(spline_delante) objs.append(spline_intrados[i]) objs.append(spline_detas) objs.append(spline_intrados[i+1])

# Creating "fill"

fill.append(part.fill(objs))

objs = list() objs.append(spline_delante) objs.append(spline_extrados[i]) objs.append(spline_detas) objs.append(spline_extrados[i + 1])

# Creating "fill" fill.append(part.fill(objs)) part.update()

# Joining all the created surfaces join = part.join(fill)

part.update()

# Exporting model with "stl" format, test.stl part.export_data(os.path.abspath('')+r' est','stl')

部品設計

本文を追加

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled, a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Adding "Body" to "part". part.add_body()

# Getting created "bodies"

bodies = part.get_bodies()

パッド

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts() part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Add a close path to sketch.

sketch.close_path([[0,0],[50,0],[50,50],[0,50]])

# Creating a "pad" 50 mm height from "sketch".

body.pad(sketch, 50)

ポケット

from Rice.application import Application

# Initializing connection with CATIA app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Add a close path to sketch.

sketch.close_path([[0,0],[50,0],[50,50],[0,50]])

# Creating a "pad" 50 mm height from "sketch".

pad = body.pad(sketch, 50)

# Creating a "sketch" on the upper face of the "pad".

sketch2 = body.add_sketch(pad['up'])

# Adding a circle with centre (25mm,25mm) and radius 10 mm.

sketch2.circle([25,25], 10)

# Creating a pocket from "sketch2".

body.pocket(sketch2,10)

スケッチ 2D ライン

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Creating 2D line, (0,0) start point and (10,10) end point.

sketch.line2D([0,0],[10,10])

アーク

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Creating an arc with (0,0) centre, 20 mm radius and from 0 to 270 degrees.

sketch.arc([0,0],20, 0, 270)

丸

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Creating a (0,0) center and 20mm radius circle sketch.circle([0,0],20)

パスを閉じる

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Creating a close path with a list of points.

sketch.close_path([[0,0],[10,0],[15,7.5],[15,15],[0,15]])

2D スプライン

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Add a spline 2D through a list of points.

sketch.spline2D([[0,0],[10,0],[15,7.5],[15,15],[0,15]])

点による円弧

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY') sketch.arc_by_points([0,0],[10,0],20, 0)

制約

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Generating close path

lines = sketch.close_path([[0,0],[50,0],[50,50],[0,50]])

# Adding a Length constraint to the first line of "lines".

const = sketch.set_constraint(5, lines[0])

# Adding an Angle constraint between the first and the second line of "lines".

const2 = sketch.set_constraint(6, lines[0], lines[1])

形

生成形状設計

塗りつぶし

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Creating spline 2D on "sketch"

sketch.spline2D([[0, 15], [5, 10], [10, 5], [20, 15]])

# Creating 3D lines.

line1 = part.line3D([0, 15, 0], [0, 15, 15])

line2 = part.line3D([20, 15, 0], [20, 15, 15])

line3 = part.line3D([0, 15, 15], [20, 15, 15])

# Join with a surface "line1", "sketch", "line2" and "line3".

part.fill([line1, sketch, line2, line3])

加入

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Add a "sketch" on "XY" plane.

sketch = body.add_sketch('XY')

# Creating spline 2D on "sketch"

sketch.spline2D([[0, 15], [5, 10], [10, 5], [20, 15]])

# Creating 3D lines.

line1 = part.line3D([0, 15, 0], [0, 15, 15])

line2 = part.line3D([20, 15, 0], [20, 15, 15])

line3 = part.line3D([0, 15, 15], [20, 15, 15])

# Join with a surface "line1", "sketch", "line2" and "line3".

fill1 = part.fill([line1, sketch, line2, line3])

# Creating sketch on 'XY' plane

sketch2 = body.add_sketch('xy')

# Creating spline 2D on "sketch2"

sketch2.spline2D([[0, 15], [5, 20], [10, 25], [20, 15]])

# Join with a surface "line1", "sketch2", "line2" and "line3".

fill2 = part.fill([line1, sketch2, line2, line3])

# Joining surface "fill1" and "fill2".

part.join([fill1, fill2])

一般

平面の作成

平面からのオフセット

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Creating 20 mm offset plane from 'XY' plane.

plane = part.plane('Offset from plane', 'xy', 20)

やるべきこと

3Dライン

ライン

ポイントツーポイント

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Creating 3D line.

part.line3D([0,0,0], [10,20,50])

やるべきこと

3D ポイント

コードからのポイント

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Creating 3D point.

part.point3D([0,0,0])

やるべきこと

3D スプライン

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Creating 3D spline.

part.spline([[0,0,0], [5,5,7], [10,5,15]])

パラメータの作成

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Creating a real parameter called "Parameter1" with 50m initial value

param = part.create_param('real', "Parameter1", 50)

リレーションの作成

方式

from Rice.application import Application

# Initializing connection with CATIA

app = Application()

# Getting "parts" created. Once CATIA connection is enabled a part is created automatically.

parts = app.get_parts()

part = parts[0]

# Getting "bodies". PartBody body is automatically created.

body, = part.get_bodies()

# Creating 20 mm offset plane from 'XY' plane.

plane = part.plane('Offset from plane', 'xy', 20)

# Creating a real parameter called "Parameter1" with 0.03m initial value

param = part.create_param('real', "Parameter1", 0.03)

# Setting up a formula to set plane offset equal to two times the "Parameter1" value.

part.create_formula('formula1', plane.offset(), '{}*2'.format(param.name))

やるべきこと

保存

from Rice.application import Application

import os

# Initializing connection with Catia

app = Application()

# Get created parts

parts = app.get_parts()

part = parts[0]

# Get created bodies

body = part.get_bodies()[0]

# Add a sketch on XY plane

sketch = body.add_sketch('xy')

# Add a close path to sketch

sketch.close_path([[0,0],[50,0],[50,50],[0,50]])

# Generating "Pad" operation with "sketch" and 50 mm height

pad = body.pad(sketch, 50)

# Save part, name.CatPART

part.save(os.path.join(os.path.abspath(''),'name'))

データのエクスポート

from Rice.application import Application

import os

# Initializing connection with Catia

app = Application()

# Get created parts

parts = app.get_parts()

part = parts[0]

# Get created bodies

body = part.get_bodies()[0]

# Add a sketch on XY plane

sketch = body.add_sketch('xy')

# Add a close path to sketch

sketch.close_path([[0,0],[50,0],[50,50],[0,50]])

# Generating "Pad" operation with "sketch" and 50 mm height

pad = body.pad(sketch, 50)

# Save part as "stl" format, name.stl

part.export_data(os.path.join(os.path.abspath(''),'name'),"stl")

CATIAのプラグイン開発はVBAを使えだと？

CATIA Plugin: VBA Development

俺からの質問。

AutoCADのプラグインはC#言語を使って開発できることが分かりました。ではCATIAのプラグインは何言語を使ってどうやって開発すれば良いのでしょうか？また、マニュアルや書籍があったら教えて下さい。

ChatGPT

CATIAのプラグインを開発するためには、CATIAの公式な開発環境であるCATIA V5 Automation APIを使用します。このAPIは、Visual Basic for Applications (VBA)を使用して開発することができます。VBAは、Microsoft Office製品（Excel、Word、Accessなど）で一般的に使用されているマクロ開発言語です。

CATIAのプラグイン開発に関する詳細な情報やチュートリアルを提供する公式のマニュアルや書籍はありますが、オンラインのリソースが主な情報源となる場合があります。以下にいくつかの参考資料を示します。

CATIA V5 Automation API公式ドキュメント: CATIAの公式ドキュメントには、APIのリファレンスや開発ガイドなどが含まれています。CATIAのバージョンに応じた正確なドキュメントを探してください。

CATIA公式フォーラム: Dassault Systèmes社が提供する公式フォーラムには、CATIAの開発に関する情報や質問に対する回答が掲載されています。フォーラムを検索して、開発者コミュニティのアドバイスやヒントを入手できます。

オンラインチュートリアルやブログ: CATIAのプラグイン開発に関するチュートリアルやブログ記事は、オンラインで利用可能です。GoogleやYouTubeなどの検索エンジンを使用して、CATIA V5のプラグイン開発に関するチュートリアルを見つけることができます。

以上がCATIAのプラグイン開発に役立つ情報源です。CATIAのバージョンや特定の開発目標に応じて、具体的な情報を見つけることが重要です。

VBA？本当か？

害人の書いた某糞本の通りにやってみたが、全く動かなかったのだが何か？

PDF化したヤツをまるっと訳すしかないのか？マジでめんどくせーんだがorz

P.S.

GitHubに池www

Python、VBA、C#なんでもござれの世界だ。

もはやChatGPTや本はお役御免になるだろう。

CATIAのマクロまたはVBA、VBSでPythonを呼び出す方法は？

CATIAのマクロまたはVBA、VBSでPythonを呼び出す方法は？

CATIAのマクロまたはVBA、VBSでPythonを呼び出すには、次の手順に従います。

Pythonをインストールします。

Pythonインタープリターのパスを環境変数に追加します。

CATIAマクロまたはVBA、VBSコードで、次のコマンドを使用してPythonインタープリターを起動します。

CreateObject("WScript.Shell").Run "python.exe"

コードは慎重に使用してください。詳細

Pythonインタープリターが起動したら、次のコマンドを使用してPythonコードを実行できます。

python your_python_code.py

詳細

たとえば、次のコードは「hello_world.py」という名前のPythonファイルを作成し、そのファイルを実行します。

CreateObject("WScript.Shell").Run "python.exe" "hello_world.py"

詳細

「hello_world.py」ファイルの内容は次のとおりです。

print("Hello, world!")

詳細

これにより、次の出力が表示されます。

Hello, world!

詳細

ここにメッセージを入力してください

Bard で生成される情報は不正確または不適切な場合がありますが、Google の見解を述べるものではありません。

CATIAカスタムツールバーの作成

CATIAカスタムツールバーの作成

CATIAでカスタムツールバーを作成する手順は以下の通りです。

ツールバーを作成する

ツールバーを作成するには、以下の手順を実行します。

ツールバーコマンドエディターを開きます。

「新規ツールバー」を選択します。

ツールバーに名前を付けます。

ボタンを追加する

作成したツールバーにボタンを追加するには、以下の手順を実行します。

ツールバーコマンドエディターで、ツールバーを選択します。

「新規コマンド」を選択し、ボタンに名前を付けます。

ボタンに使用するコマンドを選択します。コマンドを選択するには、CATIAのコマンドツールバーからドラッグ＆ドロップすることができます。

ボタンにアイコンを設定します。アイコンは、CATIAの既存のアイコンを使用するか、独自のアイコンを作成することができます。

ボタンの位置を調整します。

カスタムツールバーを保存する

作成したカスタムツールバーを保存するには、以下の手順を実行します。

ツールバーコマンドエディターで、ツールバーを選択します。

「ファイル」→「保存」を選択します。

ツールバーの保存場所を指定し、ツールバーを保存します。

カスタムツールバーを表示する

作成したカスタムツールバーを表示するには、以下の手順を実行します。

CATIAのメニューバーから、「ビュー」→「ツールバー」を選択します。

「ツールバー」ウィンドウで、作成したカスタムツールバーを選択します。

選択したカスタムツールバーが表示されます。

以上の手順で、CATIAでカスタムツールバーを作成し、表示することができます。

CATIAのアドオンの作り方

Q.｢CATIAのアドオンの作り方の例を教えてチョンマゲ｣

A.｢CATIAのアドオンを作るための一般的な手順は以下の通りです。

CATIAのAPIを学ぶ

CATIAのAPIには、CATIAを制御するためのオブジェクト、メソッド、プロパティなどが含まれています。APIの使用方法について学び、CATIAをプログラミングで制御するために必要なスキルを身につける必要があります。

開発環境をセットアップする

CATIAのアドオンを開発するために、適切な開発環境が必要です。CATIAのAPIをサポートする開発環境として、Visual StudioやEclipseなどがあります。

アドオンの機能を定義する

アドオンの機能を定義するために、どのようなユーザーインターフェースを作成するか、どのようなCATIAオブジェクトを制御するかを決定する必要があります。

コードを実装する

定義した機能を実現するために、選択された開発環境でコードを実装します。CATIA APIを使用して、必要なCATIAオブジェクトを作成し、制御するコードを書きます。

アドオンをビルドする

コードをビルドし、アドオンを作成します。これにより、アドオンをCATIAにインストールできる形式に変換されます。

アドオンをテストする

作成したアドオンをテストして、動作が正しいことを確認します。

以下は、CATIAのアドオンの例です。

例1: カスタムツールバーの作成

ユーザーが使用するカスタムツールバーを作成し、必要なCATIAコマンドを含めることができます。

例2: パラメトリックモデリングの自動化

CATIAのAPIを使用して、パラメトリックモデリングを自動化するアドオンを作成することができます。このアドオンは、モデルの設計変更に応じて、関連する図面や部品の更新を自動的に行うことができます。

例3: CADデータの変換

CATIAのAPIを使用して、CATIAファイルを他のCADファイル形式に変換するアドオンを作成することができます。このアドオンは、異なるCADプログラムを使用する他のエンジニアとのデータ共有を容易にすることができます。｣

をい、本当だろうな？

CATIAのマクロで本保雅基地外

Sub CATMain()
Dim Input As String
Input = "本保"
Input = InputBox ("Please enter your last name.","Enter Last Name",Input)
End Sub

CATIAのマクロで本保雅基地外と入力するボックスを表示させてみたWWW

CATIAで直方体を描くマクロを試したら・・・

CATIA V5 Macro Programming with Visual Basic Script

という本に書かれてある通りに打ち込んでみたらエラーとなった。

コンパイルエラー。ステートメントが不正・・・だとよ。

Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument.Part
Dim Wzk3D As HybridShapeFactory
Set Wzk3D = MyPart.HybridShapeFactory
Dim HBody As HybridBody
Set HBody = MyPart.HybridBodies.Item ("Join")
Dim F1, F2, F3, As AnyObject
Set F1 = HBody.HybridShapes.Item("Extrude.1")
Set F2 = HBody.HybridShapes.Item("Extrude.2")
Set F3 = HBody.HybridShapes.Item("Extrude.3")
Dim Ref1, Ref2, Ref3 As Reference
Set Ref1 = MyPart.CreateReferenceFromObject (F1)
Set Ref2 = MyPart.CreateReferenceFromObject (F2)
Set Ref3 = MyPart.CreateReferenceFromObject (F3)
Dim myJoin As HybridShapeAssemble
Set myJoin = Wzk3D.AddNewJoin (Ref1, Ref2)
Hbody.AppendHybridShape myJoin
MyPart.Update

アマゾンのkindleで12000円で買った。

バカ害人めが！デタラメばっか書きやがって。

P.S.

ChatGPTでは次のように修正すれば良いとのこと。

本当か？

このVBAコードの場合、コンパイルエラーが発生する原因としては、宣言された変数の型が不正確であることが考えられます。

具体的には、F1、F2、F3、およびAsの変数がAs AnyObjectと宣言されていますが、これらの変数にはそれぞれ特定のHybridShapeオブジェクトが割り当てられることが期待されます。そのため、これらの変数はHybridShape型として宣言する必要があります。

以下は修正されたコードです：

Dim MyPart As Part

Set MyPart = CATIA.ActiveDocument.Part

Dim Wzk3D As HybridShapeFactory

Set Wzk3D = MyPart.HybridShapeFactory

Dim HBody As HybridBody

Set HBody = MyPart.HybridBodies.Item("Join")

Dim F1 As HybridShape, F2 As HybridShape, F3 As HybridShape

Dim Ref1 As Reference, Ref2 As Reference, Ref3 As Reference

Set F1 = HBody.HybridShapes.Item("Extrude.1")

Set F2 = HBody.HybridShapes.Item("Extrude.2")

Set F3 = HBody.HybridShapes.Item("Extrude.3")

Set Ref1 = MyPart.CreateReferenceFromObject(F1)

Set Ref2 = MyPart.CreateReferenceFromObject(F2)

Set Ref3 = MyPart.CreateReferenceFromObject(F3)

Dim myJoin As HybridShapeAssemble

Set myJoin = Wzk3D.AddNewJoin(Ref1, Ref2)

HBody.AppendHybridShape myJoin

MyPart.Update

変数の型を修正することで、コンパイルエラーが解決されるはずです。

立体モデリング（押し出し＆くり抜き）練習中

ジャム・ティコー著

小尾幹男訳

自分で学べる設計者向けCATIA　V5R13

めざせ！CATIA認定資格上巻

の４－２２までやっと終わった。（所要時間約1時間）

省略が多く、詳しく書かれていないので、エラーが頻発してなかなか先に進めず、かなり苦しんだ。

右上のYZ平面ビューのモデリングで、上の円弧の入力でつまづき、

押し出しで、補助エレメントがどうのこうのというエラーに悩まされ、

くり抜きで３つの円を作って接線を作って、余計なところをトリムし、

実線に変換してからどの部分をくり抜くかで思い通りにいかず、苦しんだ。（左下のXY平面ビュー）

次は真ん中に段付きバカ穴のついたボスを押し出しくり抜き加工で生成して課題は終わりとなる。

この課題をやるだけで上巻の半分以上まで進めるようになっている。

色んな操作が含まれていて密度の濃い良い課題だ。

これを何度も繰り返して暗記すれば相当の実力が付くと思われる。

CATIAを使って手描きで曲線を描く方法と描いた曲線を平滑化する自動化VBSプログラム

【Question】CATIAを使って手描きで曲線を描く方法と描いた曲線を平滑化する手法は？

CATIAでは、手描きで曲線を描くことができます。具体的な手順は以下の通りです。

3Dスケッチャーを開き、作成したい平面を選択します。
スケッチャーのツールバーから「手描き曲線」を選択します。
マウスで曲線を描きます。

描画する際には、ベジェ曲線や曲率半径を調整するための制御点を追加することができます。
曲線が完成したら、右クリックして「完了」を選択します。
手描きで描かれた曲線は、CATIAのスケッチャー上で編集することができます。

また、スケッチャー内で平滑化ツールを使用することで、曲線の平滑化を行うことができます。

平滑化ツールは、「平滑化」ボタンをクリックしてアクセスできます。

平滑化ツールには、平均化や減衰などのオプションがあり、曲線をより滑らかに調整することができます。

【Question】CATIAで任意の曲線を自動で描き、平滑化するVBSプログラムを以下の手順で作成してください。

以下は、CATIAで任意の曲線を自動で描き、平滑化するVBAプログラムの例です。

CATIA V5R21で動作確認を行っています。

CATIAを起動し、VBAエディタを開きます。
「ツール」-「参照設定」をクリックし、「CATIA V5 Type Library」にチェックを入れてOKをクリックします。
新しいモジュールを作成し、以下のコードを入力します。
Sub DrawAndSmoothCurve()
    Dim curPart As Part
    Set curPart = CATIA.ActiveDocument.Part
    
    ' 曲線を作成
    Dim curSketch As Sketch
    Set curSketch = curPart.Sketches.Add(curPart.OriginElements.PlaneXY)
    Dim curCurve As Curve2D
    Set curCurve = curSketch.Factory2D.CreateCurve(0, 0, 10, 10, 20, 20)
    
    ' 曲線を平滑化
    Dim curSmoothCurve As Curve2D
    Set curSmoothCurve = curCurve.Smooth(curPart, 0.2)
    
    ' 3D曲線を作成
    Dim cur3DCurve As Curve
    Set cur3DCurve = curPart.HybridShapeFactory.AddNewCurveFromGeometricalRepresentation(curSmoothCurve)
    
    ' パラメータを設定
    cur3DCurve.SetClosing(CatVisNo)
    cur3DCurve.SetStartPointMode CatVisSmooth
    cur3DCurve.SetEndPointMode CatVisSmooth
    
    curPart.Update
    
    MsgBox "曲線が描かれ、平滑化されました。"
End Sub

このプログラムでは、曲線を自動的に描画し、平滑化します。

具体的には、最初に現在のパーツを取得し、スケッチを追加し、そこに曲線を作成します。

次に、Smoothメソッドを使用して曲線を平滑化し、

AddNewCurveFromGeometricalRepresentationメソッドを使用して平滑化された曲線を3D曲線に変換します。

最後に、必要なパラメータを設定し、Updateメソッドを使用して変更を保存します。
このプログラムを実行するには、VBAエディタからDrawAndSmoothCurveサブルーチンを実行するか、

Excelなどの外部アプリケーションでマクロとして呼び出すことができます。
注意点として、このプログラムは曲線を固定の座標値で作成しています。

必要に応じて、座標値を変更するか、ランダムな座標値を生成する関数を作成して、自動的に曲←バックレｗｗｗ

１．始点の座標の入力を求めるウィジェットを表示させる。
２．マウスを始点から任意の位置まで移動させ、終点の座標を取得する。
３．マウスの軌跡をワークベンチに表示させる。
４．最小二乗法を用いて再構築し、ワークベンチに再表示する。

以下は、CATIAで任意の曲線を自動で描き、平滑化するVBSプログラムの例です。手順に従って説明します。

１．始点の座標の入力を求めるウィジェットを表示させる。

Dim startPoint(2)
Dim startPointInput as Variant
startPointInput = CATIA.ActiveDocument.Selection.Inputbox("Please select the starting point of the curve", "Select a Point", 0, 0, , True)
If IsEmpty(startPointInput) Then
    Exit Sub ' もしキャンセルされたら処理を終了する
Else
    startPoint(0) = startPointInput(0).Value
    startPoint(1) = startPointInput(1).Value
    startPoint(2) = startPointInput(2).Value
End If

上記のコードは、CATIAの選択ウィジェットを使って、始点の座標をユーザーに入力してもらうようにします。

ウィジェットは、選択したいオブジェクトの種類を指定して、簡単に作成することができます。

選択された座標は、startPointという配列に格納されます。

２．マウスを始点から任意の位置まで移動させ、終点の座標を取得する。

Dim endPoint(2)
Dim endPointInput As Variant
Set endPointInput = CATIA.ActiveWindow.Selection
endPointInput.Clear ' 一度選択を解除する
MsgBox "Please draw the curve by moving your mouse and clicking when you're done." ' カーブを描くようにメッセージを表示
Set endPointInput = CATIA.ActiveWindow.Selection
If endPointInput.Count = 0 Then
    Exit Sub ' もしキャンセルされたら処理を終了する
Else
    endPoint(0) = endPointInput.Item(1).Value.X
    endPoint(1) = endPointInput.Item(1).Value.Y
    endPoint(2) = endPointInput.Item(1).Value.Z
End If

上記のコードは、CATIAの選択ウィジェットを使って、マウスで描いたカーブの終点の座標を取得します。

選択ウィジェットを使うことで、マウスで描いたカーブを選択することができます。

選択された座標は、endPointという配列に格納されます。

３．マウスの軌跡をワークベンチに表示させる。

Dim partDocument As PartDocument
Set partDocument = CATIA.ActiveDocument
Dim sketch As Sketch
Set sketch = partDocument.Part.Sketches.AddWithAutoConstraint(False)
Dim factory2D As Factory2D
Set factory2D = sketch.OpenEdition()
Dim curve2D As Curve2D
Set curve2D = factory2D.CreateLine(startPoint(0), startPoint(1), endPoint(0), endPoint(1

VBAの終了条件である「ESCキーが押された場合」を判定し、プログラムを終了する。

以上の手順をVBSで実装するためには、以下のようなプログラムが考えられます。

' CATIAオブジェクトの取得
Set CATIA = GetObject(,"CATIA.Application")

' ドキュメントを取得
Set PartDoc = CATIA.ActiveDocument

' スケッチャーを取得
Set Sketcher = PartDoc.Sketch

' スケッチを生成
Sketcher1.OpenEdition

' 初期化
Dim StartX, StartY, EndX, EndY
StartX = 0
StartY = 0
EndX = 0
EndY = 0
Dim IsStarted
IsStarted = False

' 始点の座標の入力を求める
StartX = InputBox("始点のX座標を入力してください")
StartY = InputBox("始点のY座標を入力してください")

' マウスの移動イベントを登録
Dim SketchMouse
Set SketchMouse = Sketcher1.Mouse
SketchMouse.StartTracking

' メインループ
Do While True
    ' マウスの状態を取得
    Dim MouseState
    MouseState = SketchMouse.GetState

    ' ESCキーが押された場合は終了
    If MouseState = catCancel Then
        Exit Do
    End If

    ' マウスの位置を取得
    Dim CurrentX, CurrentY
    SketchMouse.GetXY CurrentX, CurrentY

    ' 始点が設定されている場合
    If IsStarted Then
        ' マウスの軌跡を描画
        Sketcher1.SetTemporaryAxis CurrentX, CurrentY, 0, EndX, EndY, 0

        ' 終点の座標を更新
        EndX = CurrentX
        EndY = CurrentY
    End If

    ' 左クリックが押された場合
    If MouseState = catMouseSelect Then
        ' 始点が未設定の場合は設定する
        If Not IsStarted Then
            IsStarted = True
            EndX = CurrentX
            EndY = CurrentY
        Else
            ' 曲線の作成
            Dim curve
            Set curve = Sketcher1.CreateCurve(StartX, StartY, 0, EndX, EndY, 0)

            ' 平滑化
            curve.Smooth

            ' 再描画
            Sketcher1.Clear
            Sketcher1.CloseEdition
            Sketcher1.DisplayGrid = False
            Sketcher1.ModifyMode = True
            Sketcher1.OpenEdition
            Set curve = Sketcher1.CreateCurve(StartX, StartY, 0, EndX, EndY, 0)
            curve.Smooth
            Sketcher1.CloseEdition
            Exit Do
        End If
    End If
Loop

' スケッチを終了
Sketcher1.Clear
Sketcher1.CloseEdition

この生成された曲線は、多くの場合、滑らかではありません。

４．そこで、平滑化を行います。平滑化のためには、以下の手順を実行します。

' スプライン曲線生成
Set spline = part.ShapeFactory.AddNewSpline(crvPts)
spline.ComputeDataOnCreation = False
spline.Close = False
spline.GeometricContinuity = catG1
spline.Interpolation = catCubicSpline

' 平滑化
Set smoothingOp = part.ShapeFactory.AddNewSmoothingOperation(spline)
smoothingOp.Type = catSmoothingOperationAutomatic
smoothingOp.Build
Set smoothCurve = smoothingOp.OutElement

ここでは、スプライン曲線を生成し、その後、平滑化を行っています。

catG1は、曲線の幾何学的な連続性を指定するための定数であり、G1連続曲線を生成することを指定しています。

catCubicSplineは、スプライン曲線を生成することを指定しています。

AddNewSmoothingOperationメソッドを使用して、平滑化操作を作成し、

そのタイプをcatSmoothingOperationAutomaticに設定しています。

最後に、Buildメソッドを呼び出して平滑化操作を実行し、結果をOutElementプロパティから取得しています。

結果の表示
平滑化された曲線を表示するには、以下のようにします。

' 曲線の再表示
part.InWorkObject = smoothCurve
part.UpdateObject(smoothCurve)
まず、InWorkObjectプロパティに、平滑化された曲線を設定します。

次に、UpdateObjectメソッドを呼び出して、曲線を再表示します。

以上が、CATIAで任意の曲線を自動で描き、平滑化するVBSプログラムの作成手順になります。

CATIAを使って手描きで曲線を描く方法

｢フリーハンド｣と｢手描き｣は似て非なるもの。

フリーハンドを手描きに変えて質問し直してみた。

CATIAを使って手描きで曲線を描く方法と描いた曲線を平滑化する手法は？

CATIAを使って手描きで曲線を描く場合、以下の手順を実行することができます。

Sketcherワークベンチを開きます。

「ツールバー」から「スケッチプレーン」を選択して、必要に応じてプレーンを作成します。

「描画」ツールバーから「自由曲線」アイコンを選択します。

手描きで曲線を描きます。描画が完了したら、「完了」ボタンをクリックして、スケッチを終了します。

必要に応じて、曲線を編集して形状を調整します。

描いた曲線を平滑化する方法として、以下の手法があります。

スプライン曲線を使用して、曲線を滑らかにすることができます。手描きで描いた曲線を選択し、スプライン曲線を作成するためのオプションを選択します。必要に応じてポイントを調整して、曲線を滑らかにします。

曲線を選択し、曲線のプロパティダイアログボックスで、平滑化オプションを選択することもできます。これにより、曲線が滑らかになります。

これらの手法を使用して、手描きでCATIAで描いた曲線を平滑化することができます。

※「描画」ツールバーから「自由曲線」アイコンを選択します。

という一文が加筆されたようだ。

CATIAを使ってフリーハンドで曲線を描く方法

CATIA: フリーハンドと平滑化

CATIAを使ってフリーハンドで曲線を描く方法と描いた曲線を平滑化する手法は？

CATIAを使ってフリーハンドで曲線を描く場合、以下の手順を実行することができます。

Sketchワークベンチを選択します。

スケッチプレーンを作成します。平面や曲面などを選択し、必要に応じてサイズを調整します。

スケッチツールを使用して、曲線を描画します。フリーハンドツール、2点間のラインツール、曲率半径ツールなどがあります。

必要に応じて、描いた曲線を編集し、サイズや形状を調整します。

描いた曲線を平滑化する方法として、以下の手法があります。

Filletコマンドを使用して、曲線の角を丸くすることができます。Filletedgeワークベンチで曲線を選択し、適切な半径を指定します。

スプライン曲線を使用して、曲線を滑らかにすることができます。スプライン曲線を作成し、必要に応じてポイントを調整して、曲線を滑らかにします。

曲線を選択し、曲線のプロパティダイアログボックスで、平滑化オプションを選択することもできます。これにより、曲線が滑らかになります。

これらの手法を使用して、CATIAで描いた曲線を平滑化することができます。

※曲線を制するものはCATIAを制す！

CATIA自動化VBS作成サービス

 

渡り鳥さん(システムエンジニア)のプロフィール | ココナラ

初めまして、渡り鳥と申します。 普段はCATIA、Excelのマクロ開発をしています。 【CATIA】 CATIAの操作は一通りできますがモデリングはあまり得意ではないです。 ワーク...

ココナラ

P.S.

こいつの記事の以下のサンプルコードを実行してみたらエラーとなって実行できなかった。

 

'Const SIZE_VALUE As Double = 100#

Dim SIZE_VALUE 'As Double

SIZE_VALUE = 100

 

Dim appCATIA 'As INFITF.Application

Set appCATIA = GetObject(, "CATIA.Application")

 

Dim docs 'As INFITF.Documents

Set docs = appCATIA.Documents

 

Dim partDocNew 'As MECMOD.PartDocument

Set partDocNew = docs.Add("Part")

 

Dim partNew 'As MECMOD.Part

Set partNew = partDocNew.Part

 

Dim hbWork 'As MECMOD.HybridBody

Set hbWork = partNew.HybridBodies.Add()

 

Dim hsFactory 'As HybridShapeTypeLib.HybridShapeFactory

Set hsFactory = partNew.HybridShapeFactory

 

Dim dX 'As Double

Dim dY 'As Double

Dim dZ 'As Double

Dim hsPt1 'As HybridShapeTypeLib.HybridShapePointCoord

Dim refPt1 'As INFITF.Reference

dX = (SIZE_VALUE / 2)

dY = (SIZE_VALUE / 2)

dZ = 0

Set hsPt1 = hsFactory.AddNewPointCoord(dX, dY, dZ)

Call hbWork.AppendHybridShape(hsPt1)

Call partNew.UpdateObject(hsPt1)

Set refPt1 = partNew.CreateReferenceFromObject(hsPt1)

Dim hsPt2 'As HybridShapeTypeLib.HybridShapePointCoord

Dim refPt2 'As INFITF.Reference

dX = (SIZE_VALUE / 2) * -1

Set hsPt2 = hsFactory.AddNewPointCoord(dX, dY, dZ)

Call hbWork.AppendHybridShape(hsPt2)

Call partNew.UpdateObject(hsPt2)

Set refPt2 = partNew.CreateReferenceFromObject(hsPt2)

Dim hsPt3 'As HybridShapeTypeLib.HybridShapePointCoord

Dim refPt3 'As INFITF.Reference

dY = (SIZE_VALUE / 2) * -1

Set hsPt3 = hsFactory.AddNewPointCoord(dX, dY, dZ)

Call hbWork.AppendHybridShape(hsPt3)

Call partNew.UpdateObject(hsPt3)

Set refPt3 = partNew.CreateReferenceFromObject(hsPt3)

Dim hsPt4 'As HybridShapeTypeLib.HybridShapePointCoord

Dim refPt4 'As INFITF.Reference

dX = (SIZE_VALUE / 2)

Set hsPt4 = hsFactory.AddNewPointCoord(dX, dY, dZ)

Call hbWork.AppendHybridShape(hsPt4)

Call partNew.UpdateObject(hsPt4)

Set refPt4 = partNew.CreateReferenceFromObject(hsPt4)

 

Dim hsLine1 'As HybridShapeTypeLib.HybridShapeLinePtPt

Dim refLine1 'As INFITF.Reference

Set hsLine1 = hsFactory.AddNewLinePtPt(refPt1, refPt2)

Call hbWork.AppendHybridShape(hsLine1)

Call partNew.UpdateObject(hsLine1)

Set refLine1 = partNew.CreateReferenceFromObject(hsLine1)

Dim hsLine2 'As HybridShapeTypeLib.HybridShapeLinePtPt

Dim refLine2 'As INFITF.Reference

Set hsLine2 = hsFactory.AddNewLinePtPt(refPt2, refPt3)

Call hbWork.AppendHybridShape(hsLine2)

Call partNew.UpdateObject(hsLine2)

Set refLine2 = partNew.CreateReferenceFromObject(hsLine2)

Dim hsLine3 'As HybridShapeTypeLib.HybridShapeLinePtPt

Dim refLine3 'As INFITF.Reference

Set hsLine3 = hsFactory.AddNewLinePtPt(refPt3, refPt4)

Call hbWork.AppendHybridShape(hsLine3)

Call partNew.UpdateObject(hsLine3)

Set refLine3 = partNew.CreateReferenceFromObject(hsLine3)

Dim hsLine4 'As HybridShapeTypeLib.HybridShapeLinePtPt

Dim refLine4 'As INFITF.Reference

Set hsLine4 = hsFactory.AddNewLinePtPt(refPt4, refPt1)

Call hbWork.AppendHybridShape(hsLine4)

Call partNew.UpdateObject(hsLine4)

Set refLine4 = partNew.CreateReferenceFromObject(hsLine4)

 

Dim hsFill 'As HybridShapeTypeLib.HybridShapeFill

Set hsFill = hsFactory.AddNewFill()

Call hsFill.AddBound(refLine1)

Call hsFill.AddBound(refLine2)

Call hsFill.AddBound(refLine3)

Call hsFill.AddBound(refLine4)

Call hbWork.AppendHybridShape(hsFill)

Call partNew.UpdateObject(hsFill)

 

ココナラはダメポｗｗｗ

手書きの曲線を平滑化する方法5選

使えなくなったCATIAを再度購入してインストールし、CATIAの独学を再開した。

サフェースモデリングにおいて、曲線を自由自在に描くという件に関して致命的な問題点が再び思い浮かんだ。

テキストに書かれている方法はフリーハンドではなく、複数の円弧を継ぎ接ぎする方法であった。

こんなやり方では面倒だし、理想の曲線に忠実ではなくなるのではないかと思った。

そこで先日記事した最小ニ乗法が再登場し、それ以外の手法についてもChatGPTを使って調べてみた。

任意の曲線を平滑化する手法には最小ニ乗法、ロバスト最小二乗法などがあります。他にはどんな手法があるか紹介してください。

曲線の平滑化には、以下のような手法があります。

1.ローパスフィルター

時系列データに対して、周波数成分の高いノイズを除去するフィルターです。単純な移動平均フィルターやローパスフィルターや、より複雑なバターワースフィルターなどがあります。

2.カーネル平滑化

カーネル平滑化は、窓関数を用いて、信号を局所的に平滑化する方法です。窓関数には、矩形窓や三角窓、ガウス窓などがあります。

3.フーリエ変換

信号を周波数領域に変換して、周波数成分を取り出し、高周波成分を除去する方法です。高速フーリエ変換（FFT）を用いて、効率的に計算することができます。

4.ウェーブレット変換

信号を時間領域と周波数領域の両方で分析する方法で、高周波成分と低周波成分を分離することができます。ウェーブレット変換には、離散ウェーブレット変換（DWT）や連続ウェーブレット変換（CWT）などがあります。

5.ノンパラメトリック回帰

回帰分析を行い、信号の背景トレンドを推定する方法です。カーネル回帰やローム推定などがあります。ノンパラメトリック回帰は、局所的な平滑化に適しています。

これらの手法は、データに応じて適切な手法を選択する必要があります。

CATIAのBIM化は果たして可能なのか？

CATIAをRevitのようなBIMとして使う方法は？

CATIAは、RevitのようなBIMツールではありませんが、BIMの原則に基づいた設計を行うことができます。以下は、CATIAをBIMとして使用するための一般的な手順です。

1.3Dモデルの作成：CATIAを使用して、建物の3Dモデルを作成します。建物の外観、内部レイアウト、構造などを含め、建物の各部分を詳細にモデリングします。建物の部品、構造、外観、性能、材料などの情報を含め、3Dモデルに付加情報を追加します。

2.パラメータの設定：建物の3Dモデルに対して、異なるパラメータを設定します。建物の部品、構造、外観、性能、材料などの情報を含め、異なるパラメータを定義します。これにより、建物の設計変更に柔軟に対応することができます。

3.データの抽出：CATIAからデータを抽出し、BIMツールであるRevitなどのソフトウェアにインポートすることができます。これにより、建物の構造、部品、性能などの情報を含め、異なるBIMツールで情報を共有することができます。

4.シミュレーションの実行：建物の性能をシミュレーションし、設計変更が必要な場合には、3Dモデルを更新して、異なるパラメータを設定します。

これらの手順に従って、CATIAをBIMとして使用することができます。ただし、CATIAは主に製造業界で使用されるCADソフトウェアであり、RevitのようなBIMツールではありません。建築業界に特化したBIMツールを使用することをお勧めします。