ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magicsld/MAGIC.vb
(Generate patch)

Comparing magicsld/MAGIC.vb (file contents):
Revision 40 by bournival, Mon Aug 20 21:30:28 2007 UTC vs.
Revision 48 by bournival, Wed Aug 22 21:18:12 2007 UTC

# Line 1 | Line 1
1 < Imports SldWorks
2 < Imports SWPublished
3 < Imports SwConst
1 > Imports SolidWorks.Interop
2 > Imports SolidWorks.Interop.swconst
3 > Imports SolidWorks.Interop.swpublished
4   Imports System.Runtime.InteropServices
5  
6  
# Line 206 | Line 206 | Namespace MAGIC
206              AttachSWEvents()
207  
208              'Listen for events on all currently open docs
209 <            Dim modDoc As ModelDoc2
209 >            Dim modDoc As sldworks.ModelDoc2
210              modDoc = iSwApp.GetFirstDocument()
211              While (Not modDoc Is Nothing)
212                  If (Not openDocs.Contains(modDoc)) Then
# Line 221 | Line 221 | Namespace MAGIC
221  
222              'Close events on all currently open docs
223              Dim docHandler As DocumentEventHandler
224 <            Dim key As ModelDoc2
224 >            Dim key As sldworks.ModelDoc2
225              Dim numKeys As Integer
226              numKeys = openDocs.Count
227              If numKeys > 0 Then
# Line 252 | Line 252 | Namespace MAGIC
252              RemoveHandler iSwApp.ActiveModelDocChangeNotify, AddressOf Me.SldWorks_ActiveModelDocChangeNotify
253          End Function
254  
255 <        Function AttachModelDocEventHandler(ByVal modDoc As ModelDoc2) As Boolean
255 >        Function AttachModelDocEventHandler(ByVal modDoc As sldworks.ModelDoc2) As Boolean
256              If modDoc Is Nothing Then
257                  Return False
258              End If
# Line 270 | Line 270 | Namespace MAGIC
270              End If
271          End Function
272  
273 <        Function DetachModelEventHandler(ByVal modDoc As ModelDoc2)
273 >        Function DetachModelEventHandler(ByVal modDoc As sldworks.ModelDoc2)
274              Dim docHandler As DocumentEventHandler
275              docHandler = openDocs.Item(modDoc)
276              openDocs.Remove(modDoc)
# Line 285 | Line 285 | Namespace MAGIC
285          End Function
286  
287          Function SldWorks_DocumentLoadNotify(ByVal docTitle As String, ByVal docPath As String) As Integer
288 <            Dim modDoc As ModelDoc2
288 >            Dim modDoc As sldworks.ModelDoc2
289              modDoc = iSwApp.GetFirstDocument()
290              While Not modDoc Is Nothing
291                  If modDoc.GetTitle = docTitle Then

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines