==============================
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
Dim i As Long
Dim L As Single
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
1:
For i = 0 To 9
‘数字的尺寸位置
Part.Parameter("D2@Sketch2").SystemValue = 0.015 + L
L = L + 0.065
'重建模
boolstatus = Part.EditRebuild3