Drawのﾃｰﾌﾞﾙに最後の列を追加

Drawの穴寸法/座標寸法ﾃｰﾌﾞﾙで、最後の列を増やしたい事が
結構あるのですが、恐らく手動では出来ないような気がしてます。
手動で出来ます（ｺﾒﾝﾄ部で、mineさんに教えて頂きました）

（方法知っている方いらっしゃいましたら、教えて頂けると助かります）

仕方ないので、ﾏｸﾛを作成しました。

'vba DrawTable_Add_LastColumn ver0.0.1  using-'KCL0.0.12'  by Kantoku

Option Explicit

Sub CATMain()

    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("DrawingDocument") Then Exit Sub

    'ﾃｰﾌﾞﾙ選択
    Dim Msg As String
    Msg = "最後に列を追加するﾃｰﾌﾞﾙを選択 // [Esc]=Cancel"
    
    Dim Tbl As DrawingTable
    Set Tbl = KCL.SelectItem(Msg, "DrawingTable")
    If Tbl Is Nothing Then Exit Sub
    
    '一列追加
    Dim CntCol As Long: CntCol = Tbl.NumberOfColumns
    Call Tbl.AddColumn(CntCol)
    
    'ｺﾋﾟｰ
    Dim CntRow As Long: CntRow = Tbl.NumberOfRows
    Dim Txt As String, i As Long
    
    For i = 1 To CntRow
        Txt = Tbl.GetCellString(i, CntCol + 1)
        Call Tbl.SetCellString(i, CntCol, Txt)
        Call Tbl.SetCellString(i, CntCol + 1, "")
    Next
End Sub

最後から2番目の位置に列を追加し、最後の列をｺﾋﾟｰしつつ
最後の列を空欄にしています。(vbNullStringではNG)

ｺｰﾄﾞ的にはくだらないのですが、これを手動でやると本当に
手間がかかるんですよね。Excelの様に複数のセルをまとめて
ｺﾋﾟｰ出来ないですし。

・・・最後に追加出来ない! ってMS製品でも多いですよね?

参考寸法

手抜きﾒﾆｭｰに登録しながらﾏｸﾛを修正していたら
地味なﾔﾂを見つけました。

こんな感じの、丸括弧付きの寸法って何と呼ぶのが正式なんでしょうか?
(きっとJISとかで決まっていると思うのですが)

僕は参考寸法と呼んでいます。　こちらでもそんな記載になってます。
寸法の記入の基本ルール
「２重寸法の禁止」の所に記載されています。
（個人的に重複した寸法は、かなり重罪です）

こちらでは括弧寸法と記載されていました。
括弧寸法の使い方をここまで細かく語るエンジニアはいない | メカ設計のツボ｜マザーマシンの元エンジニアが語る

これ、図面を描いているAdvanceCADには、寸法をクリックしただけで
行ってくれる機能があるのですが、CATIAには無いですよね？

これを行うだけのﾏｸﾛです。

'vba Sample_Draw_Ref_Dimension ver0.0.2  using-'KCL0.0.12'

Option Explicit

Private Enum Dimension_Value
    Main_Value = 1
    Dual_Value = 2
End Enum

Sub CATMain()

    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("DrawingDocument") Then Exit Sub
    
    Dim Msg$: Msg = "参考/非参考化する寸法を選択 // [Esc]=Cancel"
    Dim DrwDim As DrawingDimension
    Dim DimVal As Variant 'DrawingDimValue
    Dim Bfr$, Afr$, Upr$, Lwr$
    
    Do
        Set DrwDim = KCL.SelectItem(Msg, "DrawingDimension")
        If DrwDim Is Nothing Then Exit Sub
        
        Set DimVal = DrwDim.GetValue
        Call DimVal.GetBaultText(Dimension_Value.Main_Value, _
                                 Bfr, Afr, Upr, Lwr)
        If IsRefDimension(Bfr, Afr) Then
            '既に参考寸法
            Call DimVal.SetBaultText(Dimension_Value.Main_Value, _
                                    Mid(Bfr, 2), _
                                    Left(Afr, Len(Afr) - 1), _
                                    Upr, Lwr)
        Else
            'ただの寸法
            Call DimVal.SetBaultText(Dimension_Value.Main_Value, _
                                    "(" & Bfr, _
                                    Afr & ")", _
                                    Upr, Lwr)
        End If
    Loop
