Máte také možnost vestavět do jednoduchého skriptu automatické akce. Pomocí těchto akcí aplikace EPLAN lze nechat automaticky proběhnout různé funkce aplikace (jako např. Zálohovat data, Tisk atd.).
Podle třídy, atributu [Start] a funkce je třeba nejprve stanovit ve skriptu sadu parametrů akce a pak akci vykonat pomocí CommandLineInterpreter().Execute().
Obecná struktura příslušného skriptu C# pak vypadá následovně:
public class <ScriptName>
{
[Start]
public void <FunctionName>
{
ActionCallingContext <ActionName>Context = new ActionCallingContext ();
<ActionName>Context .AddParameter("<ActionParameter1>","<Value>");
<ActionName>Context .AddParameter("<ActionParameter2>","<Value>");
...
new CommandLineInterpreter().Execute("<ActionName>",<ActionName>Context);
return;
}
}
Příklad: Následující příklad uvádí skript v C# s akci aplikace EPLAN print:
public class PrintScript
{
[Start]
public void PrintFunction()
{
ActionCallingContext printContext = new ActionCallingContext ();
printContext .AddParameter("NUMBER","1");
printContext .AddParameter("PRINTCHANGEDPAGES","0");
printContext .AddParameter("PRINTREVERSE","0");
printContext .AddParameter("PRINTCOLLATE","0");
printContext .AddParameter("PRINTERNAME",@"\\FUEMON\Kyocera FS-1700+ TechDok KX");
printContext .AddParameter("PROJECTNAME",@"C:\Program Files\EPLAN\Electric P8\Projects\EPLAN\ESS_Sample_Project.elk);
printContext .AddParameter("TYPE","PAGES");
printContext .AddParameter("PAGENAME","=GB1+A1&EFS1/1");
new CommandLineInterpreter().Execute("print",printContext);
return;
}
}
Pomocí ActionCallingContext se ve výše uvedeném příkladu stanoví sada parametrů pro funkci PrintFunction. Následně budou uvedeny různé parametry a příslušné hodnoty pro funkci print. Např. parametrem NUMBER určíte počet výtisků. V příkladu zde byla zadána hodnota "1". Pomocí Execute se akce print následně vykoná.
Stejný příklad vypadá ve Visual Basic.Net následovně:
Public Class PrintScript
{
<Start> _
Public Sub PrintFunction()
Dim printContext As New ActionCallingContext ()
printContext .AddParameter("NUMBER","1")
printContext .AddParameter("PRINTCHANGEDPAGES","0")
printContext .AddParameter("PRINTREVERSE","0")
printContext .AddParameter("PRINTCOLLATE","0")
printContext .AddParameter("PRINTERNAME", "\\FUEMON\Kyocera FS-1700+ TechDok KX")
printContext .AddParameter("PROJECTNAME", "C:\Program Files\EPLAN\Electric P8\Projects\EPLAN\ESS_Sample_Project.elk)
printContext .AddParameter("TYPE","PAGES")
printContext .AddParameter("PAGENAME",""=GB1+A1&EFS1/1")
Dim commandLineInterpreter As New CommandLineInterpreter()
CommandLineInterpreter.Execute("print",printContext)
Return
End Sub 'PrintFunction
End Class 'PrintScript
Tip:
Funkce Zpracovat automatizovaně (pod Obslužné programy) používá k automatickému vykonání akcí jednoduché skripty. Tyto skripty lze použít ke generování vlastních skriptů. Než lze tyto skripty vykonat pomocí položek nabídky Obslužné programy > Skripty > Provést, musíte pro funkci AutoTreat odebrat parametr String ProjectName a řádek, v kterém se tento parametr používá.
Viz také