Close Current Document Macro 2

[bsj0526]

Hello,

I am working on a macro with some common commands that i can check off and press a button and it applies all the commands with a check. One command I am having trouble with is the close current document. I have tried a couple of different variations that I found by searching, but the only one I can get to work (sometimes) is below. I say sometimes, because it will work once, then it quits for a while. Does anyone know the correct way to do this?


End If
'Close
If CheckBox4 = True Then
swApp.CloseDoc sFileTitle

Else

End If

End Sub

 

[fcsuper]

How are you handling the "current document" object?

Matt Lorono
Lorono's SolidWorks Resources & SolidWorks Legion

http://groups.yahoo.com/group/solidworks & http://twitter.com/fcsuper

 

[bsj0526]

Here is the code with the first few lines. The Set part = activedoc line does that, right?


Private Sub CommandButton15_Click()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

'Close
If CheckBox4 = True Then
swApp.CloseDoc sFileTitle

Else

End If

End Sub

 

[fcsuper]

could you post the complete code? It seems like there may be some unnecessary stuff going on here. I'm just a hack though.

Matt Lorono
Lorono's SolidWorks Resources & SolidWorks Legion

http://groups.yahoo.com/group/solidworks & http://twitter.com/fcsuper

 

[brengine]

I'll have to try it at work, but I think it's something like:

swApp.CloseDoc(Part.GetPathName)

In the snippit of code above...I don't see you ever assigning a value to sFileTitle...maybe that's the problem with it? If somewhere else you had a line like:

sFileTitle = Part.GetPathName

Then your's might work.

 

[ShaggyPE]

I'm just a hack though.

Then what does that make me?

-Dustin
Professional Engineer
Certified SolidWorks Professional
Certified COSMOSWorks Designer Specialist
Certified SolidWorks Advanced Sheet Metal Specialist

 

[bsj0526]

brengine, I think adding the definition is what I needed. Ill continue to give it heck and see if it works. Thanks for your help.

 

[fcsuper]

Bsj,

That's kinda what I was working towards finding out when I asked to see your code, to make sure my hunch was correct...but brengine just jumped right in! Star

Matt Lorono
Lorono's SolidWorks Resources & SolidWorks Legion

http://groups.yahoo.com/group/solidworks & http://twitter.com/fcsuper