選択時のみ原点平面を表示する

久々にFusion360のAPI。

こちらに頭に思い付いた手順をｽﾌﾟﾘｸﾄにしたのですが
Re: スケッチの線分コマンドのようなスケッチ選択を作成するにはどうすればいいですか - Autodesk Community

考えたら、アクティブなコンポーネントの原点の表示状態は選択時のみの話なので
選択時のみの関数に全て突っ込んでしまった方が、コード的にやさしい気がしました。
しかもPythonの例外処理には、必ず実行する "finally" が存在していたのを忘れてました。

#Fusion360 python
#選択時のみ原点平面を表示するサンプル

import adsk.core, adsk.fusion, traceback

def run(context):
    ui = None
    try:
        #ﾓﾛﾓﾛ
        app = adsk.core.Application.get()
        ui = app.userInterface
        
        #選択用のフィルタ
        selFilter = 'ConstructionPlanes,PlanarFaces'
        
        #選択
        msg = '平面を選択'
        selection = Sel(app, msg, selFilter)
        if selection is None: return
        
        #選択要素
        selitem = selection.entity
        
        #オブジェクト名
        ui.messageBox('Select Object Type : {}'.format(selitem.objectType))
    except:
        if ui:
            ui.messageBox('Failed:\n{}'.format(traceback.format_exc()))

def Sel(app, msg, selFilter):
    ui = app.userInterface
    des = adsk.fusion.Design.cast(app.activeProduct)
    
    light = GetActiveCompOriginLight(des)
    SetActiveCompOriginLight(des, (True,True,True,True))
    
    try:
        return ui.selectEntity(msg, selFilter)
    except:
        return None
    finally:
        SetActiveCompOriginLight(des, light)

#現行ｺﾝﾎﾟｰﾈﾝﾄの原点表示状態取得
def GetActiveCompOriginLight(des):
    comp = adsk.fusion.Component.cast(des.activeComponent)
    xy = comp.xYConstructionPlane
    xz = comp.xZConstructionPlane
    yz = comp.yZConstructionPlane
    
    return (comp.isOriginFolderLightBulbOn,
            xy.isLightBulbOn,
            xz.isLightBulbOn,
            yz.isLightBulbOn)

#現行ｺﾝﾎﾟｰﾈﾝﾄの原点表示状態設定
def SetActiveCompOriginLight(des,light_set):
    comp = adsk.fusion.Component.cast(des.activeComponent)
    xy = comp.xYConstructionPlane
    xz = comp.xZConstructionPlane
    yz = comp.yZConstructionPlane
    
    comp.isOriginFolderLightBulbOn = light_set[0]
    xy.isLightBulbOn = light_set[1]
    xz.isLightBulbOn = light_set[2]
    yz.isLightBulbOn = light_set[3]

ｽｹｯﾁの拘束の参照を切り替える

少し前に作成したこちらのﾏｸﾛ、使いにくくてしょうがない。
クリックしたｽｹｯﾁ点にHVの拘束を付ける - C#ATIA
何処かに、拘束が重複しないように整えてくれるﾏｸﾛ、落ちてないでしょうか?
（標準な機能では無いですよね?）

非常に下らないのですが、ｽｹｯﾁの拘束の参照のON OFFを切り替える
ﾏｸﾛを作ってみました。

最近、この操作を頻繁に行って疲れてきたので。
（そもそもそんな拘束を作りたくないのですが、ﾙｰﾙ上仕方なく･･･）

こんなｺｰﾄﾞです。

'vba ｽｹｯﾁ ｵﾌｾｯﾄ拘束 ﾓｰﾄﾞ切り替えﾃｽﾄ
Sub CATMain()
    'ﾜｰｸﾍﾞﾝﾁﾁｪｯｸ
    If Not CATIA.GetWorkbenchId = "CS0WKS" Then
        MsgBox "ｽｹｯﾁ作業中のみ使用できます"
        Exit Sub
    End If
    
    
    '選択準備
    Dim sel As Variant ' Selection
    Set sel = CATIA.ActiveDocument.Selection
    
    Dim filter As Variant
    filter = Array("Constraint")
    
    Dim msg As String
    msg = "拘束を選択 / ESC=ｷｬﾝｾﾙ"
    
    '選択
    Do
        sel.Clear
        Select Case sel.SelectElement2(filter, msg, False)
            Case "Cancel", "Undo", "Redo"
                Exit Sub
        End Select
        Call ChangeMode(sel.Item(1).value)
    Loop
End Sub

