CATDrawing内にある点を一括で補助エレメントに変換するマクロ｜CATIAマクロの作成方法

今回は「お問い合わせ」より頂いた内容です。
送って頂いた内容は以下のようなマクロです。

CATIA Drawingの図面内にある“点オブジェクトを一括で補助エレメント”に
マクロで変換することは可能でしょうか？

1. マクロの機能
2. サンプルコード
3. コード解説
4. まとめ

マクロの機能

今回作成したマクロは
『アクティブビュー内にある”すべての点”を一括で補助エレメントに変換するマクロ』です。

具体的な機能は以下のとおりです。

マクロの機能まとめ・アクティブビュー内にある全ての点を補助エレメントに変換する
・すでに補助エレメントになっている点はそのまま変更しない

手動でいうと「点をダブルクリックして開かれる[点を定義]ウィンドウ内の[補助エレメント]にチェックを付ける」という操作です。

サンプルコード

マクロのサンプルコードは以下のとおりです。
実行するとアクティブビュー内にある全ての点を補助エレメントに変換されます。

※使用言語が英語の場合はSearchメソッドの内容を書き換える必要があります。
　詳しくはSelectionオブジェクトのSearchメソッドの項を参照下さい。

Sub CATMain()

  'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ確認
    If TypeName(CATIA.ActiveDocument) <> "DrawingDocument" Then
        MsgBox "CATDrawingのみ対応のマクロです。"
        Exit Sub
    End If

  'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ定義
    Dim doc As DrawingDocument
    Set doc = CATIA.ActiveDocument
    
  'ｱｸﾃｨﾌﾞｼｰﾄ定義
    Dim ActSheet As DrawingSheet
    Set ActSheet = doc.Sheets.ActiveSheet
    
  'ｱｸﾃｨﾌﾞﾋﾞｭｰ定義
    Dim ActView As DrawingView
    Set ActView = ActSheet.Views.ActiveView

  'Selection定義
    Dim sel As Selection
    Set sel = doc.Selection
    
  'ｱｸﾃｨﾌﾞﾋﾞｭｰ内の点(Point)を全選択
    CATIA.RefreshDisplay = False
    With sel
        .Clear
        .Add ActView
        .Search ("ﾄﾞﾗﾌﾃｨﾝｸﾞ.点,sel") '使用言語が英語の場合は書き換える必要あり
    End With
    
  '選択中のすべての点を補助ｴﾚﾒﾝﾄに変換
    Dim i As Integer
    Dim ActPoint As Point2D
    For i = 1 To sel.Count
        Set ActPoint = sel.Item(i).Value
        ActPoint.Construction = True '補助ｴﾚﾒﾝﾄに変換
    Next i
    
    sel.Clear
    CATIA.RefreshDisplay = True
    
End Sub

Sub CATMain()

'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ確認

If TypeName(CATIA.ActiveDocument) <> "DrawingDocument" Then

MsgBox "CATDrawingのみ対応のマクロです。"

Exit Sub

End If

'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ定義

Dim doc As DrawingDocument

Set doc = CATIA.ActiveDocument

'ｱｸﾃｨﾌﾞｼｰﾄ定義

Dim ActSheet As DrawingSheet

Set ActSheet = doc.Sheets.ActiveSheet

'ｱｸﾃｨﾌﾞﾋﾞｭｰ定義

Dim ActView As DrawingView

Set ActView = ActSheet.Views.ActiveView

'Selection定義

Dim sel As Selection

Set sel = doc.Selection

'ｱｸﾃｨﾌﾞﾋﾞｭｰ内の点(Point)を全選択

CATIA.RefreshDisplay = False

With sel

.Clear

.Add ActView

.Search ("ﾄﾞﾗﾌﾃｨﾝｸﾞ.点,sel") '使用言語が英語の場合は書き換える必要あり

End With

'選択中のすべての点を補助ｴﾚﾒﾝﾄに変換

Dim i As Integer

Dim ActPoint As Point2D

For i = 1 To sel.Count

Set ActPoint = sel.Item(i).Value

ActPoint.Construction = True '補助ｴﾚﾒﾝﾄに変換

Next i

sel.Clear

CATIA.RefreshDisplay = True

End Sub

コード解説

ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ確認

  'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ確認
    If TypeName(CATIA.ActiveDocument) <> "DrawingDocument" Then
        MsgBox "CATDrawingのみ対応のマクロです。"
        Exit Sub
    End If

'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ確認

If TypeName(CATIA.ActiveDocument) <> "DrawingDocument" Then

MsgBox "CATDrawingのみ対応のマクロです。"

Exit Sub

End If

