2 Replies Latest reply on Jan 13, 2016 7:01 AM by Zak Page

    Selected Parts Export

    Zak Page
    Zak Page Jan 7, 2016 10:38 AM

      Hi all!

       

      a little while ago i downloaded and modified a "export to Parasolid (X_T.)" macro and changed it to enable me to enter a revision number / letter to the end of the part name.

       

      i was wondering if there was any way that i could modify this to use it in an assembly to export either

       

      a) a selected group of parts ?

                          or

      b) all parts as separate Parasolid files ?

       

      i have attached the macro for anyone to have a look at (or use if you find it useful)

        • Re: Selected Parts Export
          Michael Spens
          Michael Spens Employee Jan 7, 2016 12:30 PM (in response to Zak Page)

          Great start from Deepak Gupta!  Try the following modifications.  You may still need to work out separate revisions per part, etc.  If you have anything selected in an open assembly, it will save those components.  If nothing is selected, it saves the entire model.

           

          '====================================

          ' ******************************************************************************

          ' Save Part/Assembly as Parasolid

          ' Written by Deepak Gupta (www.gupta9665.wordpress.com)

          ' ******************************************************************************

           

           

          Dim swApp       As SldWorks.SldWorks

          Dim swModel      As SldWorks.ModelDoc2

          Dim RevNo As String

          Dim boolstatus  As Boolean

          Sub main()

           

           

          Set swApp = Application.SldWorks

          Set swModel = swApp.ActiveDoc

           

           

          If Not swModel Is Nothing Then

              FileTyp = swModel.GetType

              If FileTyp <> swDocDRAWING Then

             

              UFRev.Show

              RevNo = UFRev.TBRev

               

              If swModel.GetType = swDocASSEMBLY Then

                  Dim sm As SelectionMgr

                  Set sm = swModel.SelectionManager

                  If sm.GetSelectedObjectCount = 0 Then

                      boolstatus = SaveParasolid(swModel, RevNo)

                  Else

                      Dim i As Integer

                      For i = 1 To sm.GetSelectedObjectCount

                          Dim selComp As Component2

                          Set selComp = sm.GetSelectedObjectsComponent(i)

                          Dim compModel As ModelDoc2

                          Set compModel = selComp.GetModelDoc

                          boolstatus = SaveParasolid(compModel, RevNo)

                      Next

                  End If

              Else

                  boolstatus = SaveParasolid(swModel, RevNo)

              End If

              MsgBox "Part/Assembly Saved as Parasolid"

           

           

          Else

                MsgBox "Current document is not a Part/Assembly." & Chr(13) & Chr(13) _

                      & "Please load/activate a SolidWorks " & Chr(13) _

                      & "Part/Assembly and try again.", vbExclamation

              End If

            Else

                MsgBox "No active Part/Assembly found in SolidWorks." & Chr(13) & Chr(13) _

                      & "Please load/activate a SolidWorks " & Chr(13) _

                      & "Part/Assembly and try again.", vbExclamation

            End If

           

           

          End Sub

          '------------------

           

           

          Private Function SaveParasolid(swModel As ModelDoc2, RevNo As String) As Boolean

              Dim PathSize As Long

              Dim PathNoExtension As String

              Dim NewFilePath As String

             

              filePath = swModel.GetPathName

              PathSize = Strings.Len(filePath)

              PathNoExtension = Strings.Left(filePath, PathSize - 7)

              NewFilePath = PathNoExtension & " REV " & RevNo & ".X_T"

             

              boolstatus = swModel.SaveAs3(NewFilePath, 0, 0)

              SaveParasolid = boolstatus

          End Function