Wyszukaj makro, aby zmienić nazwę otwartego pliku solidworks MEP

2D plans Layout
1

Cze wszystkim

Szukam sposobu, aby automatycznie zapisać nazwę pliku otwartego MEP na ekranie za pomocą makra takiego jak to:

Pochodzenie: xxxxxx.slddrw  do  xxxxxx-DXF.slddrw

w rzeczywistości:  dodaj -DXF na końcu nazwy pliku i przed rozszerzeniem

Meci twojej pomocy

2

Witam tutaj to powinno załatwić sprawę

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

Witam

I dziękuję za przyjrzenie się mojemu problemowi, który nie jest taki prosty.

W rzeczywistości generuję 6 plików dla części blaszanej i staram się zautomatyzować jak najwięcej manipulacji, aby zaoszczędzić czas:

Część.SLDPRT > Część 3D SLDW

SLDDRW Definicja Część SLDDRW > MEP

Pièce.PDF > Definition MEP do drukowania bez SLDW (sprawdzenie metody i warsztat)

Część-DXF.SLDDRW > MEP rozwiniętej konstrukcji blachowej skala 1 (pobrana ze stanu rozwiniętego Part.SLDPRT)

Pièce-DXF.PDF > Blacha rozłożona MEP ech 1 do druku bez SLDW (metody i warsztat)

Część-DXF.DXF > Generowany w skali 1 do programowania cięcia laserowego, ukrywania linii gięcia i wymiarów. (metody i warsztat)

To jest podsumowanie.

Czy masz inną propozycję makro?

Jeszcze raz dziękuję za pomoc.

FIFI69 powiedział:

 

1 polubienie
4

Czy chcesz makro, które wygeneruje wszystko za Ciebie, czy tylko eksport PDF i DXF? 

5

To bardzo miłe, ale wystarczy mi makro do zapisania pliku poprzez wpisanie -dxf.

Mam już makro, które integruje2 inne 1 do ukrywania linii (szkic) i 1 do ukrywania wymiarów i notatek (warstw) składania, aby następnie zapisać  w . Format DXF

funkcje nagrywania PDF i DXF w solidworks są dla mnie wystarczające.

Jeśli masz czas, aby pójść dalej, OK, w przeciwnym razie nie chcę przesadzić.

Do tego mogą być potrzebne załączone przeze mnie pliki szablonów?

 

Jeszcze raz dziękuję

FIFI69 powiedział:


dxf.rar