'拘束ﾓｰﾄﾞ切り替え
Private Sub ChangeMode(ByVal con As Constraint)
    con.Mode = IIf(con.Mode = catCstModeDrivenDimension, _
                   catCstModeDrivingDimension, _
                   catCstModeDrivenDimension)
End Sub

通常の場合であれば、これだけで十分機能するのですが、
問題は通常じゃない時です。

例えば、こんな状態です。（普段は拘束名は表示しないのです。邪魔なので。）

過剰拘束の状態なのですが、ｵﾌｾｯﾄ7,8,12の何れかを参照にすれば
解消されますよね。

上記のﾏｸﾛでｵﾌｾｯﾄ7を選択すると

消えたのではなく、黒くなって見えにくくなっちゃいます。

一度ｽｹｯﾁｬｰから抜け、再度入ると正しく表示してくれます。

ｽｹｯﾁ解析を見てみると

ｸﾘｯｸしたｵﾌｾｯﾄ7が "不明" なのは理解できますが、
過剰拘束が解消したｵﾌｾｯﾄ8,12は問題無いのですが、黒いんです。
そもそも黒い拘束は何を意味しているのでしょうか??

Helpのｽｹｯﾁｬｰの "色の使用" を見ても黒色の説明が無さそう･･･。
（そもそも黒なのか?）
何となくUpdate待ちのような気がしたので、Updateさせることに
しました。

'拘束ﾓｰﾄﾞ切り替え
Private Sub ChangeMode(ByVal con As Constraint)
    con.Mode = IIf(con.Mode = catCstModeDrivenDimension, _
                   catCstModeDrivingDimension, _
                   catCstModeDrivenDimension)
    Dim pt As Part
    Set pt = KCL.GetParent_Of_T(con, "Part")
    
    Call pt.UpdateObject(con)
End Sub

結論から書くと、これでは問題の解消にはなりませんでした。

    'Call pt.UpdateObject(con)
    Call pt.Update

こうすると上手く出来るのですが(何故か最初は失敗する事が多い)、
作業しているｽｹｯﾁより、PartのTreeの上部でｴﾗｰが出ている場合、
上手く行かないような気がするので、単純なUpdateはしたくないのが
本音です。

仕方が無いので、作業中のｽｹｯﾁをUpdateすることにしました。

'拘束ﾓｰﾄﾞ切り替え
Private Sub ChangeMode(ByVal con As Constraint)
    con.Mode = IIf(con.Mode = catCstModeDrivenDimension, _
                   catCstModeDrivingDimension, _
                   catCstModeDrivenDimension)
    Dim pt As Part
    Set pt = KCL.GetParent_Of_T(con, "Part")
    
    Dim skt As Sketch
    Set skt = KCL.GetParent_Of_T(con, "Sketch")
    
    Call pt.UpdateObject(skt)
End Sub

これも最初に失敗する事があるのですが、比較的安定して正しく表示
されるようになりました。

一応、CATIA.RefreshDisplay の切り替えのみをﾃｽﾄしましたが、
効果がないです。　それを考えると表示だけの問題では無さそうです。
（そもそもこんな拘束を作りたくない･･･）

CAD利用技術者試験4

こちらの続きです。
CAD利用技術者試験3 - C#ATIA

結果が出ました。十分遅いとは思うのですが、思ったよりは早かったです。

実は、最後の問題のモデルは完成しなかったんです。
帰りの電車の中で、赤印部分に "貫通穴あけるの忘れた"
と気が付いてはいたのですが

途中で形状を勘違いして進めていた事に気が付いたのですが、
初期段階まで履歴を戻る必要が有り（シェルが関係する部分だった為）
残り時間を考慮しどうすべきか？直ぐに判断しなければならなかったのですが･･･。
最後の問い（体積・重心）以外は間違えたまま進めても答えられる為、
"履歴を戻ってエラー地獄になるより、1問捨てたほうが良いだろう”
と判断しました。
結果的に時間内に修正できたのですが、
”最後の問いまで、答えに関係ないから後で作ろう”　と思っていた
上記の貫通穴をすっかり忘れてました。
（答えに選択肢が無い状態です）

過去問の傾向から、5択の問題でも2択までは何となく絞れるので
後は運任せの選択で良い方に転がったようです。
（ある意味練習の成果かも知れませんが）

･･･2級は、お見せ出来る点数じゃないのでﾅｲｼｮです。

スピン中心

昨夜の書き込みのこれ、すごくありがたいです。
Tips & Tricks - Page 5 - Autodesk Community
こちらの MESSAGE 82 のものです。

