Page 103 - 6735

Private Sub ComboBox2_Change() 'вибрано вигляд
Set view = findView(ComboBox1.Text, ComboBox2.Text, data)
writeViewFields
End Sub

Private Sub CommandButton2_Click() 'кнопка save
Set view = findView(ComboBox1.Text, ComboBox2.Text, data)
readViewFields
End Sub

Private Sub CommandButton1_Click() 'кнопка GenerateDrawing
GenerateDrawing data
End Sub

Private Sub CommandButton3_Click() 'кнопка UpdateDrawing
UpdateDrawing TextBox6.Text, data
End Sub

Private Sub UserForm_Initialize() 'ініціалізація форми
Dim view1 As New DrawingView
Dim view2 As New DrawingView
Dim sheet1 As New DrawingSheet
Dim sheet2 As New DrawingSheet

Set swApp = Application.SldWorks
macroPath = UCase(swApp.GetCurrentMacroPathFolder)
Macro21.macroPath = macroPath 'шлях до каталогу з макросом
Debug.Print macroPath

'заповнити дані
view1.Name = "Drawing View1"
view2.Name = "Drawing View2"
view1.ReferenceModelPath = macroPath & "\part1.SLDPRT"
view2.ReferenceModelPath = macroPath & "\part1.SLDPRT"
view1.Configuration = "По умолчанию"
view2.Configuration = "По умолчанию"

103