SOLIDWORKS api スケッチや平面の表示・非表示をワンクリックで

なんか原点とか平面が多くて見づらくって

平面とかは必要に応じて表示・非表示を切り替えられたら便利です

SOLIDWORKS apiとはVBAなどのプログラムを使用して便利なツールを作成する機能です

みんなで使うからこそ難しい

スケッチや平面を常に表示する人と、しない人

普段はスケッチや平面があると見づらいと感じていて、必要に応じて表示するようにしています

他人のデータを見ることが多いのですが、千差万別で非常に見難かったりします

（本人は見やすいのでしょうが）

そこで、ワンクリックで不要なデータを非表示にするツールを作成しました

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub viewAllOff()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    
    boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, True)
End Sub

次に欲しいデータのみを表示するツールです スケッチと平面を表示します

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub viewSet()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    
    boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, False)
    
    boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayPlanes, True)
    boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplaySketches, True)

End Sub

最初に全タイプ非表示をFalseにするのがポイントです