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

zooey

is
- k' Y- b! P+ Z+ c1 [! _# r- z  @* e        mark:boolean;
        dx,dy,ct:real;
6 |5 ~! f9 l9 d, P4 C7 ^    i,j,rows,lines:integer;
; Q, Z, L1 p* w1 p  y    machinename,bufname:string;
; v/ u0 X5 w' k! z4 m5 W/ @    machine,buf:object;
do
0 B/ t: Z# ]% D0 q+ j% m9 t        current.eraselayer(1);
. e% ~8 l' I, l       
0 b0 L2 Z  F$ Y' W2 D3 r/ [9 \        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
                        print"no";
/ \4 W# G9 ?& a: ^  B$ f8 N6 n& \                else
: j2 U: v! U( |                        print"cancel";
                end;
% n4 S" z( Y9 C6 T9 _                eventcontroller.stop;
- u& r9 p. l! x- u$ L        end;
       
0 o, I' P& _3 k! |7 U$ M! {+ E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, ^$ c" R+ U- p                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' a+ @$ q. ]2 V                buf:=str_to_obj(bufname);
+ Y  h( H$ F& F1 I) P% l7 q$ H                buf.deleteobject;
* D1 S7 M5 a0 n6 K4 i: ^; D        end;
        next;
5 Q& P. B8 k3 v! ]" c       
; K/ p7 j. S* K. }1 c! s) t* p        dx:=0;
6 a, w  U  z, s        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 {2 @, Y  U4 U                --mark:=false;
9 n1 ], n6 ?2 q* x7 K4 y! V; e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 p# r3 }; Z  y" w                then
  Y2 O; k) D/ q, k7 i; q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. t' `( ~/ A" A  [( z                        and activityspace[1,rows]<(1.05*y_max) then
6 O2 a7 k3 g- P                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" S; z  N: s2 v0 L6 r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: y" h* a* r- W, q) m3 y, w: A                        mark:=true;
2 Z- ?. x7 f$ a1 M; M0 S                        else*/
! o  N* z1 F" e+ J; c. w# x                        y_max:=y_max+dy;
                        dx:=0;
" Y7 C( ~# C6 L                dy:=0;
                        --end;
1 z+ n9 x2 s. s& \5 l! h: \7 z7 Q                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- ~, C! U: ~1 E! [9 j- C* i                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
, X( }' r( _3 U6 j1 R5 h9 h                        dy:=activityspace[2,rows];
                end;
- }- D2 K- o& p                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 n) b$ e1 u5 t, ?' Z+ U: P                ct:=activityspace[2,rows];
$ R' t: ?& K  a2 u' h$ e8 Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
; M0 l9 P9 Q- I- M- P1 I. }        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);
, M3 j( O+ y! Q7 g       
5 p% Q* d, j1 s5 t" ]& c0 C8 z        rows:=0;
        lines:=0;
$ `5 O) X2 t* _1 @0 N6 i9 t, @        for i:=1 to number_of_machine loop
5 |4 {+ I: b* x6 D, [/ _$ X' [& _                for j:=1 to number_of_machine loop
                        if j=i then
' L' Z# P" }: e- F                                d_from_to_chart[j,i]:=0;
                        else
. }, C4 d/ Q& U- {. M2 \; d                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, J% o0 f  G+ m# L& {/ ?" \( F        next;
       
        lines:=0;
        partstable.delete;
0 v: F& o' s9 {9 X! h, a       
        for i:=1 to number_of_machine loop
+ k" p+ O3 r4 w5 Y' R  \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ ], {6 r, v3 D) e                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) i8 x% i' G8 \% X8 |6 G                        if w_from_to_chart[j,rows]>0 then
' |5 D. R& q) X- _- V3 K( j                        lines:=lines+1;
8 f: }' u% s4 w" d: t" A! h4 |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  I, u  {, r* j4 a' q: o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, N, }1 \  A8 Y  m                        partstable[6,lines]:=j;
+ {( s$ d& w0 ]7 S3 b3 V                end;
        next;
        machinename:=sprint("M",rows);
4 ~4 c( b. R  `7 b9 ^        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;
( z3 W7 M& d  E4 G) s        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
/ ^! f% C, A9 I' v/ c/ Y6 Y" O3 S        bufname:=sprint("BF",rows);
  A; W. n* m8 |8 G        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;
        buf.capacity:=5000;
+ `& r% B3 \: ?, ]8 q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' V5 r$ V; `; D+ f4 x$ b4 O8 udy:=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;
, r; k" Q; Q) s  ]4 m% ^+ I( K