まず、はじめにアクティブドキュメントの定義をします。
今回のマクロはCATDrawingでのみ有効なものなので、アクティブドキュメントがCATDrawing以外の場合はTypeName関数を使った条件分岐でマクロを終了するようにしています。
　

ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ/ｱｸﾃｨﾌﾞｼｰﾄ/ｱｸﾃｨﾌﾞﾋﾞｭｰの定義

  'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ定義
    Dim doc As DrawingDocument
    Set doc = CATIA.ActiveDocument
    
  'ｱｸﾃｨﾌﾞｼｰﾄ定義
    Dim ActSheet As DrawingSheet
    Set ActSheet = doc.Sheets.ActiveSheet
    
  'ｱｸﾃｨﾌﾞﾋﾞｭｰ定義
    Dim ActView As DrawingView
    Set ActView = ActSheet.Views.ActiveView

'ｱｸﾃｨﾌﾞﾄﾞｷｭﾒﾝﾄ定義

Dim doc As DrawingDocument

Set doc = CATIA.ActiveDocument

'ｱｸﾃｨﾌﾞｼｰﾄ定義

Dim ActSheet As DrawingSheet

Set ActSheet = doc.Sheets.ActiveSheet

'ｱｸﾃｨﾌﾞﾋﾞｭｰ定義

Dim ActView As DrawingView

Set ActView = ActSheet.Views.ActiveView

アクティブドキュメント、アクティブシート、アクティブビューを順に定義します。
これらはCATDrawingマクロでのほぼ定型文的な内容なので丸暗記でもいいレベルです。

ｱｸﾃｨﾌﾞﾋﾞｭｰ内の点(Point)を全選択

  'Selection定義
    Dim sel As Selection
    Set sel = doc.Selection
    
  'ｱｸﾃｨﾌﾞﾋﾞｭｰ内の点(Point)を全選択
    CATIA.RefreshDisplay = False
    With sel
        .Clear
        .Add ActView
        .Search ("ﾄﾞﾗﾌﾃｨﾝｸﾞ.点,sel") '使用言語が英語の場合は書き換える必要あり
    End With

'Selection定義

Dim sel As Selection

Set sel = doc.Selection

'ｱｸﾃｨﾌﾞﾋﾞｭｰ内の点(Point)を全選択

CATIA.RefreshDisplay = False

With sel

.Clear

.Add ActView

.Search ("ﾄﾞﾗﾌﾃｨﾝｸﾞ.点,sel") '使用言語が英語の場合は書き換える必要あり

End With

先ほど定義したアクティブビュー「ActView」内にある点をすべて選択状態にします。
(以降で選択中のオブジェクトに対してループ文で1つずつ処理していくため)

「CATIA.RefreshDisplay=False」はExcelマクロでいう「Application.ScreenUpdating=False」で、処理中に画面の更新を抑える働きをしてくれます。これにより処理速度を少し上げることができます。
　

選択中のすべての点を補助ｴﾚﾒﾝﾄに変換

  '選択中のすべての点を補助ｴﾚﾒﾝﾄに変換
    Dim i As Integer
    Dim ActPoint As Point2D
    For i = 1 To sel.Count
        Set ActPoint = sel.Item(i).Value
        ActPoint.Construction = True
    Next i

'選択中のすべての点を補助ｴﾚﾒﾝﾄに変換

Dim i As Integer

Dim ActPoint As Point2D

For i = 1 To sel.Count

Set ActPoint = sel.Item(i).Value

ActPoint.Construction = True

Next i

最後にループ文を使って点を１つずつ順に補助エレメントに切り替えていきます。

CATDrawing上の点はVBAでは「Point2Dオブジェクト」として扱います。
ヘルプ(リンク先)を確認するとわかりますが、Point2Dオブジェクトにはメソッドしか書かれていません。これらは点の座標を取得/変更するためのメソッドで補助エレメントに切り替えるものは存在しません。

しかし、VBE上のローカルウィンドウを確認すると「Construction」というプロパティが確認できます。これは「Geometry2Dオブジェクト」の通常エレメントと補助エレメントを表すBoolean型のプロパティです。

Constructionプロパティでは通常エレメントは「False」、補助エレメントが「True」を表します。
そのため以下のように書くことで点を補助エレメントに変換することができます。

Constructionプロパティ

ActPoint.Construction = True

ちなみに「Geometry2Dオブジェクト」は2Dエレメント全般を取り扱うオブジェクトなので、「Line2D」や「Circle2D」などが包含されています。そのため上記コードの「Point2D」を「Line2D」や「Circle2D」に書き換えればCATDrawing内の直線や円を補助エレメントに変換することができます。(もちろんSearch部分を変える必要もありますが)