Page 102 - 6735

'If Not dv Is Nothing Then Debug.Print
dv.ReferenceModelPath

'вікно з кнопками Yes-No
nvar = MsgBox("YES for Generate Drawing" & Chr(13) & "or
NO for Update Drawing", 4, "Press")
Debug.Print nvar
If nvar = 6 Then 'якщо вибрано Yes
GenerateDrawing data 'створити креслення
Else
'інакше змінити атрибути і оновити креслення
view1.ReferenceModelPath = macroPath & "\part2.SLDPRT"
view2.ReferenceModelPath = macroPath & "\part2.SLDPRT"
view2.Configuration = "20"
view1.ModelViewName = 2
view1.PositionX = 0.14
view1.PositionY = 0.18
UpdateDrawing macroPath & "\Drawing1.SLDDRW", data
'оновити
End If
End Sub

Модуль UserForm1:
Dim swApp As SldWorks.SldWorks
Dim view As New DrawingView
Dim data As New DrawingData

Private Sub ComboBox1_Change() 'вибрано лист
ComboBox2.Clear
For Each s In data.Sheets
If s.Name = ComboBox1.Text Then
For Each v In s.views
ComboBox2.AddItem v.Name
Next v
End If
Next s
End Sub
102