Page 84 - 6735

Public Sub main()
Dim swApp As Object 'об'єкт SolidWorks Application
Dim Part As Object 'об'єкт документ SolidWorks
Set swApp = CreateObject("SldWorks.Application") 'створити
об'єкт
Set Part = swApp.ActiveDoc 'активний документ
'змінити значення параметра на 20 мм
Part.Parameter("D1@Extrude1").SystemValue = 20 / 1000
Part.EditRebuild 'перебудувати модель
End Sub

Параметричні моделі з рівняннями у SOLIDWORKS API

Приклад показує можливість перебудови параметричної моделі
SOLIDWORKS, яка містить рівняння (рис. 3.2), шляхом зміни цих
рівнянь. Модель містить чотири рівняння (рис. 3.3), одне з яких є
глобальною змінною h. Рівняння в розділі Features дозволяє
вимкнути елемент Fillet1 (скруглення). Решта рівнянь задають
розміри моделі – довжину ("D2@Sketch1") і товщину ("D1@Boss-
Extrude1"). Зверніть увагу, що параметр висоти моделі не
залежить від рівнянь.

Рисунок 3.2 – Параметрична модель з рівняннями

84