Mit diesem Script kann schnell und einfach ein Projekt ins DWG-Format exportiert werden.

Vielen Dank an Claudioc für die Umsetzung. Übersetzung in deutsch habe ich mal nicht gemacht  :biggrin:

ExportProjectDwg (920 Downloads)

Diskussionsthread auf P8-Magic

Public Class ApriFiles

   _
    Public Sub ApriFiles() ' aprifiles = openfiles

        Dim openFileDialog1 As New OpenFileDialog()
        Dim File As String

        openFileDialog1.InitialDirectory = "C:\Programmi\EPLAN\Electric P8\Progetti" ' your path
        openFileDialog1.Filter = "eplan files (*.elk)|*.elk"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
        openFileDialog1.Multiselect = True
        openFileDialog1.Title = "Seleziona i file ELK da esportare in formato DWG - utility by ProjectCenter" 'title of dialog box
        openFileDialog1.ShowDialog()
        MessageBox.Show("Premi OK per iniziare") 'start when ready message

        For Each File In OpenFileDialog1.FileNames
            Dim exportContext As New ActionCallingContext()
            exportContext.AddParameter("TYPE", "DWGPROJECT")
            exportContext.AddParameter("PROJECTNAME", File)
            exportContext.AddParameter("DESTINATIONPATH", "C:\DWG")
            Dim commandLineInterpreter As New CommandLineInterpreter()
            CommandLineInterpreter.Execute("export", exportContext)
        Next File

        MessageBox.Show("Esportazione Terminata") 'end of operation messagge
        Return
    End Sub
End Class