Hallo Fritz, hallo Straight-Potter,
danke für die Info's, aber es haut bei mir nicht hin. Es gibt nur am Ende der Ausführung ein kurzes
Aufblitzen der Box wenn ich das so richtig sehe. Manchmal wechselt dann auch das EPLAN Fenster in den Hintergrund. Ich setz mein Skript nochmals rein, vielleicht kann es jemand mal bei sich kurz testen. Aktuell verwende ich die V1.9.11.
public class Script
{
public string GetProjectPages()
{
string strProject = "";
ActionCallingContext ProjectContext = new ActionCallingContext();
ProjectContext.AddParameter("TYPE", "PAGES");
new CommandLineInterpreter().Execute("selectionset", ProjectContext);
ProjectContext.GetParameter("PAGES", ref strProject);
return strProject;
}
public string GetProject()
{
string strProject = "";
ActionCallingContext ProjectContext = new ActionCallingContext();
ProjectContext.AddParameter("TYPE", "PROJECT");
new CommandLineInterpreter().Execute("selectionset", ProjectContext);
ProjectContext.GetParameter("PROJECT", ref strProject);
return strProject;
}
[Start]
[DeclareAction("export_ETK")]
public void DXFExport()
{
string[] projectPage;
string projectPages;
string project;
char[] delimiterChars = { '.', '\\' };
string strDestinationPath = @"C:\temp\";
string strFile1;
string strFile2;
string strPDF;
string strProjectName;
string[] parts;
projectPages = GetProjectPages();
projectPage = projectPages.Split(';');
project = GetProject();
parts = project.Split(delimiterChars);
strProjectName = parts[parts.Length - 2];
strDestination += strProjectName;
strFile1 = strDestination + @"\Seiten.txt";
strFile2 = strDestination + @"\SeitenArtikel.txt";
strPDF = strDestination + @"\" + strProjectName + ".pdf";
MessageBox.Show("ETK- Daten und pdf-Datei ausgeben" + "\n\n" + strFile1 +"\n\n" + strFile2 + "\n\n" + strPDF);
//***** Schaltplanseiten als DXF ausgeben ******************************
Progress pDXF = new Progress("");
pDXF.BeginPart(100,"");
pDXF.SetAllowCancel(true);
if (!pDXF.Canceled())
{
pDXF.BeginPart(30,"DXF Export");
ActionCallingContext DXFExportContext = new ActionCallingContext();
DXFExportContext.AddParameter("TYPE", "DXFPROJECT");
DXFExportContext.AddParameter("PROJECTNAME", project);
DXFExportContext.AddParameter("DESTINATIONPATH", strDestinationPath);
DXFExportContext.AddParameter("USAGEFILTER", "1");
new CommandLineInterpreter().Execute("export", DXFExportContext);
pDXF.EndPart();
}
pDXF.EndPart(true);
return;
}
[DeclareMenu]
public void MenuFunction()
{
Eplan.EplApi.Gui.Menu oMenu = new Eplan.EplApi.Gui.Menu();
oMenu.AddMenuItem("Export Test eETK", "export_ETK");
}
}
Gruß
ENPLANER
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP