genesis2000如何手工排版

打开genesis2000，并进入到需要排版的文件中，点击Matrix新建一个Step存放接下来的排版，然后双击进入到该Step，点击Step--Panelizaton--Step&Repeat--Automatic，调出主界面。

2

点击选择所要进行排版的单元，开始进行参数设置。

3

设置排版的尺寸做败。此处可直接橡宴输入想要排版的尺寸，也可通过输入运算公式得出，例如单元的尺寸为30*30mm，需梁胡银要拼2排3列并预留5mm板边，在长方向的对话框中可输入30*2+10，敲下回车键即可自动得出70。

4

输入排版间距及预留的板边等参数。

5

设置好各项参数之后，点击左下方的OK即可完成 *** 作。

在genesis的cam编辑窗口菜单栏依次点击

Step--Panelization--Step&Repeat--Automatic...

即可打李袭开此界面

一般教程上会称之为自动拼版精灵，意为该程序会自动按照单只外形来测逗哗算最佳拼版方式。

使用动作录制，把上面这些步骤录制下来，另存为，然后把这个文山扰行件设置为快捷键，以后他就是你的专属脚本了。

两层合成一层。你 直接这样输出怎么合？要不就是你把两层复制到一层再输出。至于两次输出就自动合到一层的我没见过。

#!/bin/perl -w

use Genesis

use Tk

$f = new Genesis

use encoding 'euc_cn'

our $JOB=$ENV{JOB}

our $STEP = $ENV{STEP}

$f->INFO(entity_type =>'step',entity_path =>"$JOB/$STEP",data_type =>'LAYERS_LIST')

our @list = @{$f ->{doinfo}{gLAYERS_LIST}}

$mw = MainWindow->new

$mw->geometry("15x10")

$mw->Label(-text =>'请选择输出的层',-highlightbackground =>'yellow',

-highlightthickness =>5, -takefocus =>1,

-borderwidth =>2,

-font =>[-size =>12],-foreground =>'green')->pack

$mv = $mw->Frame->pack(-side =>'bottom',-fill=>'y')

$mw->Frame->pack(-side =>'left',-fill=>'both')

my $box = $mw->Listbox(-relief=>'sunken',-height=>10,-width=>10,-setgrid=>8,

-selectmode =>'multiple',-borderwidth=>3,-font=>[size=>24])

$scroll = $mw->Scrollbar(-command =>粗告闭 ['友拍yview'岩裂, $box])

$box->configure(-yscrollcommand =>['set', $scroll])

$box->pack(-side =>'left', -fill =>'both', -expand =>1)

$scroll->pack(-side =>'right', -fill =>'y')->pack

$mv->Button(-text =>'执行',-command =>sub {do_print()},

-font =>[-size =>18],-foreground =>'blue')->pack(-side=>'left',-padx=>13)

$mv->Button(-text =>'退出',-command =>sub{exit},

-font =>[-size =>18],-foreground =>'blue')->pack(-side=>'right',-padx=>13)

$box->insert('end', @list)

MainLoop

sub do_print {

my @n = $box->curselection()

my @list1 = @list[@n]

#$f->PAUSE("@list1")

foreach (@list1){

$f->COM ('affected_layer',mode=>"all",affected=>"no")

$f->COM ('clear_layers')

$f->COM ('display_layer',name=>"$_",display=>"yes",number=>1)

$f->COM ('work_layer',name=>"$_")

$f->COM ("output_layer_reset")

$f->COM ("output_layer_set,layer=$_,angle=0,mirror=no,x_scale=1,y_scale=1,comp=0,polarity=positive,setupfile=,setupfiletmp=,line_units=inch,gscl_file=,step_scale=no")

$f->COM("output,job=$JOB,step=net,format=DXF,dir_path=D:/,prefix=,suffix=,break_sr=yes,break_symbols=yes,break_arc=no,scale_mode=all,surface_mode=contour,min_brush=1,units=inch,x_anchor=0,y_anchor=0,x_offset=0,y_offset=0,line_units=inch,override_online=yes,pads_2circles=no,draft=no,contour_to_hatch=no,pad_outline=no,output_files=multiple,file_ver=old")

}

}

---