Hallo habe folgende Regel:
Dim odoc As Document
oDoc = ThisApplication.ActiveDocument
oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
Projektnummer = iProperties.Value("Project", "Project")
Bereich = iProperties.Value("Custom", "Bereich")
Zeichnungsnummer = iProperties.Value("Custom", "Zeichnungsnummer 6-stellig")
Revision = iProperties.Value("Custom", "Revision")
Benennung = iProperties.Value("Custom", "Benennung")
Benennung2 = iProperties.Value("Custom", "Benennung Zeile 2")
'get DWG target folder path
oFolder = Left(oPath, InStrRev(oPath, "\")) & "2D-DWG_EXPORT"
'Check for the DWG folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder) Then
System.IO.Directory.CreateDirectory(oFolder)
End If
Dim assemblyPath As String = oFolder
Dim assemblyFileName As String = System.IO.Path.GetFileName(oDoc.FullFileName)
Dim assemblyFileNameNoExt As String = System.IO.Path.GetFileNameWithoutExtension(oDoc.FullFileName)
Dim driverPathAndFileName = assemblyPath + "\" + Projektnummer + Bereich + "-" + Zeichnungsnummer + "-001" + "_" + Revision + "_"+ Benennung + " " + Benennung2 +".dwg"
ThisDoc.Document.SaveAs(driverPathAndFileName , True)
MessageBox.Show(ThisDoc.FileName(False)& ".dwg gespeichert! " & vbCrLf & vbCrLf & assemblyPath , "DWG Export")
Funktioniert soweit auch und die Kollegen sind begeistert.
Der Dateinname der dwg sieht dann z.B. so aus:
E00270-P-403215-001_A_Blech.dwg
Die "001" ist in dem Fall die Blattnummer
Bei idw´s die nur ein Blatt haben ist ja auch alles ok, aber bei multisheets sieht das ganze dann so aus:
E00270-P-403215-001_A_Blech Blatt1.dwg
E00270-P-403215-001_A_Blech Blatt2.dwg
Ich weiß nicht woher die infos der Blatt-Nr. kommen und wie ich diese bei "001" einsetzen kann.
Aber bei der dwg Regel stosse ich an meine Grenzen und hoffe auf eure Hilfe!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP