Page 96 - 6735

Public views As Collection
Public Name As String
Private Sub Class_Initialize()
Name = ""
Set views = New Collection
End Sub

Модуль класу DrawingView:
Public Name As String
Public ModelViewName As Integer '0-*Front,1-*Front,2-
*Back,3-*Left,4-*Right,5-*Top,6-*Bottom
Public PositionX As Double
Public PositionY As Double
Public ReferenceModelPath As String
Public Configuration As String

Private Sub Class_Initialize()
Name = ""
ModelViewName = 0
PositionX = 0
PositionY = 0
ReferenceModelPath = ""
Configuration = ""
End Sub

Модуль Macro21:
Dim swApp As SldWorks.SldWorks 'об'єкт програма-SolidWorks
Dim swModel As SldWorks.ModelDoc2 'об'єкт модель
Dim swDraw As SldWorks.DrawingDoc 'об'єкт креслення
Dim myView As SldWorks.view 'об'єкт вид
Dim swModelDocExt As SldWorks.ModelDocExtension 'об'єкт
розширення моделі
Dim swDrawingComponent As SldWorks.DrawingComponent
'об'єкт компонент креслення
Dim swSelectionMgr As SldWorks.SelectionMgr 'об'єкт
менеджера вибору

96