Hallo ihr alle
Ich bin auf der Suche nach einer Möglichkeit, den Dateinamen eines geöffneten MEP automatisch mit einem Makro wie diesem auf dem Bildschirm zu speichern:
Ursprung: xxxxxx.slddrw bis xxxxxx-DXF.slddrw
In der Tat: Fügen Sie -DXF am Ende des Dateinamens und vor der Erweiterung hinzu
Meci Ihrer Hilfe
Hallo hier, es sollte den Trick machen
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim File As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' ajout controle du bon fichier
If Part Is Nothing Then
MsgBox "Aucun fichier n'est actuellement ouvert."
Exit Sub ' If no model is currently loaded, then exit
End If
' Determine the document type. If the document is a drawing, then send a message to the user.
If (Part.GetType <> 3) Then '1Part 2Assembly 3Document
MsgBox "Cette macro ne s'applique que sur une mise en plan"
Exit Sub
End If
File = Part.GetPathName
If File = "" Then
MsgBox "Cette macro necessite que le fichier soit préalablement enregistré"
Exit Sub
End If
FilePath = Left(File, InStrRev(File, "\"))
FileName = Mid(File, Len(FilePath) + 1, Len(File) - (7 + Len(FilePath))) & "-DXF"
longstatus = Part.SaveAs3(FilePath + FileName + ".SLDDRW", 0, 2)
End Sub
Hallo
Und danke, dass Sie sich mit meinem Problem befasst haben, das nicht so einfach ist.
Tatsächlich generiere ich 6 Dateien für ein Blechteil und versuche, so viele Manipulationen wie möglich zu automatisieren, um Zeit zu sparen:
Teil.SLDPRT > 3D SLDW-Teil
SLDDRW Definition Part.SLDDRW > MEP
Pièce.PDF > Definition MEP für den Druck ohne SLDW (Methodencheck und Workshop)
Part-DXF.SLDDRW > MEP der abgewickelten Blechskala 1 (entnommen aus dem abgewickelten Zustand von Part.SLDPRT)
Pièce-DXF.PDF > Abgewickeltes Blech MEP ech 1 für den Druck ohne SLDW (Verfahren und Werkstatt)
Part-DXF.DXF > Generiert im Maßstab 1 für die Programmierung des Laserschneidens, um Biegelinien und Bemaßungen auszublenden. (Methoden und Workshop)
Das ist die Übersicht.
Haben Sie einen anderen Makrovorschlag?
Nochmals vielen Dank für Ihre Hilfe.
Fifi69
Möchten Sie ein Makro, das alles für Sie generiert, oder nur PDF- und DXF-Exporte?
Es ist super schön, aber ein Makro zum Speichern einer Datei durch Einfügen von -dxf reicht für mich aus.
Ich habe bereits ein Makro, das 2 weitere 1 zum Ausblenden der Linien (Skizze) und 1 zum Ausblenden von Abmessungen und Notizen (Ebenen) der Faltung integriert, um sie dann in zu speichern . DXF
Die PDF- und DXF-Aufzeichnungsfunktionen von SOLIDWORKS reichen mir aus.
Wenn Sie Zeit haben, weiter zu gehen, OK, ansonsten möchte ich es nicht übertreiben.
Hierfür benötigen Sie möglicherweise meine angehängten Vorlagendateien?
Danke noch einmal
FIFI69