DXF einer Baugruppe exportieren

3D Design
1

Hallo

Ich habe ein Makro, das DXF aus einer Blechbaugruppe exportiert, kann ich eine Änderung vornehmen, um die ausgehenden Dateien nach Dicke (im Ordner D) zu gruppieren.(Dicke) ...

Vielen Dank im Voraus

2

Hallo

Ja, dies ist möglich, indem Sie die Dickeneigenschaft der Schnittliste auslesen

Im Folgenden finden Sie ein Codebeispiel zum Abrufen dieser Eigenschaft für einen geöffneten Teil:

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swFeat As SldWorks.Feature
    Dim custPrpMgr As SldWorks.CustomPropertyManager
    Dim myThickness As String
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    If swModel Is Nothing Then Exit Sub
    Set swFeat = swModel.FirstFeature
    While Not swFeat Is Nothing
        If swFeat.GetTypeName2 = "CutListFolder" Then
            Set custPrpMgr = swFeat.CustomPropertyManager
            custPrpMgr.Get2 "Epaisseur de tôlerie", "", myThickness
            Debug.Print "Epaisseur: " & myThickness
        End If
        Set swFeat = swFeat.GetNextFeature
    Wend
End Sub

 

2 „Gefällt mir“
3

Hallo

Vielen Dank für Ihre Antwort und bitte , wie man den Makrocode hinzufügt??

Im Anhang ist die Datei, die ich habe

 

 


got-flaten-dxf-von-montage.swp
4

Ersetzt die Zeile:

Const OUT_NAME_TEMPLATE As String = "DXFs\<_FileName_>_<_FeatureName_>_<_ConfName_>_<Description>.dxf"

Bis:

Const OUT_NAME_TEMPLATE As String = "DXFs\Epaisseur_<Epaisseur de tôlerie>\<_FileName_>_<_FeatureName_>_<_ConfName_>_<Description>.dxf"

Anmerkung: Überprüfen Sie die Schreibweise der Eigenschaft "Blechdicke" in Ihren Teilen. Und ändert die obige Zeile entsprechend.

Wenn Sie einen gerundeten Dickenwert wünschen, fügen Sie Folgendes hinzu:

If Val(resVal) > 0 Then resVal = Round(resVal, 0)

Direkt nach der Zeile:

swCustPrpMgr.Get2 token, "", resVal

 

1 „Gefällt mir“
5
Ich tue, was Sie gesagt haben , aber das Makro erstellt keine Ordner nach Dicke der Teile...
Andernfalls, wenn Sie die Änderung am Makro vornehmen und mir die Vollversion senden könnten

 

6

Ich möchte so etwas : YOUTUBE-Link

7

Es sollte die DXFs in "\<Part Folder>\DXFs\Epaisseur_XX\

Das Problem kann vom Raum kommen. Können Sie ein Prüfteil anhängen?

1 „Gefällt mir“
8

Im Anhang finden Sie ein Beispiel


Teil1.SLDPRT
9

Jawohl. In Anlehnung an die Anleitung in meinem ersten Beitrag,

>Überprüfen Sie die Schreibweise der Eigenschaft "Blechdicke" in Ihren Teilen. Und ändert die obige Zeile entsprechend.

Die Zeile sollte wie folgt lauten:

Const OUT_NAME_TEMPLATE As String = "DXFs\Epaisseur_<Sheet Metal Thickness>\<_FileName_>_<_FeatureName_>_<_ConfName_>_<Description>.dxf"

 

1 „Gefällt mir“
10

Hallo

Auf dem Youtube-Link gibt es einen Download-Link des Marco zum Testen

Möge die Macht mit dir sein

 

1 „Gefällt mir“
11
Hallo
nein, das Makro im Youtube-Link ist codiert und es fehlen einige Anweisungen...
1 „Gefällt mir“
12
Hallo
Vielen Dank "JeromeP" das Problem und gelöst;
Ist bitte wie in der registrierten Teilebezeichnung die Menge (der Baugruppe) jedes Teils hinzugefügt...
Vielen Dank im Voraus