I am attempting to write a macro that will allow users to select lines on their drawings and then the lines will become bolded.
That part of the code is working great, however it just wont stop. The macro keeps running and I cannot end it. I have included the text for users to check.
I do not know exactly what is happening here as this is my first time dealing with classes
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.drawingDoc
Dim selMgr As SldWorks.SelectionMgr
Dim boolstatus As Boolean
Dim drawingDoc As New Class1
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Public WithEvents doc As drawingDoc
Public Function init(ByRef docin As Object)
Set doc = docin
Private Function doc_UserSelectionPostNotify() As Long