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