How do you close the file in a FileNewNotify2() event?

Question

Hi,I'm fairly new to the SolidWorks API and am having a heck or a time with it.The problem I am currently having, is when a user creates a new file, adialog box opens for user interaction.  But if the user cancels, I need toclose the newly created file.I thought the FileNewNotify2 event was the way to go, but for the life of meI cannot close that file!  and to be honest, I don't find the APIDocumentation all that helpful.This has got to be something simple, can somebody provide me with a clue?Thanks in advance,John----------------------------------------------------------------------------------------------  --  --  --  --  -- ------------------------------------------------------------------------------------------Option ExplicitImplements SWPublished.SwAddinPrivate WithEvents m_oSldWrks As Private Function m_oSldWrks_FileNewNotify2(ByVal newDoc As Object, _                                            ByVal DocType As Long, _                                            ByVal templateName As String) AsLong    '// open a dlg box    '// if dlg box was cancelled, then close new file    Dim sTitle As String    sTitle =   '// newDoc is assumed to be a     sTitle    m_oSldWrks.QuitDoc sTitle   '// doesn't work     sTitle  '// doesn't workEnd FunctionPrivate Function SwAddin_ConnectToSW(ByVal ThisSW As Object, _                                     ByVal Cookie As Long) As Boolean    '// set data member object    Set m_oSldWrks = ThisSWEnd FunctionPrivate Function SwAddin_DisconnectFromSW() As Boolean    '// clear data member object    Set m_oSldWrks = NothingEnd Function

Corey Scheich · Accepted Answer

Modify this code for your userformDim swApp as Dim NewModelDoc as Private Sub CommandButtonCancel_Click() (EndEnd SubPrivate Sub YourUserFormName_Initialize()Set swApp = Set NewModelDoc =  End SubThen when FileNewNotify2 envokes your UserForm the user form will grab theNew Document's Object for you to manipulate.Regards,Corey Scheich --

John · Answer

Hi Corey,I tried what you suggested and it worked fine in a SolidWorks Macro.However, I am building a Visual Basic COM DLL and although I modified my oldcode (the FileNewNotify2 event specifically) to use the ActiveDoc as yousuggested, BUT it still did not work.Private Function m_oSldWrks_FileNewNotify2(ByVal newDoc As Object, _                                            ByVal DocType As Long, _                                            ByVal templateName As String) AsLong    Dim oDoc As     Set oDoc =       '// doesn't work    m_oSldWrks.QuitDoc   '// doesn't workEnd FunctionDoes anybody know why Corey's code would work in a Macro, but the same thingwill not work from a VB COM DLL?Thanks,John

Corey Scheich · Answer

John I think you are going to have to Load and show a user form and cancel using the userform. I can't get it to work Unless I use a userform. You have to envoke the form for your user to be able to cancel anyway.

Private Function m_oSldWrks_FileNewNotify2(ByVal newDoc As Object, _ ByVal DocType As Long, _ ByVal templateName As String) As Long

Load Userform1 Userform1.Show True End Function

then on the user form

Private Sub CommandButton1_Click() ThisLibrary.m_oSldWrks.CloseDoc (ThisLibrary.m_oSldWrks.ActiveDoc.GetTitle) End Sub

Corey

rocheey · Answer

well, a couple of questions before i give a couple of **guesses***

1) was your VB code also done from a form module? A form module is a (type of) class module, and only class modules can recieve events. 2) was your VB form one that was imported from the VBA form? If so, check the syntax: the default control naming, and even some of the events, differ from VBA, to VB....

How do you close the file in a FileNewNotify2() event?

Join the Discussion

Didn't find your answer?