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; } }
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é