Zoekmacro om de naam van een geopend bestand van een solidworks MEP te wijzigen

2D plans Layout
1

Hoi allemaal

Ik ben op zoek naar een manier om de bestandsnaam van een open MEP automatisch op het scherm op te slaan met een macro als deze:

Herkomst: xxxxxx.slddrw  tot  xxxxxx-DXF.slddrw

sterker nog:  voeg -DXF toe aan het einde van de bestandsnaam en voor de extensie

Meci van uw hulp

2

Hallo, hier zou het moeten werken

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

Hallo

En bedankt voor het onderzoeken van mijn probleem, dat niet zo eenvoudig is.

In feite genereer ik 6 bestanden voor een plaatwerkonderdeel en probeer ik zoveel mogelijk manipulaties te automatiseren om tijd te besparen:

Part.SLDPRT > 3D SLDW Deel

SLDDRW Definitie Part.SLDDRW > EP-lid

Pièce.PDF > Definitie MEP voor printen zonder SLDW (methodecontrole en workshop)

Part-DXF.SLDDRW > MEP van ongevouwen plaatwerk schaal 1 (genomen uit de uitgevouwen toestand van Part.SLDPRT)

Pièce-DXF.PDF > Ongevouwen plaatwerk MEP ech 1 voor printen zonder SLDW (methoden en werkplaats)

Part-DXF.DXF > Gegenereerd op schaal 1 voor lasersnijden, programmeren, het verbergen van buiglijnen en afmetingen. (werkwijze en workshop)

Dat is het overzicht.

Heeft u een ander macrovoorstel?

Nogmaals bedankt voor je hulp.

Fifi69 zei:

 

1 like
4

Wilt u een macro die alles voor u genereert of alleen PDF- en DXF-exports? 

5

Het is super leuk, maar een macro om een bestand op te slaan door -dxf te zetten is genoeg voor mij.

Ik heb al een macro die integreert2 andere 1 om de lijnen te verbergen (schets), en 1 om afmetingen en notities (lagen) van vouwen te verbergen om vervolgens op te slaan  in . DXF

de PDF- en DXF-opnamefuncties van solidworks zijn genoeg voor mij.

Als je tijd hebt om verder te gaan, oké, anders wil ik het niet overdrijven.

Hiervoor heb je misschien mijn bijgevoegde sjabloonbestanden nodig?

 

Nogmaals bedankt

FIFI69 zei:


dxf.rar