---

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