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

zooey

is
        mark:boolean;
' K/ r' v% s" e; e; h! I# t        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 s" s% A9 l. L8 B    machinename,bufname:string;
9 ^8 g2 J6 s; J, V. ]    machine,buf:object;
do
        current.eraselayer(1);
       
3 |8 m& Z- w' [1 p% G4 s0 {: l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 z) L6 B( i% V  N' d% E                inspect messagebox("设施数目不对！请核查...,",50,13)
8 l( I) j, h, G4 {                when 16 then
                        print"yes";
% F! J) ]" `& v) ?& L0 A                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
$ ]3 C$ ]+ q' u+ s! A7 M, r% I                eventcontroller.stop;
        end;
  }7 E* X" u- T+ Q       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* [+ V4 a+ t; \9 Z, ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) @4 {1 ]4 A, p# G                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% C6 O' n/ S  |6 p  _' R, X                buf:=str_to_obj(bufname);
' i! h7 {1 _2 Q& D# P                buf.deleteobject;
4 L+ x6 z" h9 p        end;
2 S# T; K5 ]8 p( O% ~* m        next;
" g3 j9 T  C$ t: e, ^, C5 {: M       
' q+ ~9 D  J6 p# v' D1 k# L        dx:=0;
% c* L3 {/ k& B- d  S( f) k0 Y6 F        dy:=0;
: ]$ K/ s* A3 u( Z9 F8 w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& y8 F) t8 C3 D" I+ q' c, E0 m6 C                        ct:=activityspace[2,rows];
6 @/ l4 l6 H- L  [. K                        activityspace[2,rows]:=activityspace[1,rows];
* F9 m0 B, S  O7 E1 ~' X                        activityspace[1,rows]:=ct;
* D( A3 D: x- j+ M  o( i( {$ a                        mark:=true;
                        else*/
" }3 B' V6 ]+ Q  N                        y_max:=y_max+dy;
5 L7 u9 W/ z/ C4 O  L0 ^$ Y% L                        dx:=0;
                dy:=0;
0 o* a0 C  a, b$ \. y) K                        --end;
                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;
( m* O4 o2 x" G8 }" q! {1 K            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  b5 G, o( a1 Q' ~/ G2 k  S                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ U2 L# \: f$ D, N/ D* O: d+ d                ct:=activityspace[2,rows];
$ D6 K& ^8 c. M6 g; R$ K                        activityspace[2,rows]:=activityspace[1,rows];
: s4 x7 j$ M8 g. _8 g( ^# R                        activityspace[1,rows]:=ct;
  u) Z, z6 D2 r# Y3 h; ~                        end;*/
        next;
# G* {1 I  C2 N2 `$ i4 {& o        y_max:=y_max+dy;
8 H7 _3 ~3 _. j        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);
        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);
       
" B, D0 U  B% n1 X        rows:=0;
        lines:=0;
, a" r- S: e; e1 `( l, i        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) w+ R7 p7 p) q$ ~; Q                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
  H* p2 L- E0 P; ~% m2 f1 V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, {; A2 z8 J& W( C0 V                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* p3 l% G( m& o7 `& t# y( D2 V1 ^                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
" P$ T1 z$ I7 q                next;
        next;
2 R3 v. M4 O- a2 c# `2 }' w       
        lines:=0;
        partstable.delete;
# b! }) q  D% m! K* _6 n4 r       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ F( H' Q  q0 d8 [* N' u4 |/ J8 E" _                machinesequence[2,i]:=rows;
; N  m( O; f- z, `% h" k( Z' m; f                for j:=1 to number_of_machine loop
5 Y  q+ H/ ^; n, ~+ d                        if w_from_to_chart[j,rows]>0 then
3 [7 C! W, {' }6 L8 m/ Z7 U3 ]  v                        lines:=lines+1;
  y4 ^1 S& X  E) _! a                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" d: c/ p) a0 W3 q1 n7 y- c# g6 `* b                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ t0 d1 i/ D, l& Y6 q$ c                        partstable[3,lines]:=sprint("parts");
) V- D; B% }2 q                        partstable[5,lines]:=rows;
7 D0 v) J" C, P% q* e                        partstable[6,lines]:=j;
* i% V' R; |! |4 t4 d                end;
        next;
9 z2 }6 [6 V7 }0 _+ _- i: S( C! N- a6 `        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) k, Y3 W& y, S) m4 I       
        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]);
        buf.name:=bufname;
3 E0 x/ b5 k, i! i/ \3 j        buf.capacity:=5000;
; E4 `. c4 |8 Y, a; d( @. d/ x        buf.proctime:=0;
( C: B1 f. l  d6 @2 j        .materialflow.connector.connect(buf,machine);
( z5 D7 J+ [8 s* Q; ]& q       
! j$ G1 B# l9 j+ x3 T$ _1 |4 Z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ `2 e! g+ e1 h* S: s( @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;