End Sub

Private Function IsRefDimension(ByVal Bfr As String, _
                                ByVal Afr As String) As Boolean
    IsRefDimension = False
    
    If Bfr = vbNullString Or Afr = vbNullString Then Exit Function
    
    Dim Tp$, Ed$
    Tp = Left(Bfr, 1)
    Ed = Right(Afr, 1)
    
    If Tp = "(" And Ed = ")" Then IsRefDimension = True
End Function

寸法のﾌﾟﾛﾊﾟﾃｨの　[寸法ﾃｷｽﾄ]ﾀﾌﾞ　[関連ﾃｷｽﾄ]　の
・前側の最初の文字が「(」
・後側の最後の文字が「)」
の二つの条件がそろった時に、丸括弧を外し
そうでないときは丸括弧を追加します。

こんな感じです。

・・・地味

手抜きﾏｸﾛ起動用ﾒﾆｭｰ3

こちらの続きです。
手抜きﾏｸﾛ起動用ﾒﾆｭｰ2 - C#ATIA

「Cat_Macro_Menu_Model.bas」の宣言ｾｸｼｮﾝ部に幾つか定数を
設けています。お好みで変更してください。

'Cat_Macro_Menu_Model.bas
'using-'KCL0.0.12'
'ﾀｸﾞを追記したﾓｼﾞｭｰﾙをﾌﾟﾛｼﾞｪｸﾄに追加するだけで
'自動的にﾎﾞﾀﾝを追加します

Const FormTitle = "Macro"

'----- ﾒﾆｭｰの仕様 お好みで ---------------------------------------

'ﾒﾆｭｰの表示方法
'True-ﾓｰﾀﾞﾚｽ表示  False-ﾓｰﾀﾞﾙ表示
Private Const MENU_SHOW_TYPE = True

'ﾒﾆｭｰを閉じるﾀｲﾐﾝｸﾞ
'True-ﾌｫｰﾑのXﾎﾞﾀﾝを押して閉じます False-ﾎﾞﾀﾝｸﾘｯｸ後閉じます
Private Const MENU_HIDE_TYPE = True

'ﾒﾆｭｰのﾏﾙﾁﾍﾟｰｼﾞの設定
'変更する際は
'{ ﾀｸﾞのｸﾞﾙｰﾌﾟ番号 : ﾍﾟｰｼﾞのﾀｲﾄﾙ文字 }
'の状態にして下さい
Private Const GROUP_NUMBER_CAPTION = _
            "{ 1 : Part }" & _
            "{11 : Assy }" & _
            "{21 : Draw }" & _
            "{51 : Other }"
'-----------------------------------------------------------------
・・・

・「MENU_SHOW_TYPE」
　　ﾒﾆｭｰの表示で、ﾓｰﾀﾞﾚｽかﾓｰﾀﾞﾙかをBoolean型で切り替えられます。

・「MENU_HIDE_TYPE」
　　ﾒﾆｭｰ終了ﾀｲﾐﾝｸﾞですが、Upしたﾃﾞｰﾀのｺﾒﾝﾄ間違えていました･･。
　　正しくは上記の状態で、Boolean型で切り替えられます。
　　ﾎﾞﾀﾝｸﾘｯｸ後に終了させるか、表示しっぱなしかです。

　　実質、「ﾓｰﾀﾞﾚｽ + 表示しっぱなし」　か　「ﾓｰﾀﾞﾙ + ｸﾘｯｸ後終了」
　　に、なるのだろうと思います。

