vba - VBA im Solidworksで特定のビューを選択する

Question

次のコードを使用して SolidWorks 図面のビューを選択するマクロがあります。

Set swDraw = swApp.ActiveDoc  
Set swView = swDraw.GetFirstView  
Set swView = swView.GetNextView  

これを変更して " " という名前のビューを選択するにはどうすればよいDrawing View1ですか?

Answer 1

swViewオブジェクトがタイプであると仮定すると、メソッドiViewを使用して名前を取得できます。GetName2したがって、GetNextView既に行った方法を使用して図面内の各ビューを列挙し、名前が一致するかどうかを確認できます。

十分に文書化されているわけではありませんが、価値があるのは、GetNextViewメソッドがnothing列挙の終了後に null 参照ポインター (vb など) を返すことです。

Set swDraw = swApp.ActiveDoc  
Set swView = swDraw.GetFirstView  
Do While Not swView is Nothing
    If swView.GetName2 = "Drawing View1" then Exit Do
    Set swView = swView.GetNextView  
Loop