ds-blue-logo
Preview  |  SOLIDWORKS USER FORUM
Use your SOLIDWORKS ID or 3DEXPERIENCE ID to log in.
CDChris Day18/05/2012

Hi,

I'm trying to add functionality to a working macro, making the macro "remember" the last user input. Taking a page from Matthew Lorono's book [RevBlockAdd v1.13], I inserted this code just to check if a file is avaliable (as a first step).

    DefaultDrawn = swApp.GetCurrentMacroPathFolder             ' Get macro path

  DefaultDrawn = DefaultDrawn + "\AddRevision.ini"           ' Set source filename

  Set fso = CreateObject("Scripting.FileSystemObject")

  If fso.FileExists(DefaultDrawn) Then                       ' Does source file exist?

    Set DefaultDrawnFile = fso.OpenTextFile(DefaultDrawn, 1)

      MsgBox ("AddRevision.ini exists"), vbInformation

  Else

      MsgBox ("AddRevision.ini does not exist"), vbInformation

  End If

When I run the macro, I get the error "Object variable or With block variable not set," which points to the line where the UserForm which contains the code above is loaded.

I installed SCRRUN.DLL using the Insert > Components and browsing for the DLL in Window's System32 folder. It didn't seem to add any lines of code.

As far as I can see the code is identical to the code in RevBlockAdd except for some changes in variable names. Is there anything else I need to include that I'm missing? I've attached my macro if a more in-depth look is required.

Thanks in advance.