Assembly sheet metal part to dxf

Arif Akbas wrote:

 

Thickness must be mm

In order to get thickness in mm, change this inches conversion factor to mm conversion factor i.e. replace 39.3700787401575 by 1000

And to get mm in the folder name, replace this line

swThkDir = FilePath & "\" & sMatName & "\" & Thickness

with

swThkDir = FilePath & "\" & sMatName & "\" & Thickness & " mm"

And no idea why your DXF is empty. So attach your files to check them.

add video

I solved the problem. (I restored the factory settings) and I will look for the cause of the above problem.

now the macro does not add an amount to the name of the DXF file. I use this macro:

Option Explicit

   Dim swApp                       As SldWorks.SldWorks

   Dim swModel                     As SldWorks.ModelDoc2

   Dim swAssy                      As SldWorks.AssemblyDoc

   Dim swConf                      As SldWorks.Configuration

   Dim swRootComp                  As SldWorks.Component2

   Dim nStart                      As Single

   Dim bRet                        As Boolean

Sub main()

   Set swApp = Application.SldWorks

   Set swModel = swApp.ActiveDoc

   Set swConf = swModel.GetActiveConfiguration

   Set swRootComp = swConf.GetRootComponent3(True)

  TraverseComponent swRootComp, 1

End Sub

Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)

Dim vChildComp                  As Variant

Dim swpart                      As SldWorks.PartDoc

Dim swChildComp                 As SldWorks.Component2

Dim swConfig                    As SldWorks.Configuration

Dim swConfMgr                   As SldWorks.ConfigurationManager

Dim swChildModel                As SldWorks.ModelDoc2

Dim swOpenModel                 As SldWorks.ModelDoc2

Dim swChildCustPropMngr         As CustomPropertyManager

Dim swChildModelDocExt          As ModelDocExtension

Dim swsheetmetal                As SldWorks.SheetMetalFeatureData

Dim swFeat                      As SldWorks.Feature

Dim swBody                      As SldWorks.Body2

Dim Sheet_metal                 As Boolean

Dim Boolstatus                  As Boolean

Dim Thickness                   As Double

Dim conv                        As Double

Dim i                           As Long

Dim loptions                    As Long

Dim lerrors                     As Long

Dim sPadStr                     As String

Dim FilePath                    As String

Dim FileName                    As String

Dim swThkDir                    As String

Dim swMatDir                    As String

Dim swCurrent                   As String

Dim RefCfg                      As String

Dim ChildConfigName             As String

Dim sMatName                    As String

Dim sMatDB                      As String

Dim exFileName                  As String

Dim Bodies                      As Variant

Dim varAlignment                As Variant

Dim dataAlignment(11)           As Double

Dim options                     As Long

vChildComp = swComp.GetChildren

For i = 0 To UBound(vChildComp)

    Set swChildComp = vChildComp(i)

     'Check to see if current component is suppressed

       If swChildComp.IsSuppressed = False Then GoTo Active Else GoTo Skip

Active:

Set swApp = Application.SldWorks

Set swChildModel = swChildComp.GetModelDoc2

   'Check to see if child component is an Assembly or part

   If (swChildModel.GetType <> swDocPART) Then GoTo Jump 'Skips Subassemby level

Set swpart = swChildModel 'Applies part commands for current component

FilePath = Left(swpart.GetPathName, InStrRev(swpart.GetPathName, "\") - 1)

FileName = swpart.GetTitle 'Get title of component

swCurrent = swChildComp.ReferencedConfiguration 'Get current configuration of component

Bodies = swpart.GetBodies2(swBodyType_e.swAllBodies, True)

Set swBody = Bodies(0)

    If swBody.IsSheetMetal = 0 Then 'If Body is not sheet metal

          GoTo Jump

    End If

   If swBody.IsSheetMetal = 1 Then 'If body is sheet metal

       GoTo Process

   End If

Process:

'Get Part Material

'Set swpart = swChildModel

sMatName = swpart.GetMaterialPropertyName2(swCurrent, sMatDB)

If sMatName = "" Then sMatName = "None"

'Get part Thickness

Set swFeat = swChildModel.FirstFeature

   While Not swFeat Is Nothing

    If swFeat.GetTypeName = "SheetMetal" Then

       Set swsheetmetal = swFeat.GetDefinition

       Thickness = swsheetmetal.Thickness

       conv = 39.3700787401575

        Thickness = Thickness * conv

    End If

    Set swFeat = swFeat.GetNextFeature

    Wend

swMatDir = FilePath & "\" & sMatName

If Dir(swMatDir, vbDirectory) = "" Then MkDir swMatDir

swThkDir = FilePath & "\" & sMatName & "\" & Thickness

If Dir(swThkDir, vbDirectory) = "" Then MkDir swThkDir

exFileName = FilePath & "\" & sMatName & "\" & Thickness & "\" & FileName

swApp.ActivateDoc3 swpart.GetPathName, True, loptions, lerrors

Boolstatus = swpart.ShowConfiguration2(swCurrent)

dataAlignment(0) = 0#

dataAlignment(1) = 0#

dataAlignment(2) = 0#

dataAlignment(3) = 0#

dataAlignment(4) = 0#

dataAlignment(5) = 0#

dataAlignment(6) = 0#

dataAlignment(7) = 0#

dataAlignment(8) = 0#

dataAlignment(9) = 0#

dataAlignment(10) = 0#

dataAlignment(11) = 0#

varAlignment = dataAlignment

options = 7125   '0001101 - include flat pattern geometry, bend lines and sketches

swpart.ExportToDWG exFileName & ".DXF", swpart.GetPathName, 1, True, varAlignment, False, False, options, Null

swApp.CloseDoc (swChildModel.GetPathName)

GoTo Jump

Skip:

Jump:

       TraverseComponent swChildComp, nLevel + 1

Next i

End Sub