33 lines
835 B
Text
33 lines
835 B
Text
|
#usage "<b>Example: Export a script and execute it</b>\n"
|
||
|
|
"<p>"
|
||
|
|
"<author>Author: support@cadsoft.de</author>"
|
||
|
|
|
||
|
|
// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED
|
||
|
|
|
||
|
|
string cmd = "";
|
||
|
|
string dev = "";
|
||
|
|
|
||
|
|
cmd += "OPEN TEST.LBR;\n";
|
||
|
|
cmd += "Edit testxx.pac;\n";
|
||
|
|
cmd += "change Layer tPlace;\n";
|
||
|
|
cmd += "Grid MIL ON;\n";
|
||
|
|
cmd += "; WIRE 1 (-100 -100) (230 360);\n";
|
||
|
|
cmd += "; WIRE 20 (-10 -50) (130 60);\n";
|
||
|
|
cmd += "WIN FIT;\n;";
|
||
|
|
|
||
|
|
string ulp_path;
|
||
|
|
|
||
|
|
// ** always use '/' as path delimiter to keep ULPs platform independent **
|
||
|
|
|
||
|
|
char bkslash = '/';
|
||
|
|
int pos = strrchr(argv[0], bkslash);
|
||
|
|
if (pos >= 0) { // split path from filename
|
||
|
|
ulp_path = strsub(argv[0], 0, pos + 1);
|
||
|
|
}
|
||
|
|
|
||
|
|
output(ulp_path + "v4test.scr", "wt") {
|
||
|
|
printf(cmd);
|
||
|
|
}
|
||
|
|
|
||
|
|
exit("; SCR '" + ulp_path + "v4test.scr';\n");
|