Cherche macro pourR modifier le nom d'un fichier ouvert d'une MEP solidworks

2D plans Layout
1

Bonjour à tous

je cherche le moyen d'enregistrer le nom du fichier d'une MEP ouverte à l'écran automatiquement avec une macro comme suit:

Origine : xxxxxx.slddrw  en  xxxxxx-DXF.slddrw

en fait:  ajouter -DXF en fin de nom de fichier et avant l'extension

Meci de votre aide

2

Bonjour tiens sa devrais faire l'affaire

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

 

3

Bonjour

et merci de s'être penché sur mon problème qui n'est pas si simple.

en fait, je génére 6 fichiers pour une pièce de tôlerie et j'essaie d'automatiser le maximum de manip pour gagner du temps:

Pièce.SLDPRT > Pièce 3D SLDW

Pièce.SLDDRW > MEP de définition SLDW

Pièce.PDF > MEP de définition pour impression sans SLDW (vérif méthodes et atelier)

Pièce-DXF.SLDDRW > MEP de déplié tôlerie ech 1 (tiré de l'état déplié de Pièce.SLDPRT)

Pièce-DXF.PDF > MEP de déplié tôlerie ech 1 pour impression sans SLDW (méthodes et atelier)

Pièce-DXF.DXF > Généré à l'echelle 1 pour programation découpe laser, en cachant les ligne et cotes de pliage. (méthodes et atelier)

Voila le topo.

Avez-vous une autre proposition de macro?

Merci encore de votre aide.

Fifi69

 

1 « J'aime »
4

Tu veut une macro qui te genere tout ou que les export PDF et DXF ? 

5

c'est super gentil mais une macro pour enregistrer un fichier en mettant -dxf me suffira.

j'ai déjà une macro qui intégrer2 autres 1 pour cacher les lignes (esquisse), et 1 pour cacher cotes et notes (couches)de pliage pour enregistrer  ensuite en .DXF

les fonctions d'enregistrement en PDF et en DXF de solidworks me suffisent.

Si tu as le temps d'aller plus loin OK sinon je veux pas abuser.

Pour cela il te faut peut-être mes fichiers modèles ci-joints ?

 

Merci encore

FIFI69


dxf.rar