PowerMill優秀なのですが、操作性がｲﾏｲﾁな部分が有り、一番困っていたのは
このスピンの中心点です。
特に細かい部分を確認する為にｽﾞｰﾑしてｽﾋﾟﾝさせると、見たい部分がどっかに
行っちゃうんです。　PowerMillは基本的にｽﾋﾟﾝの中心は画面の中央に設定されています。
（Fusion360も同様で、ｽﾞｰﾑ時のｽﾋﾟﾝが辛い）

この内容、過去にｻﾎﾟｰﾄさんにも相談してﾏｸﾛを作ったりしてｲﾛｲﾛ試したのですが
ここまで見事な解決策まで辿り着けませんでした。

ちょっぴり使い勝手が悪い為、kukelykさんが修正して（MESSAGE 84）くれているの
ですが、単体のﾏｸﾛでの呼び出しであればOKだけど、ｺﾝﾃｷｽﾄﾒﾆｭｰから呼び出すと
PowerMillが固まってしまうとの事。（確かにPAUSEﾀﾞｲｱﾛｸﾞは邪魔です）

お互いの良いとこ取りしたﾏｸﾛにし、ﾓﾃﾞﾙのｺﾝﾃｷｽﾄﾒﾆｭｰ呼び出しで使う事に
しました。（ｽﾞｰﾑ時は、何も無いｽﾍﾟｰｽで右ｸﾘｯｸ出来ない可能性が高いので）

最初のﾏｸﾛを作った方ですが、PowerMillでAutodesk Expert Eliteなられた方で
今までPowerMillにはいなかったんですよね。
kukelykさんや5axisさんも十分値するんだけどなぁ。

ｽﾛｯﾄ形状の長手方向の寸法

いつもｲﾗｲﾗしてしまうのですが、3Dから2D落としたものに
寸法を入れるときですが

赤印はｽﾛｯﾄの中心で寸法を作成しているのですが、
実際に欲しいのは青印の長手方向での寸法です。

中心線は、交点を検出してくれないです。
点を作って拘束させてｺﾞﾆｮｺﾞﾆｮしたり、
形状の複写をし、中心線とトリムして任意の端点作ってみたり
接線作ってﾎｹﾞﾎｹﾞしたり　すれば一時的には出来上がるのですが
修正・変更した際に寸法だけが置いてけぼりになってしまうので困ります。
（3D上でﾘﾝｸした点を作っておけば事足りるのですが、客先も嫌がるだろうし）
世間の皆様はどうやっているのでしょうか？

利用方法から、設計上Rの中心の寸法で十分のような気がするのですが。
（どうせバカ穴だろうし･･･）

クリックしたｽｹｯﾁ点にHVの拘束を付ける

何となく、近い将来必要に迫られる気がしたので、作りました。
スケッチャーWB時のみ、クリックしたスケッチの点に原点からHとVの
拘束を付けます。

'vba 選択したｽｹｯﾁの点にHVの拘束を作成  using-'KCL0.0.12'

Sub CATMain()
    'ﾜｰｸﾍﾞﾝﾁﾁｪｯｸ
    If Not CATIA.GetWorkbenchId = "CS0WKS" Then
        MsgBox "ｽｹｯﾁ作業中のみ使用できます"
        Exit Sub
    End If
    
    'ﾓﾛﾓﾛ取得
    Dim skt As Sketch
    Set skt = GetActiveSketch()
    
    Dim ax2d As Axis2D
    Set ax2d = skt.AbsoluteAxis
    
    Dim cons As Constraints
    Set cons = skt.Constraints
    
    Dim pt As Part
    Set pt = KCL.GetParent_Of_T(skt, "PartDocument").Part
    
    Dim refH As Reference
    Set refH = pt.CreateReferenceFromObject(ax2d.HorizontalReference)
    
    Dim refV As Reference
    Set refV = pt.CreateReferenceFromObject(ax2d.VerticalReference)
    
    '選択準備
    Dim sel As Variant ' Selection
    Set sel = CATIA.ActiveDocument.Selection
    
    Dim filter As Variant
    filter = Array("Point2D")
    
    Dim msg As String
    msg = "点を選択 / ESC=ｷｬﾝｾﾙ"

    Dim refP As Reference
    
    '選択
    Do
        sel.Clear
        Select Case sel.SelectElement2(filter, msg, False)
            Case "Cancel", "Undo", "Redo"
                Exit Sub
        End Select
        Set refP = sel.Item(1).Reference
        Call InitConstraint(refP, refH, refV, cons)
    Loop
End Sub

