genesis脚本教程(1)（genesis2000脚本教程）

前言

作为CAM工程师，使用公司或前人开发的脚本，或多或少不是很满意，何不尝试自己开发呢。

我们学的是什么语言？

Perl语言，为什么学习Perl语言？

Perl语言在PCB行业立足时间较早，现在市面上超过70%的脚本是由perl语言开发，适用范围最广,无论去到哪个公司都绕不开Perl语言写的旧脚本，PYTHON，C#，TCL，JAVA等语言虽然各有千秋，但目前使用的大厂占比小，就像学GENESIS一样，就是比学CAM350等小众软件的容易找工作，故第一语言首选Perl语言。

我们由及其简单的方式，先吊起学习的乐趣，有多简单呢，小学生也可以轻而易举的完成。

写一个小脚本，创建一个88888的料号，创建ORIG单元并打开

桌面命名一个记事本为test.pl，用记事本打开将下面的话复制过去保存一下

#!perl -w

use Genesis; #导入genesis接口

my $host = shift;

my $f = new Genesis($host);

##上面几行是固定添加

my $JOB = "888888"; ##料号设为888888

my $STEP = "orig"; ##单元名字设为orig

##以下都是直接用genesis黑色窗口复制过来的录制的命令 只是更换了料号名和单元名

###创建888888料号

$f->COM("create_entity,job=,is_fw=no,type=job,name=$JOB,db=genesis,fw_type=form");

###打开888888料号

$f->COM("open_job,job=$JOB");

##创建orig单元

$f->COM("create_entity,job=$JOB,is_fw=no,type=step,name=$STEP,db=genesis,fw_type=form");

##打开orig单元

$f->COM("open_entity,job=$JOB,type=step,name=$STEP,iconic=no");

以上我只是想证明写脚本并不难，如果你想运行起来test.pl，需要安装Perl语言安装包

在下一节课我们讲Perl语言安装，请进入我的主页继续学习Perl语言开发genesis

QQ交流群为690906595,内有Perl安装包以及学习资料。