SolidWorks-macro om tekens toe te voegen aan het begin van de bestandsnaam waarvan een back-up moet worden gemaakt

3D Design
1

Hallo

Ik neem de fakkel van macrobewerking op mijn werk over, maar zonder de basis in VBA, dus ik doe voorlopig vooral doe-het-zelf / aanpassing in plaats van coderen, en na verschillende mislukte zoekopdrachten en tests, ben ik hier.

Het probleem is simpel, vandaag de dag behoudt mijn PDF-opnamemacro gewoon dezelfde bestandsnaam als de DRW: 2263-4B.slddrw -> 2263-4B.pdf

Ik zou graag willen dat de macro automatisch tekens toevoegt net voor de bestandsnaam bij het genereren van PDF's, als volgt: 2263-4B.slddrw -> CK-2263-4B.pdf

Hieronder staat het deel dat betrekking heeft op de opname in PDF:

-------------------------------------------------------------------------------------------

Sub hoofd()

Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
Dim PathName als tekenreeks

Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Stel swDraw = swModel in

    Als MsgBox("Wilt u opslaan als PDF?", vbQuestion + vbYesNo, "PDF") = vbNee Dan
        MsgBox "Geannuleerd", vbOKOnly, "PDF"
        Sub afsluiten
    Einde als

    PathName = Mid(swModel.GetPathName, 1, Len(swModel.GetPathName) - 7)

    swModel.SaveAs2 PathName & ".PDF", 0, Waar, Onwaar

Einde Sub

-------------------------------------------------------------------------------------------

(Lynkoa's optie "Insert code snippet" zat mijn bericht tegen)

Ik heb een aantal basisdingen geprobeerd, zoals het toevoegen van "CK-" & direct na PathName = , maar zonder succes. Heeft iemand een oplossing voor dit kleine probleempje?

Bij voorbaat dank.

2

Hallo

Normaliter:

PathName = Mid(swModel.GetPathName, 1, Len(swModel.GetPathName) - 7)

PathName = "Ck-" & PathName

 

3

Bedankt voor je hulp, helaas lijkt deze methode hier niet te werken, er wordt geen pdf gegenereerd wanneer ik de macro start met deze toevoeging.

4

Sorry, verkeerd gelezen: 

PathName = Mid(swModel.GetPathName, 1, InStrRev(swModel.GetPathName, "\"))
FileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)
FileName = Left(FileName, Len(FileName) - 7)
FileName = "CK-" & FileName
PathName = PathName & FileName
swModel.SaveAs2 PathName & ".PDF", 0, True, False


 

2 likes
5

Geweldig, het werkt!

Nogmaals bedankt.