43 lines
1.6 KiB
VB.net
43 lines
1.6 KiB
VB.net
Imports SolidWorks.Interop.sldworks
|
|
Imports SolidWorks.Interop.swconst
|
|
Imports Xarial.XCad.SolidWorks.Documents.Services
|
|
|
|
Public Class DocHandler
|
|
Inherits SwDocumentHandler
|
|
|
|
Protected Overrides Sub AttachPartEvents(part As PartDoc)
|
|
AddHandler part.ConfigurationChangeNotify, AddressOf OnConfigurationChange
|
|
End Sub
|
|
|
|
Protected Overrides Sub AttachAssemblyEvents(assm As AssemblyDoc)
|
|
AddHandler assm.ConfigurationChangeNotify, AddressOf OnConfigurationChange
|
|
End Sub
|
|
|
|
Protected Overrides Sub AttachDrawingEvents(drw As DrawingDoc)
|
|
AddHandler drw.ActivateSheetPostNotify, AddressOf OnActivateSheet
|
|
End Sub
|
|
|
|
Protected Overrides Sub DetachPartEvents(part As PartDoc)
|
|
RemoveHandler part.ConfigurationChangeNotify, AddressOf OnConfigurationChange
|
|
End Sub
|
|
|
|
Protected Overrides Sub DetachAssemblyEvents(assm As AssemblyDoc)
|
|
RemoveHandler assm.ConfigurationChangeNotify, AddressOf OnConfigurationChange
|
|
End Sub
|
|
|
|
Protected Overrides Sub DetachDrawingEvents(drw As DrawingDoc)
|
|
RemoveHandler drw.ActivateSheetPostNotify, AddressOf OnActivateSheet
|
|
End Sub
|
|
|
|
Function OnActivateSheet(SheetName As String) As Integer
|
|
Application.SendMsgToUser($"'{SheetName}' sheet is activated in {Model.GetTitle()}")
|
|
Return 0
|
|
End Function
|
|
|
|
Function OnConfigurationChange(ConfigurationName As String, [Object] As Object, ObjectType As Integer, changeType As Integer) As Integer
|
|
Application.SendMsgToUser($"'{ConfigurationName}' configuration is activated in {Model.GetTitle()} [{CType(changeType, swConfigurationChangeTypes_e)}]")
|
|
Return 0
|
|
End Function
|
|
|
|
End Class
|