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

zooey

is
; v2 S0 W3 M$ G. p1 j. x3 ~        mark:boolean;
        dx,dy,ct:real;
5 o+ D0 H# n9 |, U0 r    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# d5 G- l- q: D% x4 f2 k1 c( Ddo
5 }5 @* O5 E  u1 ~! T        current.eraselayer(1);
       
, @9 T  D. j. z4 g8 N& h  ?6 s        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
1 Z. f  N5 B0 m" D$ g* ^& i                        print"yes";
                when 32 then
                        print"no";
5 g  |7 P1 m" m( @4 g: S2 G# ^                else
* [5 @1 n8 u2 y. s                        print"cancel";
; E0 j4 p" y' X2 O* ^                end;
4 }$ [  N# ]5 T+ f8 @* y                eventcontroller.stop;
6 q" C1 `4 d5 @        end;
8 l* _- x0 Z, K) S       
! S8 l0 ?7 B1 O: C1 o        for i:=1 to number_of_machine loop
$ x% f7 E4 k& R) k# W$ {0 V) n5 @        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 |5 L' A7 z& Z- R                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 k- R0 [! L" A/ @        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ @( F$ j2 N3 h6 f0 v1 l                buf:=str_to_obj(bufname);
, J6 W/ }6 b6 g5 z. Z( F                buf.deleteobject;
: c9 q7 j% l) L' Y7 r        end;
% g& F! `* X2 A4 ~" t3 H( \        next;
       
        dx:=0;
        dy:=0;
- ^$ Z: M, i7 ~  J. T% J- ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: ?/ c; x  `+ g* Y/ @; d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& G8 }, L1 |0 P  C8 S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- |. q8 N; c$ I' z# `                        and activityspace[1,rows]<(1.05*y_max) then
  ]8 p$ V% N, \8 `                        print activityspace[1,rows],",",activityspace[2,rows];
5 L7 l. ]5 f0 v7 t! k+ T7 J                        ct:=activityspace[2,rows];
2 l, X4 p' g  Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
" O1 a% q+ d9 t& _$ o0 B0 Z                        else*/
; f3 U3 k  |. R0 A- ^5 r                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
7 K$ z8 }; H3 ?8 N: _                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 j/ b( G1 Q2 L' @& H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. L7 p; C4 u; S+ j1 w7 i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' R% P9 i7 `, I  ?; e                end;
- R2 V! c7 y  K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
- n7 l# z# f# T4 H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 y  T% j" \" b+ B                        activityspace[1,rows]:=ct;
  @8 g+ T; C0 U# ]                        end;*/
% F$ q( v5 J: x& [, x  W/ E        next;
        y_max:=y_max+dy;
        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);
+ U' y9 M' h* G( v: g        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);
# Y, J3 S1 U) d0 E       
) U3 F; S4 w* u        rows:=0;
        lines:=0;
* @) }3 n* [% `) l8 D1 i5 U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: l& b7 T, \7 \! l                        if j=i then
2 ]+ b& D, d+ F5 w$ J0 n2 ]2 f" n1 u                                d_from_to_chart[j,i]:=0;
                        else
) o! I. _5 S, U% \; _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 v/ q) J/ c) u( L6 S                                d_from_to_chart[j,i]:=abs(dx-dy);
# C  m2 y0 a9 T( t                        end;
                next;
        next;
       
' ~. O- z6 W# G( d4 ?" i        lines:=0;
        partstable.delete;
$ \# d5 J- x9 n9 ^+ r3 f       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 |9 a; a% p: f+ J8 B/ C                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 ?! Z/ }* q& Y5 {1 h0 q" {' s                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 C6 S; B% ?  C- i4 F1 d                        partstable[5,lines]:=rows;
: o1 u6 ?0 C9 R4 P4 |: N3 I                        partstable[6,lines]:=j;
                end;
        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]);
+ T; I/ b! s9 w  [( o        machine.name:=machinename;标识符未知
, w5 R/ \# [3 P        machine.proctime:=5;
% V9 z5 ]' z7 V7 s        machine.label:=activityspace[0,rows];
! Q) w. x5 h+ f7 e/ }. |; C0 ^. Q        machine.exitctrl:=ref(leave);
  Z; p" M. M4 j! G% |8 x2 g5 E       
1 {$ ^2 F0 E+ s) d1 ^/ }  l9 z        bufname:=sprint("BF",rows);
; G3 h( c; l' F  L0 i        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 ?+ J: m; f& H' q4 [        buf.name:=bufname;
+ _- b  v9 V$ T! b7 {7 C9 R" S        buf.capacity:=5000;
        buf.proctime:=0;
) M% T  Y/ H. I* W+ E        .materialflow.connector.connect(buf,machine);
6 _& k" `- |0 k5 ~7 H+ {       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 W" h- s! f, i9 N, \7 jdy:=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);
, F2 A$ D, K4 ~; |( i  ^next;
end;