simtalk程序调试不出来，帮忙看一下

zooey

is
. N* S* B' ?! M; d- ?. E        mark:boolean;
        dx,dy,ct:real;
/ r9 s0 w* S: F8 u8 A! K6 Y6 a6 O    i,j,rows,lines:integer;
8 Z% u, w! a9 ^; W    machinename,bufname:string;
    machine,buf:object;
do
2 U$ X7 z& P+ S        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
# H4 K. g2 A; @$ q5 k                        print"no";
  l7 w* [2 f+ ?" G0 a1 S                else
                        print"cancel";
                end;
) [; i& h# A1 i1 Z                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
8 l# F3 `- a- L, D! j8 }% m        machinename:=sprint("M",i);
        if existsobject(machinename) then
& D- {0 I1 H  w" ]0 ]+ `" O" }8 m                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 f" d7 s# E* n* ^( H. |        end;
        bufname:=sprint("BF",i);
8 b9 D' @5 X0 @9 q+ J- P        if existsobject(bufname) then
3 t3 V1 e4 J+ n) _: I* v0 |5 V                buf:=str_to_obj(bufname);
$ F/ G, ]; G' h/ h6 x' u5 H                buf.deleteobject;
) H4 R3 ?* \, m& F, F        end;
2 x/ T6 N. Y. f/ @, f        next;
       
3 l- Q! _" V2 o" [& Y0 {& e        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
2 X  @2 b% n, {( |# b: _. g' P+ Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; v5 S7 u0 `' J                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: K3 n% o% s. W/ s. o. c                then
  ?' W) X* ^( P: \  O1 B# W) k5 X4 ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 j3 }- y& P1 t( h                        and activityspace[1,rows]<(1.05*y_max) then
2 C3 p% c' k& d2 @                        print activityspace[1,rows],",",activityspace[2,rows];
4 ^4 I/ Y& S6 l- H                        ct:=activityspace[2,rows];
  i# c$ U/ U' N5 ?6 q6 v                        activityspace[2,rows]:=activityspace[1,rows];
7 @& i: @9 P# M3 I+ M3 {                        activityspace[1,rows]:=ct;
5 n! f" c  o" {0 d$ h7 g                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
/ `, P% y3 V4 \. V& W- H/ U                        dx:=0;
                dy:=0;
                        --end;
% H/ B( `' l' Q: E                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 \+ m( L# a0 V& d8 T2 s            if activityspace[2,rows]>dy then
3 `$ e. W: E) p' t6 E                        dy:=activityspace[2,rows];
2 N2 P3 S* S5 n  E2 {                end;
/ u% [/ @  N$ o% D7 t                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ _5 @' P% n: C- s" y                ct:=activityspace[2,rows];
5 z+ D/ ?4 P+ ~% B: R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- z  H' E2 h" r3 P" p7 ?" o. J        next;
  q$ ]& \  m" A. A) J. x* r7 J        y_max:=y_max+dy;
8 E# R% x$ A6 t( q: {  k% K/ i/ X        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
( I9 C" j2 E, T' M        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
, G# G  K5 |/ j* n7 k       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
- c4 C1 f1 Q8 b9 `7 |/ E                        else
$ i4 p3 u$ q- _4 i. p4 U                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* n$ s( i/ _: I4 i' Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  d! z, B8 d- }' G' ^7 I% s                                d_from_to_chart[j,i]:=abs(dx-dy);
; e. j  W; r) l- C0 S* t                        end;
! w( y! u9 U" T% X2 x                next;
4 w/ Z- k* B0 O+ B8 W4 I        next;
       
        lines:=0;
$ G2 Y$ I8 A. Q& X        partstable.delete;
/ a3 @  f& i2 ~- v: k& B2 A% I       
. `6 u# \3 x# |/ _  @8 L4 Y        for i:=1 to number_of_machine loop
! d# G& o* n3 J% Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- `+ ]3 |2 P# D$ e- e+ Z                machinesequence[2,i]:=rows;
' `# J9 g, d6 M! P1 `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 n1 @1 p5 I' J) H9 ~5 ^                        lines:=lines+1;
& V  j: |+ s' `; e6 k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ q+ n2 s, {+ ~# E) ^$ \                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! ^0 n5 ~2 V& }$ e2 k) s7 s: ~                end;
8 h$ p  {; H3 T5 z8 M: f& M0 d5 w" q        next;
        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
3 |* U  l* i! g  }        machine.name:=machinename;标识符未知
  U. e$ x8 D3 O* E6 p' k        machine.proctime:=5;
. T& e- }$ F- ~        machine.label:=activityspace[0,rows];
- U2 _8 g! [3 Q! T7 D$ G9 V        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
0 b: p% Z1 G2 L        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 N7 S- M" e+ n5 }4 |8 v. q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
0 c3 \! @* H/ |' p( V7 t6 p