Hallo
Ich habe ein Makro mit dem erstellt, was ich gefunden habe, es muss mein MEP in PDF konvertieren und es im Ordner des Jahres speichern, in dem es erstellt wurde, wenn der Ordner nicht existiert, erstellen Sie es.
Da ist sie:
Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim FileNamePDF als Zeichenfolge
Sub main()
Dim swApp als SldWorks.SldWorks
Dim SWmoddoc As SldWorks.ModelDoc2
Sun NumberPlan As String
Dim-PfadDatei als Zeichenfolge
Dateiname als Zeichenfolge dimmen
Dim NumberLeaf As String
Dim FileNamePDF als Zeichenfolge
Dim PathFileNamePDF als Zeichenfolge
Dim NameFolderPDF als Zeichenfolge
Dim nErrors so lange
Dimmen nWarnungen so lange
Legen Sie swApp = Application.SldWorks fest
Legen Sie SWmoddoc = swApp.ActiveDoc fest.
'Abrufen des Pfads und des Dateinamens
Beispiel: \\MERCURE\Sharing\xMethods\Public\DAO\Solidworks\2 - Drawing\2014\046-1-2014-A.SLDDRW
Pfadname = SWmoddoc.GetPfadName
FilePath = Left(Pfadname, InStrRev(Pfadname, "\")) '\\MERCURY\Sharing\xMethods\Public\DAO\Solidworks\2 - Drawing\2014\
Dateiname = Rechts(Pfadname, Len(Pfadname) - InStrRev(Pfadname, "\")) '046-1-2014-A.SLDDRW
DateinamePDF = Rechts(Dateiname, 13) '2014-A.SLDDRW
FileNamePDF = Links(FileNamePDF, 4) '2014
FileNamePathPDF = "\\MERCURY\Sharing\xMethoden\Öffentlich\DAO\PDF-Pläne\" & OrdnerNamePDF '\\MERCURY\Sharing\xMethoden\Öffentlich\DAO\PDF-Pläne\2014\
'------------------------------------------------------------------
"Abrufen von benutzerdefinierten Eigenschaften aus der Plandatei
Wenn SWmoddoc.GetType = swDocDRAWING Dann überprüfen Sie, ob wir uns in einer Plandatei befinden
DateinamePDF = Ersetzen(Dateiname, "SLDDRW", "pdf")
Ende, wenn
'------------------------------------------------------------------
'Testen, ob der Ordner mit dem Jahr vorhanden ist, wenn nicht, erstellen Sie ihn
Wenn Dir$(DateinamePfadPDF) = "" dann
MkDir "DateinamePDF"
Ende, wenn
'------------------------------------------------------------------
"Prüfen Sie, ob die Datei bereits vorhanden ist, oder bestätigen Sie
"Dann wird die Aufnahme
If Dir$(FileNamePathPDF) = FileNamePDF Then 'Die Datei existiert bereits
Wenn MsgBox("Die Datei: " & DateinamePDF & vbNewLine & " bereits existiert. Wollen Sie ihn ersetzen?", _
vbOKCancel + vbExclamation) = vbOK Dann
nErrors = SWmoddoc.SaveAs(DateinamePfadPDF)
Oder
if MsgBox("PDF-Datei wurde nicht erstellt.", vbInformation) = vbOK dann exit sub '-------Nachricht und BEENDEN-------
Ende, wenn
Oder
Wenn msgBox("Datei: " & DateinamePDF & vbNewLine & " wird erstellt", vbOKCancel + vbInformation) = vbOK, dann
nErrors = SWmoddoc.SaveAs(DateinamePfadPDF)
Oder
if MsgBox("PDF-Datei wurde nicht erstellt.", vbInformation) = vbOK dann exit sub '-------Nachricht und BEENDEN-------
Ende, wenn
Ende, wenn
Ende Sub
Ich weiß nicht, wie ich es testen soll, und ich würde gerne vor dem Start wissen, ob ich nicht etwas Dummes getan habe, weil es mit den Ordnern meines Unternehmensnetzwerks spielt.
Vielen Dank im Voraus.