R値別にフィレットに色付けするマクロ｜CATIAマクロの作成方法

今回の記事は「お問い合わせ」でいただいた内容です。

送って頂いた内容は以下のようなマクロです。

R値別にフィレットに色を付けるマクロ
たとえばフィレットがR2のときは赤色、R3のときは青色、R4のときはピンク色を付ける

今回のマクロは「Selectionオブジェクト」と「VisPropertySetオブジェクト」を使用しています。
どちらも上記リンク先のページで詳しく解説しているので、あわせてご確認ください。

1. 作成するマクロの内容
2. 完成コード
3. コード解説
4. より柔軟性のあるマクロにする
5. まとめ

作成するマクロの内容

今回作成するマクロは先にも述べているとおり「R値別にフィレットに色を付けるマクロ」です。
マクロの機能としては要望どおりの「フィレットがR2のときは赤色、R3のときは青色、R4のときはピンク色を付ける」というものになっています。
※ページ後方では[R値]と[色]を変更することのできるマクロも紹介しています。

マクロの完成イメージとしては以下のような感じです。

マクロの機能まとめ・フィレットのR2は赤色、R3は青色、R4はピンク(マゼンタ)に色付け
　※パートデザインワークベンチで作成されたフィレットにのみ有効
・徐変フィレット、フィレット以外で作成されたR形状には非対応

基本的にはパート・デザインワークベンチの
エッジフィレットにのみ対応していると思ってもらえれば大丈夫です！

完成コード

マクロの完成コードは以下のとおりです。

Sub CATMain()

On Error Resume Next

Dim SEL As Selection
Set SEL = CATIA.ActiveDocument.Selection

Dim VPS As VisPropertySet
Set VPS = SEL.VisProperties　'色を変えるのに必要なVisPropertySetを用意

SEL.Clear
SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")　'パート・デザインワークベンチのフィレットをすべて検索&選択

Dim SELCount As Integer
SELCount = SEL.Count　'フィレットの個数を代入

If SEL.Count = 0 Then
    MsgBox "現在の形状にはフィレットが使われていません｡"　
    Exit Sub
End If

Dim i As Integer
For i = 1 To SELCount

    Dim SELFillet 'As Fillet
    Set SELFillet = SEL.Item(i).Value　'ツリーの上からi番目のフィレットをSELFilletに代入
    
    If TypeName(SELFillet) <> "VarRadEdgeFillet" Then　'徐変フィレットは無視する

    　Dim FilletR As Single
   　 FilletR = SELFillet.Radius.Value　'SELFillet内にあるフィレットのR値を取得
    
    　If FilletR = 2 Then　'R値が「2」の場合
    
      　 SEL.Clear
      　 SEL.Add SELFillet
      　 VPS.SetRealColor 255, 0, 0, 1　'赤色(RGB値を(255,0,0))に変更
       　SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")
       
   　 ElseIf FilletR = 3 Then　'R値が「3」の場合
    
      　 SEL.Clear
     　  SEL.Add SELFillet
     　  VPS.SetRealColor 0, 128, 255, 1　'青色(RGB値を(0,128,255))に変更
      　 SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")
       
    　ElseIf FilletR = 4 Then　'R値が「4」の場合
    
       　SEL.Clear
      　 SEL.Add SELFillet
       　VPS.SetRealColor 255, 0, 255, 1　'ピンク色(RGB値を(255,0,255))に変更
       　SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")
    
    　Else
      End If
    End If

Next i

SEL.Clear
MsgBox "完了しました"

End Sub

Sub CATMain()

On Error Resume Next

Dim SEL As Selection

Set SEL = CATIA.ActiveDocument.Selection

Dim VPS As VisPropertySet

Set VPS = SEL.VisProperties　'色を変えるのに必要なVisPropertySetを用意

SEL.Clear

SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")　'パート・デザインワークベンチのフィレットをすべて検索&選択

Dim SELCount As Integer

SELCount = SEL.Count　'フィレットの個数を代入

If SEL.Count = 0 Then

MsgBox "現在の形状にはフィレットが使われていません｡"　

Exit Sub

End If

Dim i As Integer

For i = 1 To SELCount

Dim SELFillet 'As Fillet

