Page 97 - 6735

Public macroPath As String 'шлях до каталогу з макросом
(робочого каталогу)
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

'процедура створює креслення за даними data
Sub GenerateDrawing(data As DrawingData)
'масив імен стандартних видів
ViewNames = Array("*Front", "*Front", "*Back", "*Left",
"*Right", "*Top", "*Bottom")

Set swApp = Application.SldWorks
'нове креслення
Set swDraw = swApp.NewDocument(macroPath & "\\a3 -
gost_sh1.slddrt", 0, 0, 0)
For Each s In data.Sheets 'для кожного листа в data
'новий лист
boolstatus = swDraw.NewSheet3(s.Name, 12, 12, 2, 1,
True, macroPath & "\\a3 - gost_sh1.slddrt", 0.42, 0.297,
"По умолчанию")
For Each v In s.views 'для кожного виду листа в data
'новий вид
Set myView =
swDraw.CreateDrawViewFromModelView3(v.ReferenceModelPath,
ViewNames(v.ModelViewName), v.PositionX, v.PositionY, 0)
'задати конфігурацію
myView.ReferencedConfiguration = v.Configuration
Next v
Next s

End Sub

'оновлює креслення drawingPathName за даними data
Public Sub UpdateDrawing(drawingPathName As String, data
As DrawingData)
Dim sname As String
Dim compName As String

97