Page 90 - 6735

Рисунок 3.6 – Кінематика повзуна поперечно-строгального
верстата

Const swDocPART = 1 'константи
\SldWorks\samples\appComm\swconst.h
Const swDocASSEMBLY = 2
Const swDocDRAWING = 3
Dim swApp As Object 'оголошення об'єкта swApp
Dim Part As Object 'оголошення об'єкта Part
Dim x As Double 'оголошення змінної параметра моделі
Dim i As Integer 'оголошення змінної лічильника записів
бази даних
'Ініціалізується форма користувача
Private Sub UserForm_Initialize()
MyPath = CurDir 'визначення поточного каталогу
MyPath = "C:\sldworks\ПСВ"
'створення об’єкта swApp
Set swApp = CreateObject("SldWorks.Application")
'створення об’єкта Part
Set Part = swApp.OpenDoc(MyPath + "\ПСВ.SLDASM",
swDocASSEMBLY)
If Part Is Nothing Then
Exit Sub
'якщо Part не існує, то вихід
Else
'інакше активувати
90