SOLIDWORKS API VBA #1

SOLIDWORKS API VBA #1
マクロの記録で作成 → コードを編集して寸法値を変更するマクロ
コード内で寸法名と数値を指定して更新
音声なし、、、日本語字幕でどうぞ

Dim swApp As Object

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

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myDimension As Object
Set myDimension = Part.Parameter("D2@ｽｹｯﾁ1")
Debug.Print myDimension.Value

myDimension.SystemValue = 120 / 1000

Set myDimension = Part.Parameter("D2@ｽｹｯﾁ2")
myDimension.SystemValue = 20 / 1000

Part.ClearSelection2 True
boolstatus = Part.EditRebuild3()

End Sub