AnsweredAssumed Answered

Macro not Opening .sldprt for Proper .step Export

Question asked by Joseph Walden on Dec 6, 2018
Latest reply on Dec 8, 2018 by Deepak Gupta

Edit Dec 7 2018,

Credit for the original macro that I modified in the below thread goes to Artem Taturevych in the below thread:

https://forum.solidworks.com/message/420553#comment-420553

---------------------------------------------------------------

Running SW 2017

 

I was excited to get a macro working (a first for me, I'm quote new) until I realized that it wasn't quite doing what I intended for .step (but it worked for .igs). Sigh...

 

A frustrating issue I've had to deal with is making .step files from assemblies. The issue is that when you save from .sldasm files straight to .step format the resulting assembly does not keep the mechanical mates. Now the mates remain if the steps go as follows:

 

- save .sldasm to .sldprt

- open .sldprt

- resave as .step

 

It's been insisted that the mates remain and I was excited at first because the below macro did lock the mates for .igs (which I recall had a similar issue).

 

I have tried #Task but this is having it's own issues to the Standard License, posted on a separate thread:

#Task "Failed to Obtain a License of Solidworks Task Scheduler"

 

First, is there a simple option for .step export that locks parts upon opening (like for Parasolid, .x_t)? I've been unable to find anything in SW or the forums. If not, then

below is the macro at the moment:

 

---------------------------------------------------------------

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim fileerror As Long

Dim filewarning As Long

 

Sub main()

 

    Set swApp = Application.SldWorks

 

    Set swModel = swApp.ActiveDoc

 

    If Not swModel Is Nothing Then

 

        Dim path As String

        path = swModel.GetPathName

     

        If path <> "" Then

 

            Dim filename As String

            filename = InputBox("Enter the CAD String")

 

            SaveFile filename & ".sldprt"

            SaveFile filename & ".x_t"

            SaveFile filename & ".easm"

         

            'Second Sub is to Lock Assembly Components into Place by opening the resaving the .sldprt file'

            Dim filename2 As String

            filename2 = filename & ".sldprt"

                     

            SaveFile2 filename & ".step"

 

        End If

 

    End If

 

End Sub

 

Sub SaveFile(filename As String)

 

    swModel.SaveAs4 filename, _

        swSaveAsVersion_e.swSaveAsCurrentVersion, _

        swSaveAsOptions_e.swSaveAsOptions_Copy, 0, 0

 

End Sub

 

Sub SaveFile2(filename As String)

 

    Set swModel = swApp.OpenDoc6(PathEnd + filename2, swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning)

 

    Set swModel = swApp.ActiveDoc

 

    swModel.SaveAs4 filename, _

        swSaveAsVersion_e.swSaveAsCurrentVersion, _

        swSaveAsOptions_e.swSaveAsOptions_Copy, 0, 0

 

End Sub

---------------------------------------------------------------

The macro does properly export .step files (no errors appear) but it appears to be saving the files from the assembly and not the opened part (as the OpenDoc6 line in SaveFile2 is intended to do). How do I get the Macro to properly open the .sldprt file and resave it as a .step?

 

Many thanks in advance,

Joseph

Outcomes