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 (100)

Diskussionsthread auf P8-Magic

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

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