'拘束作成
Private Sub InitConstraint(ByVal refP As Reference, _
                           ByVal refH As Reference, _
                           ByVal refV As Reference, _
                           ByVal cons As Constraints)
    Dim con(1) As Constraint
    With cons
        Set con(0) = .AddBiEltCst(catCstTypeDistance, refH, refP)
        Set con(1) = .AddBiEltCst(catCstTypeDistance, refV, refP)
    End With
    
    Dim i As Long
    For i = 0 To UBound(con)
        If Not con(i).Status = catCstStatusOK Then
            Call RemoveConstraint(con(i))
        End If
    Next
End Sub

'拘束削除
Private Sub RemoveConstraint(ByVal con As Constraint)
    Dim sel As Selection
    Set sel = CATIA.ActiveDocument.Selection
    
    With sel
        .Clear
        .Add con
        .Delete
    End With
End Sub

'ｱｸﾃｨﾌﾞなｽｹｯﾁ取得
Private Function GetActiveSketch() As Sketch
    Dim sel As Selection
    Set sel = CATIA.ActiveDocument.Selection
    
    Dim skt As Sketch
    
    With sel
        Call .Clear
        Call .Search("CATPrtSearch.Sketch,in")
        Set skt = .Item(1).value
        Call .Clear
    End With
    Set GetActiveSketch = skt
End Function

突貫で作ったのでちょっと雑です。

スケッチの点は "自動寸法拘束" が付かないんですよね。

付かなくて正解なんですけど。(恐らく邪魔)

過拘束も新たに作成しようとしている分はﾁｪｯｸしています。

三角形の数

子供の夏休みの宿題の中に、パズルっぽい楽しそうな問題が有りました。

この絵の中に三角形は幾つ有るでしょうか？　と言う問題です。

これは何か有名な問題か何かでしょうか?

単に数えてしまえば良いだけなのですが、大人の為
何とか計算で導き出せないものか？　と考えてみました。

まず、ピラミッドが1段の場合は、当然1個です。

このサイズを1ﾕﾆｯﾄとしておきます。

2段の場合、5個となります。

1ﾕﾆｯﾄのものが4個と4ﾕﾆｯﾄのもの（外周部分）が1個です。
数学の三角数の派生っぽさもあるのですが、外周部分にも三角形が
現れる為、すんなり行かない様なにおいがします。

3段目の場合、13個です。

1ﾕﾆｯﾄ-9個
4ﾕﾆｯﾄ-3個
9ﾕﾆｯﾄ-1個
この絵を描くのが結構手間なので、CATIAでｲﾛｲﾛ駆使して
簡単に書けるようにしてみましたよ。

ここまでをまとめると、こんな感じになります。

こうしてみると、数列のような雰囲気を感じます。
これを元に4段を予想するのが大人。

1段前との差（増加分）を "等差数列" と解釈すれば "12" となり
13 + 12 = 25
"等比数列" と解釈すれば "16" で
13 + 16 = 29
最初に書いたように、増え方がすんなりでは無いように感じるので
29と予想してみました。

で、4段は

1ﾕﾆｯﾄ-16個
4ﾕﾆｯﾄ-6個
9ﾕﾆｯﾄ-3個
16ﾕﾆｯﾄ-1個
逆4ﾕﾆｯﾄ-1個
計27個・・・予想が外れました。

逆4ﾕﾆｯﾄはここです。

まさか、逆側の三角形が現れるとは思っていませんでした。
小学生向けの問題だったので、これに気が付くかどうか？
が問題作成者の狙いの様に感じます。

大人はここで諦めない。まとめるとこんな感じです。

"加速具合" と言う怪しげな項目を増やしました。
"1段前との差" が "増加具合" なら、その差は "加速具合" です？

数学ｶﾞｰﾙｼﾘｰｽﾞの数列のﾔﾂをちょっと読みましたが（理解は出来ない）
導関数って名称でしたっけ？　きっと数学的には適切な用語があるはずです。

ここで5段を予想。加速具合を "8" と考え、
8 + 14 + 27 = 49
で "49" と予想。

さぁ、数えてみよう！

1ﾕﾆｯﾄ-25個
4ﾕﾆｯﾄ-10個
9ﾕﾆｯﾄ-6個
16ﾕﾆｯﾄ-3個
25ﾕﾆｯﾄ-1個
逆4ﾕﾆｯﾄ-3個
計48個・・・あと1個探したのですが見つからない。
逆9ﾕﾆｯﾄはあと1段増えないと現れてはくれません。

ん～僕レベルでは見つけられなかったです。
子供には伝えましたよ。
素直に数えろ！
と。