Page 92 - 6735

Excel
Cells(i, 2).Value = x
Cells(i, 5).Value = Part.Parameter(p2).SystemValue *
1000
i = i + 1 'зміна значення лічильника
Next x
End Sub
'Процедура виконує табулювання кінематичних параметрів для
заданих у таблиці параметрів переміщень, швидкостей і
прискорень
Private Sub p_tabl()
Dim p1, p2 As String
'отримати текст із текстових полів
p1 = TextBox1.Text
p2 = TextBox5.Text
'очистити діапазон
Range("e3:e1000").Clear
'цикл від трьох до кількості чисел у діапазоні В
For i = 3 To Cells(1, 8).Value
'зміна значень параметрів
Part.Parameter(p1).SystemValue = Cells(i, 2).Value
Part.EditRebuild 'перебудова моделі
'Виведення значень параметрів у відповідні комірки
Excel
Cells(i, 5).Value=Part.Parameter(p2).SystemValue*1000
Next i
End Sub
'Процедура закриття діалогового вікна
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Креслення у SOLIDWORKS API

Наступна програма являє собою макрос SOLIDWORKS 2015
мовою VBA та призначена для автоматизації побудови нового та
перебудови існуючого креслення SOLIDWORKS за даними
92