C#ATIA

↑タイトル詐欺 主にFusion360API 偶にCATIA V5 VBA(絶賛ネタ切れ中)

スケッチ作業中か?判断する

CATIA V5で現在スケッチ作業中か? を判断します。

'vba スケッチ作業中か判断する
Option Explicit

Sub CATMain()

    Dim msg As String
    msg = "現在はスケッチ作業中"
    
    If isSketchWB Then
        msg = msg & "です!!"
    Else
        msg = msg & "ではありません"
    End If
    
    MsgBox msg
    
End Sub

Private Function isSketchWB() _
    As Boolean

  isSketchWB = CATIA.GetWorkbenchId = "CS0WKS"
  
End Function

isSketchWB関数で判断しています。一行に "=" が2個並んでいて異様です。
一行なので関数にする必要が無いのですが、あの一行より
”isSketchWB” の方が意味がわかりやすいと思いませんか?

Fusion360の場合は、これは必要無いんですよね。
スケッチ作業に入らなくても、スケッチ書き換えたり出来ちゃうので。