ご質問頂いていたｴｯｼﾞを指定してﾊﾟｲﾌﾟ形状を作成するﾏｸﾛです。色々と不足している部分はありますが、ご参考になれば。 Dim PartDoc As PartDocument Dim oPart As Part Dim HBody As HybridBody Sub CATMain() Set PartDoc = CATIA.ActiveDocument Set oPart…

会社のﾃﾞｰﾀｻｰﾊﾞｰが、暑さで壊れてしまい全く仕事になりませんでした。 暇だったので、形状ｾｯﾄと平面を指定し、形状ｾｯﾄの階層を維持しつつ ﾃﾞｰﾀﾑ化させ対称形状を作成するﾏｸﾛを作ってみました。 (スケッチは対象外です)例としてこんな感じのﾃﾞｰﾀです。 ﾏｸﾛ実…

こちらにｺﾒﾝﾄ頂いた件のｻﾝﾌﾟﾙになるかな？と言った内容です。 VBAでﾏｸﾛを作成する際の我流な手順2 - C#ATIAPartﾌｧｲﾙ内にある形状ｾｯﾄ全てをまわり、形状ｾｯﾄ内にある形状ｾｯﾄの数を 表示させます。 言葉ではわかりにくいので、こんな感じのPartﾌｧｲﾙです。 ｿｰｽｺｰ…

作業ｵﾌﾞｼﾞｪｸﾄがProductの状態で、Treeにぶら下がっているPartを 操作したい と言った内容のご質問を頂いたので、調べてみました。 こんな感じでPart2を操作したい と言うことになります。このPartを操作するためには、結果的にPartDocumentさえ取得して しま…

当方加工屋のため、加工対象となる形状が製品基準ではなく こちらの都合の良いように配置し、CAM側に投げる事が多々あります。 古いﾘﾘｰｽでは、GSDにしか座標変換のｺﾏﾝﾄﾞが無かったのですが、 今はPartﾃﾞｻﾞｲﾝにもあるため、ｲﾁｲﾁ移動させ回転させ・・等 面倒な…

こちらの続きです。 3Dの文字モデリングマクロ7 - C#ATIA実際にﾏｸﾛを使用したものがこちらです。 ・ﾌﾟﾚﾋﾞｭｰ後の反転の向きが何だかおかしい？ ・文字の押し出し方法 - "ｻﾎﾟｰﾄ面に対して垂直"の際、 文字によって押し出される方向が違う (恐らく辞書ﾌｧｲﾙのｻｰﾌ…

こちらの続きです。 3Dの文字モデリングマクロ6 - C#ATIA最後にCATMainﾒｿｯﾄﾞを持つ、Text3D_Startﾓｼﾞｭｰﾙです。 'text3D VBA 'Text3D_Start Option Explicit 'ﾌｫﾝﾄ用Partﾌｧｲﾙﾊﾟｽ-この部分は各自設定してください Const FontPartPath = "C:\temp\" Const FontP…

こちらの続きです。 3Dの文字モデリングマクロ5 - C#ATIA続いてｸﾗｽﾓｼﾞｭｰﾙとしては最後のText3DStringContainerｸﾗｽです。 このｸﾗｽは文字ﾓﾃﾞﾙそのものを保持しています。 'text3D VBA 'Text3DStringContainer Option Explicit Private mChars As Collection 'T…

こちらの続きです。 3Dの文字モデリングマクロ4 - C#ATIA続いて文字が配置される際のｶﾞｲﾄﾞｶｰﾌﾞやｻﾎﾟｰﾄ面を保持する Text3DGuideItemContainerｸﾗｽです。 'text3D VBA 'Text3DGuideItemContainer Option Explicit Private mGuideCurve As Text3DObjRefClass Pr…

こちらの続きです。 3Dの文字モデリングマクロ3 - C#ATIA最初に全体像をお伝えすべきでした。このような感じです。 ﾓｼﾞｭｰﾙが1個とｸﾗｽが6個で構成されています。 現状、「Text3D_Start」ﾓｼﾞｭｰﾙと「Text3DStringContainer」ｸﾗｽが 未完成な状態です。 続いてCAT…

こちらの続きです。 3Dの文字モデリングマクロ2 - C#ATIA まだ完成していないのですが、この先修正しないだろうと思われる部分を 公開していきたいと思います。基本的にこちらで公開されているﾏｸﾛを改造したものです。 http://www.ema3.com/CATIA_V5_MACRO/V…

すっかりﾏｸﾛを作っている暇が無いです。CATIAで3次ベジエ曲線を描きたいと思っているのですが、 何方かご存じないでしょうか？ 始点、終点と2つの制御点全てが同一平面上で構わないので 描きたいです。細かくﾊﾟﾗﾒｰﾀを変化させ、得られた大量の点をスプライン…