・「GROUP_NUMBER_CAPTION」
　　ﾏﾙﾁﾍﾟｰｼﾞの分類と表示させる文字になります。
　　挿入する標準ﾓｼﾞｭｰﾙの　{Gp}タグは、こちらの番号にない場合は
　　ﾎﾞﾀﾝが表示されません。

続いて、ﾌｫｰﾑｺｰﾄﾞの「Cat_Macro_Menu_View.frm」の宣言ｾｸｼｮﾝ部です。
ﾌｫｰﾑのﾚｲｱｳﾄ等はこちらの定数で、若干調整が可能です。
(環境によってはﾎﾞﾀﾝの文字が途切れる等あるかもしれないため･･･）)

'Cat_Macro_Menu_View.frm
'ﾒﾆｭｰのUIです。

'ﾌｫｰﾑ
Private FrmMargin As Variant '上,下,左,右のﾎﾞﾀﾝ配置のﾏｰｼﾞﾝ
Private Const ADJUST_F_W = 13 'ﾌｫｰﾑの左右の調整幅
Private Const ADJUST_F_H = 30 'ﾌｫｰﾑの上下の調整幅

'ﾏﾙﾁﾍﾟｰｼﾞ
Private Const ADJUST_M_W = 5 'ﾏﾙﾁﾍﾟｰｼﾞの左右の調整幅
Private Const ADJUST_M_H = 18 'ﾏﾙﾁﾍﾟｰｼﾞの上下の調整幅

'ﾎﾞﾀﾝ
Private Const BTN_W = 70 'ﾎﾞﾀﾝの幅-ﾌｫｰﾑの最低幅以下にすると余白が増える
Private Const BTN_H = 20 'ﾎﾞﾀﾝ1個の高さ

・・・

各ﾏﾙﾁﾍﾟｰｼﾞに該当するﾎﾞﾀﾝがない場合は、ﾍﾟｰｼﾞ自体が作成されません。
又、各ﾍﾟｰｼﾞに配置されるﾎﾞﾀﾝの順番は、ﾓｼﾞｭｰﾙ名でｿｰﾄして表示させています。
好みの順番で表示させたい場合は････ﾓｼﾞｭｰﾙ名を工夫してください。
(良いｱｲﾃﾞｱが思いつきませんでした)

あと何か有ったかなぁ？　ﾏｸﾛ用のﾒﾆｭｰなんて今更だし。

念の為、このままではOffice製品では機能しないです。

プロジェクト名・パスの取得方法は、imihitoさんが
こちらのｺﾒﾝﾄ欄に記載して頂いてます。
実行中のﾌﾟﾛｼﾞｪｸﾄ名とﾊﾟｽ取得する - C#ATIA

ﾎﾞﾀﾝ押した際の各ﾏｸﾛの実行方法は、こちらの
「Application.Run」の方法で可能だろうと思います。
外部のﾏｸﾛを実行する2 - C#ATIA

正規表現もまともに使ったの初めてでしたし、まさか自分が
CallByNameを使うｺｰﾄﾞを書く日が来るとは思っていませんでしたよ。

Excelﾌｫｰﾑﾎﾞﾀﾝからﾏｸﾛの起動 (未確認)

「Excelのフォームのボタンを押したら、指定した座標系を元に
　XYZの値を入力した位置に、点を作成したい」
と言う内容の御質問を頂きました。

生憎、古いExcelしかインストールされていないため（ﾏｸﾛ動かない）
完全には再現できませんが、近い事はしてみたいと思います。

絶対座標系を元に点1を作成し、点1を元に座標系2を作成しました。

この座標系2を元に座標を指定した点を作成したい　と解釈しましたので
その通りにﾏｸﾛの記録をとってみると、この様になりました。

