C#ATIA

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

Factory2Dが許してくれない2 (許してもらいました)

こちらの続きです。
Factory2Dが許してくれない1 - C#ATIA

すいません、嘘を書いていました。

線を描きたい場合は、該当するビューをアクティブにする
必要がありました・・・。

drawLineTest関数は、この一行を書き足すだけ大丈夫でした。

Private Sub drawLineTest( _
    ByVal view As DrawingView, _
    ByVal area As Variant)
    
    'ロックは強制的に解除
    If view.LockStatus Then
        view.LockStatus = False
    End If
    
    view.Activate 'ここ!!!
    
    Dim fact As Factory2D
    Set fact = view.Factory2D

    Call fact.CreateLine(area(0), area(2), area(1), area(3))
    
End Sub

色々な事を忘れてます。前回は For~Next の "Next" が出てこなかったり、
最近では関数を途中で抜け出す "exit function" が出てこなかったり。