Set SELFillet = SEL.Item(i).Value　'ツリーの上からi番目のフィレットをSELFilletに代入

If TypeName(SELFillet) <> "VarRadEdgeFillet" Then　'徐変フィレットは無視する

　Dim FilletR As Single

　 FilletR = SELFillet.Radius.Value　'SELFillet内にあるフィレットのR値を取得

　If FilletR = 2 Then　'R値が「2」の場合

　 SEL.Clear

　 SEL.Add SELFillet

　 VPS.SetRealColor 255, 0, 0, 1　'赤色(RGB値を(255,0,0))に変更

　SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")

　 ElseIf FilletR = 3 Then　'R値が「3」の場合

　 SEL.Clear

　 SEL.Add SELFillet

　 VPS.SetRealColor 0, 128, 255, 1　'青色(RGB値を(0,128,255))に変更

　 SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")

　ElseIf FilletR = 4 Then　'R値が「4」の場合

　SEL.Clear

　 SEL.Add SELFillet

　VPS.SetRealColor 255, 0, 255, 1　'ピンク色(RGB値を(255,0,255))に変更

　SEL.Search ("ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all")

　Else

End If

Next i

SEL.Clear

MsgBox "完了しました"

End Sub

※CATIAの操作環境が日本語のもののみに対応しています

コード解説

上記のマクロコードでは以下のような流れで処理が行われています。

一言でまとめると「ツリーの上にあるフィレットから順にR値を確認していき、R2のときは赤色、R3のときは青色、R4のときはピンク色にそれぞれ色付けする」という処理を行っています。

以下では今回のマクロの特に重要なコードを解説していきます。

このマクロの大まかな流れは本サイトで解説している
他のマクロと同じなのでそれらのページもぜひ見てみて下さいね！

ツリーの上から i 番目のフィレットとそのR値を変数にする

以下のコードをFor~Nextループ内(カウント変数 i )に入れることで、ツリーの上にあるフィレットから順にSELFilletに代入していきます。

上から i 番目のフィレットを変数に入れる

Dim SELFillet
Set SELFillet = SEL.Item(i).Value ‘上から i 番目のフィレットをSELFilletに代入

次に以下のコードでSELFilletに入っているフィレットのR値をFilletRに代入しています。

上から i 番目のフィレットのR値を変数に入れる

Dim FilletR As Single
FilletR = SELFillet.Radius.Value ‘SELFilletのR値をFilletRに代入

この「SELFillet」と「FilletR」、2つの変数を使ってフィレットに色付けしていきます。
　

R値別にフィレットに色を付ける

任意のオブジェクトに色を付けるには「VisPropertySetオブジェクト」を利用します。
VisPropertySetオブジェクトは選択状態になっているオブジェクトの色を変更することができます。

VisPropertySetオブジェクトを使うにはまず以下のように書いて定義しておく必要があります。
(今回のマクロのコードでは初めの方で定義しています)

VisPropertySetオブジェクトの定義

Dim SEL As Selection
Set SEL = CATIA.ActiveDocument.Selection
　
Dim VPS As VisPropertySet
Set VPS = SEL.VisProperties　

ここで定義したVPSという変数を使って以下のように書くことで、選択状態のオブジェクトの色を変更することができます。(詳しくは「VisPropertySetオブジェクト」参照)

色変更

VPS.SetRealColor R, G, B, 1　‘RGB値を入力

　
今回のマクロのコードでは以下のように使っています。
以下のコードをFilletRを使ってR値別に条件分岐させることで、各フィレットに色付けをしています。

色付け処理

If FilletR = 2 Then　　　　　　　　　 ‘R値が「2」の場合、以下の処理を行う
　SEL.Clear　　　　　　　　　　　　　 ‘選択状態のものをすべて解除
　SEL.Add SELFillet　　　　　　　　　 ‘SELFilletを選択状態にする
　VPS.SetRealColor 255, 0, 0, 1　　　 ‘選択状態のオブジェクトの色をRGB(255,0,0)に変更
　SEL.Search (“ﾊﾟｰﾄ･ﾃﾞｻﾞｲﾝ.ﾌｨﾚｯﾄ,all”)　‘ドキュメント内のフィレットをすべて選択