'vba
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(10#, 20#, 30#)

Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("座標系.2")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(axisSystem1)

hybridShapePointCoord1.RefAxisSystem = reference1

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("形状ｾｯﾄ.1")

hybridBody1.AppendHybridShape hybridShapePointCoord1

part1.InWorkObject = hybridShapePointCoord1

part1.Update

End Sub

こちらにも記載しましたが、僕の場合は記録を取った
ﾏｸﾛを実行し再現されるかどうかを確認しています。
VBAでﾏｸﾛを作成する際の我流な手順1 - C#ATIA
今回は、再現できたので記録は取れているようです。

ｺｰﾄﾞを見ると "座標系.2" が見つかるので、その続きを見てみると

・・・

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("座標系.2")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(axisSystem1)

hybridShapePointCoord1.RefAxisSystem = reference1

・・・

ﾘﾌｧﾚﾝｽを取得し、作成した点の「RefAxisSystem」ﾌﾟﾛﾊﾟﾃｨに
座標系2のﾘﾌｧﾚﾝｽを割り当てています。
どうやらこれが　キモ　のようです。

念の為、「ﾘﾌｧﾚﾝｽとは何者か？」　と聞かれてもお答えする
自信がありません。
(CATIAのﾏｸﾛに取り組み始めた際、最初にぶつかる壁が
　ﾘﾌｧﾚﾝｽのような気がしてます)
ﾌﾟﾛｸﾞﾗﾑ的に言えば、ﾊﾟﾗﾒｰﾀ(引数)として受け取る型が
複数種類ある場合、ｵｰﾊﾞｰﾛｰﾄﾞを利用する事になると思うのですが
多数あるため大量になりすぎ、手間です。
それだったら必要な情報だけを持った抽象的なｸﾗｽを作成し、
受け取った側で情報が足りなかったら、ｴﾗｰ出したほうが
面倒じゃないな　って感じで存在しているのかとは
思っているのですが、真実はわかりませんし
ここは読み飛ばしてください・・・。

やることがわかったので、後は座標系の指定と座標値の入力を
追加してやれば良いですね。

Sub CATMain()

    Dim partDocument1 As PartDocument
    Set partDocument1 = CATIA.ActiveDocument
    
    'ｾﾚｸｼｮﾝ
    Dim Sel As Variant 'Selectionだとｴﾗｰになります
    Set Sel = partDocument1.Selection
    
    '選択の為のﾌｨﾙﾀｰ
    Dim Filter As Variant
    Filter = Array("AxisSystem")
    
    '座標系選択
    Dim Msg As String
    Msg = "座標系を選択してください / ESC-中止"
    
    Sel.Clear
    Select Case Sel.SelectElement2(Filter, Msg, False)
        Case "Cancel", "Undo", "Redo"
            Exit Sub '中止
    End Select
    
    '選択した座標系を代入
    Dim axisSystem1 As AxisSystem
    Set axisSystem1 = Sel.Item(1).Value
    
    '座標値入力
    Msg = "座標値を入力して下さい。　例）10,20,30"
    
    Dim PosStr As String
    PosStr = InputBox(Msg, , "10,20,30")
    
    If PosStr = vbNullString Then Exit Sub '空欄/ｷｬﾝｾﾙ中止
    
    '入力値判断
    Dim PosStrAry As Variant
    PosStrAry = Split(PosStr, ",")
    
    If UBound(PosStrAry) < 2 Then Exit Sub 'XYZ分無いので中止
    
    '文字を数値化
    Dim Pos(2) As Variant
    Dim i As Long
    For i = 0 To 2
        If Not IsNumeric(PosStrAry(i)) Then
            Exit Sub '数字じゃないので中止
        End If
        Pos(i) = CDbl(PosStrAry(i))
    Next
    
    Dim part1 As Part
    Set part1 = partDocument1.Part
    
    Dim hybridShapeFactory1 As HybridShapeFactory
    Set hybridShapeFactory1 = part1.HybridShapeFactory
    
    Dim hybridShapePointCoord1 As HybridShapePointCoord
'    Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(10#, 20#, 30#)
    Set hybridShapePointCoord1 = hybridShapeFactory1 _
                        .AddNewPointCoord(Pos(0), Pos(1), Pos(2))
    
'    Dim axisSystems1 As AxisSystems
'    Set axisSystems1 = part1.AxisSystems
'
'    Dim axisSystem1 As AxisSystem
'    Set axisSystem1 = axisSystems1.Item("座標系.2")
    
    Dim reference1 As Reference
    Set reference1 = part1.CreateReferenceFromObject(axisSystem1)
                                    '選択した座標系です↑
    
    hybridShapePointCoord1.RefAxisSystem = reference1
    
    Dim hybridBodies1 As HybridBodies
    Set hybridBodies1 = part1.HybridBodies
    
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = hybridBodies1.Item("形状ｾｯﾄ.1")
    
    hybridBody1.AppendHybridShape hybridShapePointCoord1
    
    part1.InWorkObject = hybridShapePointCoord1
    
    part1.Update

End Sub

追記した部分にはコメントを入れ、不要部分はコメント化して残りました。
(個人的には嫌いなのですが、この方がわかりやすいと思ったので)

"形状ｾｯﾄ.1"　が必要になりますが、これで動作すると思います。
これで、目的の半分は達成しました。

続いて、"Excelから" ですが、これを "外部から" と置き換え進めます。
探したところ過去にこれを書いていました。

仕方なく、OOoBasicをやってみました3 - C#ATIA

外部の場合は、記録を取ったﾏｸﾛの冒頭の

Sub CATMain()

    Dim partDocument1 As PartDocument
    Set partDocument1 = CATIA.ActiveDocument

　　・・・

の "CATIA" が見当たらないので、ﾘﾝｸ先のような記述で
"CATIA"　を教えてあげれば良いだけです。
(但し、CATIAが起動している状態で実行が条件です)

つまり、Excelのボタンのｸﾘｯｸｲﾍﾞﾝﾄに

Sub CATMain()
    
    Dim Cat As Application
    Set Cat = CreateObject("CATIA.Application")
    
    Dim partDocument1 As PartDocument
'    Set partDocument1 = CATIA.ActiveDocument
    Set partDocument1 = Cat.ActiveDocument

　　・・・

の様に記載すれば、同じような動作が出来ます。
（やったことは無いのですが、PythonやRuby等の他言語同様です）

恐らく
"点は、多数作成したい"
"毎回、座標系を指定するのは面倒"
"セルの値を元に、点を作成したい"
等もあるかと思いますので、わからない事があれば
コメント下さい。(メールはあまりチェックしていないもので･･･)

追記です。
参照設定について記載し忘れました。

「参照設定が不要」　なのではなく　「参照設定なしでも動きます」
です。　OOoBasicのところにも記載しましたが、参照設定無しで
行う場合は全て置換機能で「As 」　→　「'As 」に置き換えｺﾒﾝﾄ化
させてしまいます。

Excel側で参照設定を行う場合は、CATIAのVBｴﾃﾞｨﾀで参照設定
されているものを同様に設定する必要があります。
が、面倒なのが本音です。
こちらは以前のC#時の画像がありますが、
DotNetでCATIA V5のマクロを作成する際の準備 - C#ATIA
それっぽい名称になっているため、控えていなくても
何となくﾁｪｯｸを入れるべきものはわかるかと思います。

手抜きﾏｸﾛ起動用ﾒﾆｭｰ2

こちらの続きです。
手抜きﾏｸﾛ起動用ﾒﾆｭｰ1 - C#ATIA

CATVBAﾌﾟﾛｼﾞｪｸﾄにﾏｸﾛのﾓｼﾞｭｰﾙを追加するだけで、
ﾒﾆｭｰﾎﾞﾀﾝを自動的に追加します。

但し、追加するﾓｼﾞｭｰﾙにﾎﾞﾀﾝとなる情報を追記する
必要が有り、以下 [タグ] と表記して説明します。

〇ﾌｧｲﾙの構成
同一のﾌﾟﾛｼﾞｪｸﾄ内に以下のﾌｧｲﾙをD&Dで追加してください。

・Cat_Macro_Menu_Model.bas
・Cat_Macro_Menu_View.frm
・Cat_Macro_Menu_View.frx
・Button_Evt.cls
・KCL.bas

ﾂｰﾙﾊﾞｰに登録する、通常のﾏｸﾛのﾒﾆｭｰから起動する際は
「Cat_Macro_Menu_Model.bas」の「CATMain」を指定してください。

〇タグ記載位置
タグは各ﾓｼﾞｭｰﾙの宣言セクション(先頭部分)に記載する必要が有ります。

こちらで説明されている宣言セクションになります。
Office TANAKA - VBAの変数[変数の適用範囲]

特に注意が必要なのは、上記の赤矢印のﾗｲﾝより上に記載する
と言うことです。
このような状態（ﾗｲﾝがない状態）ではタグを認識する事が
出来ない為ﾒﾆｭｰにﾎﾞﾀﾝが表示されません。

こちらの様に出来るだけ [Option Explicit] を宣言し、
その上にタグを記載する事をオススメします。

〇タグフォーマット
タグのフォーマットは
{ キーワード : 値 }
の状態になっている必要が有ります。("{" ":" "}" は半角です)
Upしたｻﾝﾌﾟﾙでは1行に1タグになっていますが。

'{GP:1}{BackColor:12648447}
Option Explicit

Sub CATMain()
    MsgBox "hoge"
End Sub

の様に一行に複数のタグを記載しても大丈夫です。
※タグのキーワードは半角文字で大・小文字は問いません

〇タグ内容
タグは自動生成するボタンの情報を記載する必要が有ります。
{Gp} : ｸﾞﾙｰﾌﾟの略称でボタン作成する際は必須です。
　　　値はLong型で指定してください。

　　　ﾒﾆｭｰ内のどのﾀﾌﾞにボタンを作成するかを示しています。
　　　Upしたﾌｧｲﾙの「Cat_Macro_Menu_Model.bas」の宣言ｾｸｼｮﾝ部
　　　の「GROUP_NUMBER_CAPTION」定数部分の数値と一致させる
　　　必要が有ります。

'vba CATIA V5用　ﾏｸﾛ起動(ﾃﾇｷ)ﾒﾆｭｰ Ver0.0.1  by Kantoku
'Cat_Macro_Menu_Model.bas
'using-'KCL0.0.12'

・・・

'ﾒﾆｭｰのﾏﾙﾁﾍﾟｰｼﾞの設定
'変更する際は
'{ ﾀｸﾞのｸﾞﾙｰﾌﾟ番号 : ﾍﾟｰｼﾞのﾀｲﾄﾙ文字 }
'の状態にして下さい
Private Const GROUP_NUMBER_CAPTION = _
            "{ 1 : Part }" & _
            "{11 : Assy }" & _
            "{21 : Draw }" & _
            "{51 : Other }"
・・・

　　　現状では、1-Part　11-Assy　21-Draw　51-Other
　　　の設定になっているので、任意の数値を記載してください。
　　　
　　　逆にﾗｲﾌﾞﾗﾘのようなﾓｼﾞｭｰﾙﾌｧｲﾙの場合、ボタンを作成したくない
　　　はずです。{Gp}タグを記載しない事でﾒﾆｭｰに表示させない事に
　　　なります。

{Ep} : ｴﾝﾄﾘｰﾎﾟｲﾝﾄの略称で任意の設定で、値は文字列型です。
　　　各ﾓｼﾞｭｰﾙのｴﾝﾄﾘｰﾎﾟｲﾝﾄ（実行されるﾌﾟﾛｼｰｼﾞｬ名）を指定
　　　しますが、省力時は「CATMain」になります。

　　　Upしている「sample_IsExists_LeftAxis.bas」では
　　　「CATMain」が無く、以下の状態になっています。

'vba sample_IsExists_LeftAxis_ver0.0.1  using-'KCL0.0.12'  by Kantoku
'Part内の左手座標系の有無ﾁｪｯｸ

'{Gp:1}
'{Ep:LeftHand}
'{Caption:LeftHandAxis}
'{ControlTipText:Part内の左手座標系の有無ﾁｪｯｸ}
'{BackColor:33023}
Option Explicit

Sub LeftHand()
    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("PartDocument") Then Exit Sub
・・・

　　　{Ep:LeftHand}となっており、ボタンを押した際
　　　「LeftHand()」が実行されるようになっています。

　　　{Ep}タグで指定されたﾌﾟﾛｼｰｼﾞｬが見つからない場合は
　　　自動的に「CATMain」を探しますが、両方見つからない場合は
　　　ボタンが作成されません。

　　　制限としてﾁｪｯｸがちょっと甘く「Private Sub」や「Function」
　　　となっているﾌﾟﾛｼｰｼﾞｬは指定しないで下さい。

　　　又、引数付きのﾌﾟﾛｼｰｼﾞｬも指定しないで下さい。

他は全てでは有りませんが、CommandButtonオブジェクトのﾌﾟﾛﾊﾟﾃｨを
指定する事が可能です。制限はこちらです。
・レイアウトを維持する為これらのキーワードを指定しても
　無視されます。
「Top」「Left」「Height」「Width」

・プロパティの値がオブジェクトとなっているものは指定されても
　無視されます。
「Font」「MouseIcon」「Picture」

・プロパティの値が定数となっている場合、定数ではなく
　数値で指定する必要があります。（後に説明します）

{Caption} : ボタンに表示される文字で、値は文字列型です。
　　　何のﾏｸﾛのボタンかわからなくなるため設定を推奨します。

{ControlTipText:} : ボタン上にマウスカーソルを持っていく
　　　ことでに表示される文字で、値は文字列型です。
　　　何のﾏｸﾛのボタンかわからなくなるため設定を推奨します。

{BackColor}：ボタンの色で、値はLong型です。
　　　通常ﾌﾟﾛﾊﾟﾃｨでは、[&H000000FF&]のような状態で
　　　表示されていますが、値部分にそのまま入力しても
　　　色は反映されません。

　　　ｲﾐﾃﾞｨｴｲﾄｳｲﾝﾄﾞｳで「?」(又はprint)で表示させると
　　　Long型の値が返って来ますので、この値を設定してください。

?&H000000FF&
 255 

　　　又、定数を指定いるﾌﾟﾛﾊﾟﾃｨに関しても同様の方法で
　　　Long型で設定してください。
　　　・・・正直に書くと、試していませんが。

タグについてｸﾞﾀﾞｸﾞﾀﾞ記載しましたが、見た目。機能を
度外視すれば

'{Gp:1}

さえ追記すれば、ﾒﾆｭｰにボタンが表示されるようになります。

ﾌｫｰﾑ側の説明は次回に

手抜きﾏｸﾛ起動用ﾒﾆｭｰ1

CATIAのﾏｸﾛを実行する際、こちらの前半に記載した方法で
ﾂｰﾙﾊﾞｰに登録して使っているのですが

マクロを高速に実行させる(非公式) - C#ATIA

正直な所、登録が面倒です。
(何処で見たか忘れましたが、全てのﾌｧｲﾙを閉じた状態で
ﾂｰﾙﾊﾞｰを新規に作成すると、ﾜｰｸﾍﾞﾝﾁに依存しないﾂｰﾙﾊﾞｰが
作成可能なようです)

その為、ﾌｫｰﾑで自作のﾒﾆｭｰを作り自作ﾒﾆｭｰだけをﾂｰﾙﾊﾞｰに
登録してﾏｸﾛを起動して運用しています。
・・・が、非常に出来が悪く使い勝手もｲﾏｲﾁでした。

そこで重い腰を上げ、新たに作り直しました。こんな感じです。

驚く程の手抜き感です。
態々ﾌﾞﾛｸﾞに載せるほどのものか？　と、さえ思えます。

実は見た目以上に手抜きなのが、ﾏｸﾛの登録なんです。

最初にﾒﾆｭｰを起動した際、"Part" ﾀﾌﾞにはﾎﾞﾀﾝが1つしか
有りませんが、途中でVBｴﾃﾞｨﾀにﾓｼﾞｭｰﾙをD&Dで追加し
再度ﾒﾆｭｰを起動すると、ﾎﾞﾀﾝが追加されています。

これぐらい楽が出来るものが、前から欲しかったのですが
なかなか取り掛かれませんでした。

ｻﾝﾌﾟﾙﾏｸﾛを含めこちらにUpしております。

GrabCAD - CAD library

ちょっとだけ仕組みがあるため、それは次回に。

ProductTree の ﾘｵｰﾀﾞｰ2

こちらの続きです。
ProductTree の ﾘｵｰﾀﾞｰ - C#ATIA

ｻﾝﾌﾟﾙ用のﾏｸﾛを用意していたのですが、Product用のﾏｸﾛを持っていない為、
以前の物を修正し、ｲﾝｽﾀﾝｽ名でｿｰﾄするﾏｸﾛに変更しました。

'vba sample_ReOrder_Product ver0.0.1  using-'KCL0.0.12'  by Kantoku
'ｲﾝｽﾀﾝｽ名でのｿｰﾄ順にTreeを並び替えます

Option Explicit

Sub CATMain()
    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("ProductDocument") Then Exit Sub
    
    'Doc取得
    Dim ProDoc As ProductDocument: Set ProDoc = CATIA.ActiveDocument
    Dim Pros As Products: Set Pros = ProDoc.Product.Products
    If Pros.Count < 2 Then Exit Sub
    
    'ｵﾌﾟｼｮﾝ変更
    Dim AssyMode As AsmConstraintSettingAtt
    Set AssyMode = CATIA.SettingControllers.Item("CATAsmConstraintSettingCtrl")
    Dim OriginalMode As CatAsmPasteComponentMode
    OriginalMode = AssyMode.PasteComponentMode
    
    'ｵﾌﾟｼｮﾝ切り替え
    AssyMode.PasteComponentMode = catPasteWithCstOnCopyAndCut
    
    'ｿｰﾄ済み名前ﾘｽﾄ
    Dim Names: Set Names = Get_SortedNames(Pros)
    
    'ｶｯﾄ
    Dim Sel As Selection: Set Sel = ProDoc.Selection
    Dim Itm As Variant
    
    CATIA.HSOSynchronized = False
    
    Sel.Clear
    For Each Itm In Names
        Sel.Add Pros.Item(Itm)
    Next
    Sel.Cut
    
    'ﾍﾟｰｽﾄ
    With Sel
        .Clear
        .Add Pros
        .Paste
        .Clear
    End With
    
    CATIA.HSOSynchronized = True
    
    'ｵﾌﾟｼｮﾝ戻し,UpDate
    AssyMode.PasteComponentMode = OriginalMode
    ProDoc.Product.Update
End Sub

'ｲﾝｽﾀﾝｽ名でｿｰﾄ済みの名前ﾘｽﾄ
Private Function Get_SortedNames(ByVal Pros As Products) As Object
    Dim Lst As Object
    Set Lst = KCL.InitLst()
    
    Dim Pro As Product
    For Each Pro In Pros
        Lst.Add Pro.Name
    Next
    
    Lst.Sort
    
    Set Get_SortedNames = Lst
End Function

又、ｿｰﾄ処理が毎回面倒な為、KCLをVer0.0.12としました。
非常に個人的なCATVBA用ﾗｲﾌﾞﾗﾘ - C#ATIA